金字塔如何把VBS中字符參數(shù)傳遞給公式系統(tǒng)？ [金字塔]
- 咨詢內(nèi)容：
Sub Technic_Paint()
Set Grid =Technic.GetGridByName("Main")
if Grid is NoThing Then
Exit Sub
End if
CALL Grid.DrawRect(18,25,120,48,RGB(255,255,0),2)
call Grid.DRAWTEXT(20,28,"執(zhí)行外部分析程序",500)
framename=application.GetActiveFrameName
if framename<> "Technic" then
Application.ActivateFrame "Technic"
end if
nname=Grid.StockName
ccode=Grid.IndexCode
application.MsgOut nname &" "&ccode
End Sub現(xiàn)在想把nname與ccode這兩個(gè)參數(shù)傳給公式中：
<%
vspj=ccode
ffl.vardata("spj")=vspj
%>
vspj:spj;c1:="vspj$close" -"if13$close";
o1:="vspj$open" -"if13$open";
h1:="vspj$high" -"if13$high";
l1:="vspj$low" - "if13$low";kred:STICKLINE( c1>o1,c1 ,o1, 10,1 ,colorred);//空心實(shí)體
kred1:STICKLINE( c1>o1,max(h1,c1) ,max(c1,o1), 0,1 ,colorred);//上引線
kred2:STICKLINE( c1>o1,min(c1,o1) ,min(l1,o1), 0,1 ,colorred);//下引線kgreen:STICKLINE( c1<=o1,c1 ,o1, 10,1 ),colorgreen;//實(shí)心實(shí)體
kgreen1:STICKLINE( c1<=o1,max(h1,o1) ,max(c1,o1), 0,1 ,colorgreen);
kgreen2:STICKLINE( c1<=o1,min(c1,o1) ,min(l1,c1), 0,1 ,colorgreen);
fc:=c1;提示錯(cuò)誤！
敬請(qǐng)老師指教！
- 金字塔客服：
Sub Technic_Paint()
Set Grid =Technic.GetGridByName("Main")
if Grid is NoThing Then
Exit Sub
End if
CALL Grid.DrawRect(18,25,120,48,RGB(255,255,0),2)
call Grid.DRAWTEXT(20,28,"執(zhí)行外部分析程序",500)
framename=application.GetActiveFrameName
if framename<> "Technic" then
Application.ActivateFrame "Technic"
end if
nname=Grid.StockName
ccode=Grid.IndexCode'傳遞數(shù)據(jù)到全局變量數(shù)據(jù)庫(kù)
Document.SetExtString("TestName",nname )
Document.SetExtString("TestCode",ccode)
application.MsgOut nname &" "&ccode
End Sub現(xiàn)在想把nname與ccode這兩個(gè)參數(shù)傳給公式中：
//公式讀取全局變量數(shù)據(jù)庫(kù)字符串
ccode:=EXTGBSTRING('testcode');
<%
vspj=FFL.StrVarData("ccode" ) '公式中字符串變量傳遞到VBS公式中
ffl.vardata("spj")=vspj
%>
vspj:spj;c1:="vspj$close" -"if13$close";
o1:="vspj$open" -"if13$open";
h1:="vspj$high" -"if13$high";
l1:="vspj$low" - "if13$low";kred:STICKLINE( c1>o1,c1 ,o1, 10,1 ,colorred);//空心實(shí)體
kred1:STICKLINE( c1>o1,max(h1,c1) ,max(c1,o1), 0,1 ,colorred);//上引線
kred2:STICKLINE( c1>o1,min(c1,o1) ,min(l1,o1), 0,1 ,colorred);//下引線kgreen:STICKLINE( c1<=o1,c1 ,o1, 10,1 ),colorgreen;//實(shí)心實(shí)體
kgreen1:STICKLINE( c1<=o1,max(h1,o1) ,max(c1,o1), 0,1 ,colorgreen);
kgreen2:STICKLINE( c1<=o1,min(c1,o1) ,min(l1,c1), 0,1 ,colorgreen);
fc:=c1; - 用戶回復(fù)： 非常感謝王老師的回復(fù)，根據(jù)您的指點(diǎn)，我測(cè)試過發(fā)現(xiàn)：在VBS中msgout輸出的var1為ccode指向的合約代碼，但是在公式系統(tǒng)用EXTGBSTRING('TestCode')得到的卻是1000000這樣的結(jié)果。
- 網(wǎng)友回復(fù)： 是不是用要進(jìn)行字符函數(shù)轉(zhuǎn)換一下？
- 網(wǎng)友回復(fù)：
因該是你的代碼問題了。
將你的全局變量數(shù)據(jù)庫(kù)的寫入部分代碼貼過來看看
有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 進(jìn)行 有償 編寫！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)