共享一个星相交易工具，求助会编写指标的朋友

静芸

飛狐

cc:=數據;
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
vertline(ccsh),colorred;  {high}
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
vertline(ccsL),colorgreen; {low}

[ 本帖最后由 静芸 于 2013-12-17 12:29 编辑 ]

静芸

原帖由 kaiser88 于 2013-12-17 12:28 发表
请问静芸  能改成飞狐公式么？

这是飞狐公式
第一列的"数据"要用读进来的星象数据取代

静芸

原帖由 kaiser88 于 2013-12-17 12:35 发表
再请问 怎么读写呢？俺不会

哈,这有些麻烦啊!
你把星相数据存在目录C:\Da.txt
档名是Da.txt
如果存在别的目录,如D:\hhh\Da.txt
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
下面是飞狐公式,我也未试过,你自行试试吧

FoxDE:=DATE; FoxTE:=TIME;
MyData:=C*0;
<%
MyData =FFL.VarData("MyData")
FoxDE =FFL.VarData("FoxDE")
FoxTE =FFL.VarData("FoxTE")
Set fs =CreateObject("Scripting.FileSystemObject")
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
MyTxt = wrkfs.ReadLine
wrkfs.close
TxtStr=MyTxt
TxtAry = Split(TxtStr, ",", -1, 1)
GetDE=CLNG(TxtAry(0))
GetTE=CLNG(TxtAry(1))
GetVV=CSNG(TxtAry(2))
for i=0 to ubound(MyData)
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then
MyData(i)=GetVV
end if
next
FFL.VarData("MyData")=MyData
%>

cc:=MyData;
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
vertline(ccsh),colorred;  {high}
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
vertline(ccsL),colorgreen; {low}

[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]

静芸

原帖由 logoslogos 于 2013-12-17 19:53 发表
太好了。我试试。。。万分感谢

我刚试一下。。。出现错误。。。静云帮忙看看。。。
等我发图
110666

再试, 这读数据公式不是我编的
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then



[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

静芸

原帖由 logoslogos 于 2013-12-17 21:55 发表
110668

还是不行。。。能通过测试，但一运行就出现这个错误：
见图。。。

可能是数据檔的问题
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法

静芸

原帖由 He110 于 2013-12-18 18:09 发表
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
我是不是用错了？ 有其他办法吗？

你好, 向下
vertline(cross(0,cc)),coloryellow;