我想輸出一條信息,怎么不行,誰幫著看看? [金字塔]
- 咨詢內(nèi)容：
我想在1.txt 寫一條信息..但是不行
sub txtDemo()
Call 寫Unicode("123546789", "c:\1.txt")
end sub
Sub 寫Unicode(文本, 路徑)
'
'
Dim fso, f, ts
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Set fso = CreateObject("Scripting.FileSystemObject")
'
fso.createtextfile 路徑
Set f = fso.getfile(路徑)
Set ts = f.openastextstream(ForWriting, TristateTrue)
ts.write 文本
ts.Close
'
'
End Sub
- 金字塔客服：
為什么函數(shù)名你要用中文？
有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 511411198 進(jìn)行 有償 編寫！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會員登錄/注冊