以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  如何把VBS中字符参数传递给公式系统？  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=49163)
--  作者：xieguihua
--  发布时间：2013/3/4 15:13:53
--  如何把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;

 

 

提示错误！

敬请老师指教！

 
--  作者：王锋
--  发布时间：2013/3/4 16:31:23
--  

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;
--  作者：xieguihua
--  发布时间：2013/3/4 17:25:11
--  
非常感谢王老师的回复，根据您的指点，我测试过发现：在VBS中msgout输出的var1为ccode指向的合约代码，但是在公式系统用EXTGBSTRING(\'TestCode\')得到的却是1000000这样的结果。
--  作者：xieguihua
--  发布时间：2013/3/4 17:26:00
--  
是不是用要进行字符函数转换一下？
--  作者：王锋
--  发布时间：2013/3/4 17:45:09
--  

因该是你的代码问题了。

将你的全局变量数据库的写入部分代码贴过来看看
--  作者：xieguihua
--  发布时间：2013/3/4 17:49:19
--  
解决了，多谢老师。