公式:

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

自定義函數(shù):

Function readtest(Formula,M)
    '系統(tǒng)會在逐K線模式解釋公式時的每個周期都會調(diào)用此函數(shù)一遍，因此設(shè)計時應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒必要的代碼
    DataCount = UBound(M)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function
    End If

'定義一個計算返回的數(shù)組
    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)
    '系統(tǒng)會在逐K線模式解釋公式時的每個周期都會調(diào)用此函數(shù)一遍，因此設(shè)計時應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒必要的代碼
    writetest=0
   tag = document.WritePrivateProfileInt("aa",m,value, "G:\1.ini")
End Function

1.ini 內(nèi)賓:

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

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

能讀出1.ini文件中的數(shù)據(jù)，可是沒有成功寫入。

我也知道這樣很煩人，可是自己確實搞不了，需要金字塔幫助。拜托了.

樓主試試這樣能寫入嗎

公式中：

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

自定義函數(shù)中: '將盤符替換成ini文件放置的盤符

Function readtest(Formula,M)
    '系統(tǒng)會在逐K線模式解釋公式時的每個周期都會調(diào)用此函數(shù)一遍，因此設(shè)計時應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒必要的代碼
   
    DataCount = UBound(M)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function

    End If

'定義一個計算返回的數(shù)組
    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)
    '系統(tǒng)會在逐K線模式解釋公式時的每個周期都會調(diào)用此函數(shù)一遍，因此設(shè)計時應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒必要的代碼
 tag = document.WritePrivateProfileInt("aa",m,value,"F:\1.ini")

End Function

一句話是不用begin end的，應(yīng)該是writetest函數(shù)不對。等待客服的回答