fLabel:=STKLABEL;
fName:=STKNAME;
fDate:=DATE;
fx:=(C/REF(C,1)-1)*100;
fCond:=DATE=n;
<%
vLabel=ffl.vardata("fLabel")
vName=ffl.vardata("fName")
vx=ffl.vardata("fx")
nDate=ffl.vardata("n")
vdate=ffl.vardata("fdate")
vCond=ffl.vardata("fCond")
nPeriod=0
for i=1 to ubound(vx)
if vCond(i)=1 then
nPeriod=i
exit for
end if
next
if nPeriod<>0 then
FileName="User\100\gp\" & (19000000+nDate) & ".txt"
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
iomode=8
Create=true
Set MyFile = fso.OpenTextFile(FileName, iomode,Create)
kc=" "
temp=Round(vx(nPeriod),3)
if abs(temp)<1 then
if temp>0 then
temp="0" & temp
else
temp="-0" & abs(temp)
end if
end if
zd=vLabel & kc & vName & kc & temp
MyFile.WriteLine(zd)
MyFile.Close
ffl.vardata("fgpdm")=gpdm
end if
%>
DRAWTEXT(ISLASTBAR,0,'输出板块文本数据');
[此贴子已经被作者于2003-10-13 17:16:55编辑过]