金字塔如何把VBS中字符參數傳遞給公式系統？ [金字塔]
- 咨詢內容：
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,"執行外部分析程序",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現在想把nname與ccode這兩個參數傳給公式中：
<%
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);//空心實體
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;//實心實體
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;提示錯誤！
敬請老師指教！
- 金字塔客服：
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,"執行外部分析程序",500)
framename=application.GetActiveFrameName
if framename<> "Technic" then
Application.ActivateFrame "Technic"
end if
nname=Grid.StockName
ccode=Grid.IndexCode'傳遞數據到全局變量數據庫
Document.SetExtString("TestName",nname )
Document.SetExtString("TestCode",ccode)
application.MsgOut nname &" "&ccode
End Sub現在想把nname與ccode這兩個參數傳給公式中：
//公式讀取全局變量數據庫字符串
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);//空心實體
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;//實心實體
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; - 用戶回復： 非常感謝王老師的回復，根據您的指點，我測試過發現：在VBS中msgout輸出的var1為ccode指向的合約代碼，但是在公式系統用EXTGBSTRING('TestCode')得到的卻是1000000這樣的結果。
- 網友回復： 是不是用要進行字符函數轉換一下？
- 網友回復：
因該是你的代碼問題了。
將你的全局變量數據庫的寫入部分代碼貼過來看看
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 262069696 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊