还是有问题，请帮忙解决一下吧。 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

楼主试试这样能写入吗

公式中：

runmode:1;
M:PEAKBARS(4,5,1),linethick0;
tmp:readtest(m),linethick0;
if c>o then
begin
tmp1:writetest(m,50);
end

自定义函数中: '将盘符替换成ini文件放置的盘符

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 , "F:\1.ini")
NEXT

readtest=ResultMa

End Function

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

End Function

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