{請在C:中創建壹個臨時文件夾，然後測試此公式代碼。
這個公式通過對板塊進行排序，將板塊中每只股票的流通盤分為兩部分。
數據，保存在文本文件中}
fltp:=資本；
fltp
& lt%
vltp=ffl.vardata("fltp ")
dim fso，txtf
filename = " c:\ temp \ " & amp；“流通盤。txt "
創建壹個文件對象。
set FSO = createobject(" scripting . file system object ")
如果指定的文件存在，將通過追加打開；否則，將創建壹個新文件。
如果FSO . file存在(文件名)，則
iomode=8 : create=false
其他
iomode=2 : create=true
如果…就會結束
打開文件或創建新文件。
set txtf=fso.opentextfile(文件名，iomode，創建)
寫流通盤數據，帶回汽車斷線。
txtf.writeline(vltp)
關閉打開的文件。
txtf.close
% & gt
公式代碼2:
{請在C:中創建壹個臨時文件夾，然後測試此公式代碼。
這個公式的目的是累積文本文件中的數據並寫出結果。
輸出到文本文件}
c；
& lt%
set fso=CreateObject("Scripting。文件系統對象”)
FileName="c:\temp\循環磁盤。txt "
設置txtf=fso。OpenTextFile(文件名，1)
以下測試文件中有多少行？
i=0
Txtf。AtendOfStream=False表示尚未到達文件結尾。
do while txtf。AtendOfStream=False
i=i+1
跳過壹行
txtf.skipline
環
txtf.close
重新定位到文檔的開頭
設置txtf=fso。OpenTextFile(文件名，1)
讀取數據，計算板塊流通盤。
x=i-1
vzz=0
對於i=0至x
tr=txtf.readline
vzz=vzz+csng(tr)
然後
txtf。關閉
寫到“盤流通盤。txt "
設置txtf 1 = FSO . create textfile(" c:\ temp \ plate circulation disk . txt "，true)。
txtf1.writeLine(vzz)
txtf1。關閉
Msgbox("OK，計算板循環完畢！")
% & gt