软件名称：[B]主图中显示成本价[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：1.00 KB
官方主页：Home Page
更新时间：2013-01-29 02:26:42
软件简介:

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;

[url=http://www.70822.com/soft/sort013/sort02/down-58049.html]主图中显示成本价[/url]