公式:

runmode:1;
m:PEAKBARS(4,5,1),linethick0;
tmp:readtest(m),linethick0;

自定義函數:

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 , "C:\1.ini")
    NEXT
    readtest=ResultMa
End Function

1.ini 內容

[aa]
0=0
1=2
2=4
3=6

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

請問:

if 條件為真 then tag:=writetest(M,99); 中的writetest該如何寫呢。也是序列轉換嗎？

Function writetest(Formula,m,value)

      tag = document.WritePrivateProfileInt("aa",m,value , "C:\1.ini")

End Function

以上我寫的沒成功。不能改1.ini中的數據。

參考http://www.weistock.com/runmode.htm

視頻

金字塔后臺高級編程技巧

http://v.youku.com/v_show/id_XMjkyNjU3Mjc2.html 觀看密碼: bj123456

里面對序列模式和逐K線模式有了很好的介紹

謝謝答復，看了幾遍視頻，

請問能不能幫我做個writetest函數。我只要結果，不想浪費太多時間。謝謝客服人員。。