pel公式調用VB自定義函數，傳遞字符串的問題 [金字塔]
- 咨詢內容：
VB自定義函數不支持傳遞字符串參數，搜索了好一會兒，可以用超全局變量解決。但遇到問題，不能正常傳遞，問題會出在哪兒了？
公式：GLOBALVARIABLE:買入信號='買入'; //這里的‘字符串’是你自己取的變量名testtxt();
自定義函數：Function testtxt(Formula) '系統會在逐K線模式解釋公式時的每個周期都會調用此函數一遍，因此設計時應該注重程序的執行效率，不要重復的執行一些沒必要的代碼 testtxt=0 MSG=document.getextData("買入信號") MsgBox "傳遞字符串：" & MSGEnd Function
運行彈出的對話框提示：“傳遞字符串：100057”，最后變成了數字？ - 金字塔客服：
此主題相關圖片如下：qq截圖20130911122009.jpg
- 用戶回復：
好吧，之前對字符串的問題，在論壇搜索過的，但沒有找到解決辦法。
王管應說的是這個帖子的10樓吧：http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=9511
if VBuy then
begin
buy(1,1,limitr,VOP); {開多}
if islastbar and bb<>barpos then
begin
bb:= barpos;
extgbdataSet('字符串','開多信號:'+numtostr(close,0)); //這里的‘字符串’是你自己取的變量名
VQQM:=QQMSSG(close,open);
end
end;
在VBA的自定義函數中這樣寫：
QQMSG=document.getextData("字符串") '獲取公式中設置的變量值
Set obj = CreateObject("WWSCommon.TCGroup")
call obj.TransMessage(QQNum, QQMSG)
Set obj = Nothing但根據這個方法，重新試了一下，還是不對，彈出窗口依然顯示的是數字？
if islastbar then
begin
extgbdataSet('買入信號','開多信號:'+numtostr(close,0)); //這里的‘字符串’是你自己取的變量名
VQQM:=QQMSSG();
end
bb:1;Function QQMSSG(Formula)
'系統會在逐K線模式解釋公式時的每個周期都會調用此函數一遍，因此設計時應該注重程序的執行效率，不要重復的執行一些沒必要的代碼
QQMSSG=0
QQMSG=document.getextData("字符串") '獲取公式中設置的變量值
MsgBox QQMSGEnd Function
- 網友回復：
字符串的操作要用
EXTGBSTRING( )
EXTGBSTRINGSET( , )這2個函數
- 網友回復：
感謝回復！
EXTGBSTRING( )和EXTGBSTRINGSET( , ) 是試過的，但是沒有得到預期的結果，
是下面的代碼有問題嗎？
運行后，依然提示不對？郁悶！
if islastbar then
begin
EXTGBSTRINGSET('買入信號','開多信號:'+numtostr(close,0)); //這里的‘字符串’是你自己取的變量名
VQQM:=QQMSSG();
end
bb:1;Function QQMSSG(Formula)
'系統會在逐K線模式解釋公式時的每個周期都會調用此函數一遍，因此設計時應該注重程序的執行效率，不要重復的執行一些沒必要的代碼
QQMSSG=0
QQMSG=document.GetExtString("買入信號") '獲取公式中設置的變量值
MsgBox QQMSGEnd Function
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 1145508240 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊