- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5)
---- 关于VBS公式的一个程序错误咨询 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=152317)
-- 发布时间：2017/4/29 20:16:11
-- 关于VBS公式的一个程序错误咨询
我想测试下VBS公式用来进一步开发。
我想写一个程序，每10根K线（从0开始计数），0~4号K线之间不画连接线，5~9号K线画画第5号收盘到第9号收盘之间的连线。
我的程序是
a:=close;
<%
b = FFL.VarData("a")
for i = 0 to UBOUND(b)
if (( i mod 10 ）>=5 ) then
b(i)=1
else
b(i)=-1
end if
next
FFL.VarData("a")=b
%>
drawline(a>0,close,a<0,close,0),COLORCYAN;
<%
b = FFL.VarData("a")
for i = 0 to UBOUND(b)
if (( i mod 10 ）>=5 ) then
b(i)=1
else
b(i)=-1
end if
next
FFL.VarData("a")=b
%>
drawline(a>0,close,a<0,close,0),COLORCYAN;
编译时候是反馈成功的，但调用到K线图上，说VBScript编译器错误，行：3，错误代码：1032，描述无效字符。
如果我把第3行的"改为‘，就像下面这样改：
b = FFL.VarData(\'a\')
则反馈VBScript编译器错误，行：1，错误代码1002，描述：语法错误。
想咨询下为什么？谢谢!
因为我下载了论坛上其他用VBS的公式，里面也有FFL.VarData的调用，也运行和显示正常的。想问下为什么？谢谢!
-- 发布时间：2017/4/29 20:26:31
--
我发现，将2013版高级教程里面的示例
spj:=close;
<%
vspj=ffl.vardata("spj")
last=ubound(vspj)
for i=0 to last
vspj(i)=vspj(i)*1.1
next
ffl.vardata("spj")=vspj
%>
<%
vspj=ffl.vardata("spj")
last=ubound(vspj)
for i=0 to last
vspj(i)=vspj(i)*1.1
next
ffl.vardata("spj")=vspj
%>
直接黏贴作公式，也是报同样的错误。
但我用guotx的缠论公式，里面都是VBS公式，这个是正常调用的。想问是什么原因啊？
-- 发布时间：2017/5/1 10:47:28
--
我想把两个公式FLA文件上传上来，添加附件后，点击“上传附件",不过不知道为什么论坛报错“文件类型不正确”，我就上传不了附件
我自己写的：
dl:=close;
<%
bdl=ffl.vardata("dl")
last=ubound(bdl)
for i=0 to last
if (i mod 10）>=5 then
bdl(i)=1
else
bdl(i)=-1
end if
next
ffl.vardata("dl")=bdl
%>
这个就报错，行：4，错误代码：1032 描述：无效字符
我刚用2013版高级教程那个公式（拷贝过去后，运行正确），然后在他基础上将内容修改为我自己的，其实和本贴前面的内容几乎完全一样。
spj:=close;
<%
vspj=ffl.vardata("spj")
last=ubound(vspj)
for i=0 to last
if (i mod 10)>=5 then
vspj(i)=1
else
vspj(i)=-1
end if
next
ffl.vardata("spj")=vspj
%>
DRAWNUMBER(1,HIGH,spj,0);
//drawline(spj=-1,close,spj=1,close,0),COLORCYAN;
这时候就是完全正确的，而且在主图上也正确显示了我想标注的数值。
想问这个是什么原因？谢谢
-- 发布时间：2017/5/2 9:23:43
--
注意编程用英文输入法
你if里的圆括号是中文输入了
此主题相关图片如下：tlqo~wlkpyhdq}z0zl%$oe.jpg
[此贴子已经被作者于2017/5/2 9:24:28编辑过]