主题：还是有问题，请帮忙解决一下吧。

公式:

runmode:1;
m:PEAKBARS(4,5,1),linethick0;
tmp:readtest(m),linethick0;
if c>O then tmp1:=writetest(m,50);

 

自定义函数:

 

Function readtest(Formula,M)
    '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
    DataCount = UBound(M)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function
    End If

'定义一个计算返回的数组
    Dim ResultMa
    Redim ResultMa(DataCount)
    For i = 0 To Formula.DataSize-1
      ResultMa(i) = document.GetPrivateProfileInt("aa", M(i),0 , "G:\1.ini")
    NEXT
    readtest=ResultMa
End Function

 

Function writetest(Formula,m,value)
    '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
    writetest=0
   tag = document.WritePrivateProfileInt("aa",m,value, "G:\1.ini")
End Function

 

1.ini 内宾:

[aa]
0=3
1=10
2=7
3=6
4=8
5=10

 

============================================

能读出1.ini文件中的数据，可是没有成功写入。

我也知道这样很烦人，可是自己确实搞不了，需要金字塔帮助。拜托了.

一句话是不用begin end的，应该是writetest函数不对。等待客服的回答

谢谢leon.您说是加个begin end函数吗？我回家试一下，现在单位不方便测试。

是的。我也猜是序列变量的问题。等待客服回答吧。。谢谢L了