公式

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

函數(shù)

Function readtest(Formula,M)
    '系統(tǒng)會(huì)在逐K線(xiàn)模式解釋公式時(shí)的每個(gè)周期都會(huì)調(diào)用此函數(shù)一遍，因此設(shè)計(jì)時(shí)應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒(méi)必要的代碼
    readtest=0
 tttt =  document.GetPrivateProfileInt("aa", M,0 , "C:\1.ini")

End Function

1.ini 內(nèi)容

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

錯(cuò)誤提示：

編譯器錯(cuò)誤 13

類(lèi)型不匹配:document.getprivateprofileint

請(qǐng)問(wèn)哪里寫(xiě)錯(cuò)了。謝謝

在序列模式下，傳輸?shù)淖兞繎?yīng)該注意要區(qū)分是序列變量還是單值變量。如果是序列變量，那么傳遞給VBS自定義函數(shù)中的參數(shù)就是個(gè)數(shù)組，你這種調(diào)用方式自然是有問(wèn)題的。應(yīng)該使用數(shù)組的方式讀取。

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

'定義一個(gè)計(jì)算返回的數(shù)組
    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

謝謝管理員耐心答復(fù)。

公式:

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

自定義函數(shù):

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

'定義一個(gè)計(jì)算返回的數(shù)組
    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

提示錯(cuò)誤:

編譯器錯(cuò)誤 ‘424’

缺少對(duì)象 'forula'