欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 如何把VBS中字符参数传递给公式系统？

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有4157人关注过本帖树形打印复制链接

主题：如何把VBS中字符参数传递给公式系统？
帅哥哟，离线，有人找我吗？
xieguihua
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：43 积分：250 威望：0 精华：1 注册：2012/7/12 14:05:28 		如何把VBS中字符参数传递给公式系统？  发帖心情 Post By：2013/3/4 15:13:53 [只看该作者]

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;

 

 

提示错误！

敬请老师指教！

 
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：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;

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
xieguihua
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：43 积分：250 威望：0 精华：1 注册：2012/7/12 14:05:28 		  发帖心情 Post By：2013/3/4 17:25:11 [只看该作者]

非常感谢王老师的回复，根据您的指点，我测试过发现：在VBS中msgout输出的var1为ccode指向的合约代码，但是在公式系统用EXTGBSTRING('TestCode')得到的却是1000000这样的结果。

 回到顶部
帅哥哟，离线，有人找我吗？
xieguihua
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：43 积分：250 威望：0 精华：1 注册：2012/7/12 14:05:28 		  发帖心情 Post By：2013/3/4 17:26:00 [只看该作者]

是不是用要进行字符函数转换一下？

 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2013/3/4 17:45:09 [只看该作者]

因该是你的代码问题了。

将你的全局变量数据库的写入部分代码贴过来看看

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
xieguihua
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：43 积分：250 威望：0 精华：1 注册：2012/7/12 14:05:28 		  发帖心情 Post By：2013/3/4 17:49:19 [只看该作者]

解决了，多谢老师。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.06641 秒, 5 次数据查询