大家共享，大家可以根据这个原理改一下输出自己想要的数据。
输出结果如下：
比如其中一天是
时间：2003.3.31
000656 ST东源 0.45
000657 中钨高新 0.45
000658 ST海 洋 -0.45
000659 珠海中富 3.35
。。。。。。。
公式如下：
fLabel:=STKLABEL;
fName:=StkName;
fDate:=DATE;
fx:=c-ref(c,1);
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\TxtData\" & (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 & temp
MyFile.WriteLine(zd)
MyFile.Close
ffl.vardata("fgpdm")=gpdm
end if
%>
drawtext(islastbar,0,'输出板块文本数据');
注意：
1、手工建立飞狐安装目录下的路径，即：user\txtdata 2、即使已经建立了路径，但首次运行这个公式时，有可能出错，重新启动之后就可以了。主要是第一次运行的时候，公式还不能认识相对路径的缘故。因此，导入公式后，请不要立即运行，应关闭飞狐后，重新启动再运行。此后不会再有出错现象。
