如何用SetTBProfileString在5分线调用30分线的数据？

wsjtry

请假，如何用SetTBProfileString在5分线跨周期调用30分线、60分的数据？该怎么写呢？或者参考什么贴？谢谢，非常感谢。

小米

http://bbs.tb18.net/thread-4469-1-1.html

wsjtry

新建窗口，这个指标放入大周期30分，60分等，把MA值写数据库供小周期调用

1. Vars
   
2. Numeric length(15);
   
3. NumericSeries MA;
   
4. string strkey;//设置键名
   
5. string strValue;//设置键值
   
6. Numeric RQSJ;//日期时间
   
7. 
   
8. Begin
   
9. MA = XAverage(Close,length);
   
10. RQSJ=Date*10000+Hour*100+Minute;//日期时间，作为键名
    
11. strKey = Text(RQSJ);//设置键名，以日期小时分钟为键名
    
12. strValue = Text(MA);//设置键值
    
13. 
    
14. WData=SetTBProfileString("KtMA60",strKey,strValue);//数据块名，键名，键值
    
15. 
    
16. PlotNumeric("MA",MA);
    
17. Commentary("写键名="+Text(RQSJ));
    
18. 
    
19. 
    
20. End

复制代码

//新建窗口，这个指标放入小周期并且小于被调用周期，如5分，10分，15分周期。

1. Vars
   
2. 
   
3. NumericSeries KtValue;//读出的数据
   
4. NumericSeries RQSJ;//日期时间
   
5. StringSeries strKey;//读取键名
   
6. StringSeries strValue;//读取键值
   
7. 
   
8. Begin
   
9. RQSJ=Date*10000+Hour*100+Minute;//日期时间，作为键名
   
10. If(RQSJ!=RQSJ[1]){strKey = Text(RQSJ[1]);}//不同时间K线,取上个时间为键名
    
11. Else{strKey = strKey[1];}//取上个时间为键名
    
12. 
    
13. strValue = GetTBProfileString("KtMA60",strKey);//根据数据库、键名去读取键值
    
14. If(strValue != InvalidString){KtValue = Value(strValue);}//读数据有效
    
15. Else{KtValue = KtValue[1];}//读数据无效
    
16. 
    
17. 
    
18. PlotNumeric("键值",KtValue);
    
19. Commentary("读键名="+Text(RQSJ));
    
20. Commentary("读键值="+Text(KtValue));
    
21. 
    
22. End

复制代码

目前同周期30分调用30分周期的数据正常，
但是小周期调用大周期就不正常，如5分调用30分，
请教，怎么办呢？谢谢

wsjtry

小米 发表于 2019-1-3 15:33
http://bbs.tb18.net/thread-4469-1-1.html

我参照网址的修改了，
目前同周期30分调用30分周期的数据正常，
但是小周期调用大周期就不正常，如5分调用30分，
请教，怎么办呢？
谢谢，非常感谢。