通过文件读写函数实现跨周期数据调用！

nopain

TB3.2.2增加了文件读写功能函数，SetTBProfileString和GetTBProfileString，
通过使用这两个函数，可以实现较复杂的应用，比如跨周期数据调用。
SetTBProfileString将数据内容写到用户公式目录tblprofile.ini文件下。

下文以5分钟周期调用日线指标数据举例讲解具体应用。

操作步骤如下：
1、新建一个工作区，包含上下两个图表窗体，上面选择日线周期，下面选择5分钟周期。
2、新建一个技术指标，命名为MyDayMA。编译成功后插入日线图表中。详细代码如下：

1. Params
   
2.         Numeric length(10);
   
3. Vars
   
4.         Numeric MA;
   
5.         string strkey;
   
6.         string strValue;
   
7. Begin
   
8.         MA = AverageFC(Close,length);
   
9.         strKey = DateToString(Date);
   
10.         strValue = Text(MA);
    
11.         SetTBProfileString("DayMA",strKey,strValue);
    
12.         PlotNumeric("MA",MA);
    
13. End

复制代码

3、新建一个技术指标，My5MinMA。编译成功后插入5分钟图表中，详细代码如下：

1. Vars
   
2.         NumericSeries DayMAValue;
   
3.         string strKey;
   
4.         string strValue;
   
5. Begin
   
6.         strKey = DateToString(Date);
   
7.         strValue = GetTBProfileString("DayMA",strKey);
   
8.         If(strValue != InvalidString)
   
9.         {
   
10.                 DayMAValue = Value(strValue);
    
11.         }Else
    
12.         {
    
13.                 DayMAValue = DayMAValue[1];
    
14.         }
    
15.         PlotNumeric("DayMA",DayMAValue);
    
16. End

复制代码

4、上面的指标实际使用了未来数据，用来写指标是可以的，但用来做交易指令进行自动交易就会出问题，为了更准确合理的使用跨周期数据，我们应该稍作修改，代码如下：

1. Vars
   
2.         NumericSeries DayMAValue;
   
3.         StringSeries strKey;
   
4.         string strValue;
   
5. Begin
   
6.         If(Date!=Date[1])
   
7.         {
   
8.                 strKey = DateToString(Date[1]);       
   
9.         }Else
   
10.         {
    
11.                 strKey = strKey[1];
    
12.         }
    
13.        
    
14.         strValue = GetTBProfileString("DayMA",strKey);
    
15.         If(strValue != InvalidString)
    
16.         {
    
17.                 DayMAValue = Value(strValue);
    
18.         }Else
    
19.         {
    
20.                 DayMAValue = DayMAValue[1];
    
21.         }
    
22.         PlotNumeric("DayMA",DayMAValue);
    
23. End

复制代码

cfmx2007

好啊，这个功能非常好呀，期待很久啦。。。

yml0396

TB的技术人员辛苦了.非常感谢你们.现在看来国内哪个号称最大的财经软件要追赶你们了.

滴水成川

这是个了不起的创意！

a2510

好样的,tb.

bigbear2046

为啥这个读写要固定文件，不能像fileappend一样自定义文件？这样不会导致文件大小增长过快导致效率降低么？

nopain

读写固定的文件，是让函数用起来更简洁些。数据只要不太多，问题应该不大。

朴素

好贴！给版主致敬

mdjxq

"读写固定的文件，是让函数用起来更简洁些。数据只要不太多，问题应该不大。"

随便读写很危险，万一你放毒咋办？

天行健

这个文件肯定会越来越大，因为只有增加没有删除，日积月累。
而且大量TB函数的说明不够清楚，应用上会有困难。
比如Bool SetTBProfileString(String strSection,String strKey,String strValue)中键名、块名的概念。所举示例也太简单不能把公司的特点说清楚，多举几个例子要死人啊？
要让更多的人使用TB，就要减少学习难度，编写说明文档的时候不要把用户当成开发人员一样的水平看待。TB公司老是爱犯这样的错误。