自编了一个公式，但运行时总死机，请高手们指点，谢谢！
公式说明：
有一文件，文件名：代码.txt （代码是600000 600001。。。等股票代码)
文件内容如下:
12345
23456
3456
.....
数据的个数与K线数相同
公式在副图上显示
文件第1行的数据显示在第1根K线的位置
文件第2行的数据显示在第2根K线的位置
文件第3行的数据显示在第3根K线的位置
。。。。。
下面是公式源码
mDm:=STKLabel;
mL:=Close;
<%
Const FileDir = "D:\Desktop\"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, f, s
mDm=FFL.VarData("mDm" )
mL =FFL.VarData("mL" )
nFirst=FFL.VarStartIndex("mL" )
nLast =UBound(mL)
for i=nFirst to nLast
mL(i)=0
next
FileName=FileDir&mDm&".txt"
Set fso = CreateObject("Scripting.FileSystemObject" )
If (fso.FileExists(fileName)) Then
Set f = fso.OpenTextFile(FileName, ForReading )
i=nFirst
Do While f.AtEndOfStream <> True
s = f.ReadLine
mL(i) = CLng(s)
i=i+1
if i>nLast then Exit Do
Loop
f.Close
End If
Set fso = Nothing
FFL.VarData("mL" ) =mL
%>
AA:mL;
本贴由 yzjshm 于 2004-8-19 12:35 最后编辑
