以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  我想输出一条信息,怎么不行,谁帮着看看?  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=141966)
--  作者：coolcamous
--  发布时间：2016/10/30 9:21:33
--  我想输出一条信息,怎么不行,谁帮着看看?
我想在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
--  作者：王锋
--  发布时间：2016/10/31 10:41:30
--  

为什么函数名你要用中文？