共4 条记录, 每页显示 10 条, 页签: [1]

标题：关于VBS公式的一个程序错误咨询

1楼

hborning 发表于：2017/4/29 20:16:11

我想测试下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;

编译时候是反馈成功的，但调用到K线图上，说VBScript编译器错误，行：3，错误代码：1032，描述无效字符。

如果我把第3行的"改为‘，就像下面这样改：

b = FFL.VarData('a')

则反馈VBScript编译器错误，行：1，错误代码1002，描述：语法错误。

想咨询下为什么？谢谢!

因为我下载了论坛上其他用VBS的公式，里面也有FFL.VarData的调用，也运行和显示正常的。想问下为什么？谢谢!

2楼

hborning 发表于：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
%>

直接黏贴作公式，也是报同样的错误。

但我用guotx的缠论公式，里面都是VBS公式，这个是正常调用的。想问是什么原因啊？

3楼

hborning 发表于：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;

这时候就是完全正确的，而且在主图上也正确显示了我想标注的数值。

想问这个是什么原因？谢谢

4楼

yukizzc 发表于：2017/5/2 9:23:43

注意编程用英文输入法

你if里的圆括号是中文输入了

此主题相关图片如下：tlqo~wlkpyhdq}z0zl%$oe.jpg

[此贴子已经被作者于2017/5/2 9:24:28编辑过]

共4 条记录, 每页显示 10 条, 页签: [1]