SC:=MARKETLABEL;
DM:=STKLABEL;
cdate:='';ccb:='';ccl:='';
<%
On Error Resume Next
VSC=FFL.VARDATA("SC")
VDM=FFL.VARDATA("DM")
Set fso = CreateObject("Scripting.FileSystemObject")
FileName="E:\Foxtrader\交易数据.txt" '此处更改为相应路径
Set txtf=fso.OpenTextFile(FileName,1,True)
str = txtf.Readall
txtf.Close
mc = vsc & vdm
a1 = instr(str,mc)
a2 = instr(a1,str,"|")
a3 = instr(a2+1,str,"|")
a4 = instr(a3+1,str,"|")
a5 = instr(a4,str,vbcrlf)
r1 = mid(str,a2+1,a3-a2-1)
r2 = mid(str,a3+1,a4-a3-1)
r3 = mid(str,a4+1,a5-a4-1)
ffl.vardata("cdate")=r1
ffl.vardata("ccb")=r2
ffl.vardata("ccl")=r3
%>
yy:=STRTONUM(STRLEFT(cdate,4));
mm:=STRTONUM(STRMID(cdate,5,2));
dd:=STRTONUM(STRRIGHT(cdate,2));
cd:=BARSLAST(year=yy and month=mm and day=dd);
CB:ref(STRTONUM(ccb),cd),Color808080,LINEDOT;
ZDF:=(c/cb-1)*100;
DRAWTEXT(ISLASTBAR,cb,' '+ccb+'('+NUMTOSTR(zdf,2)+'%)'),Color808080; |
