您现在的位置：程序化交易>> 期货公式>> 金字塔等>> 金字塔知识>>正文内容

我想输出一条信息,怎么不行,谁帮着看看?　[金字塔]

作者：金字塔来源：cxh99.com 发布时间：2016年12月31日点击数：　【收藏到本网的会员中心】

咨询内容： 我想在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
金字塔客服：
为什么函数名你要用中文？

有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友

可联系技术人员 QQ: 511411198 进行有偿编写！（不贵！点击查看价格！）

【字体：小大】【打印文章】【查看评论】

没有相关内容