以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  请教VBA文件写入  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=10903)
--  作者：onlylovexue
--  发布时间：2012/4/4 18:33:47
--  请教VBA文件写入

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.createTextFile("d:\\shit.txt")
Set file = Nothing 
Set testFile = fso.OpenTextFile("d:\\shit.txt")
testFile.Write("shit")  \'写入字符串

testFile.close

 

 

请问下 在写入文字的时候提示 多步OLE DB操作产生错误      是什么问题呢  谢谢
--  作者：Leon
--  发布时间：2012/4/5 8:45:03
--  
正在处理，请稍后
--  作者：Leon
--  发布时间：2012/4/5 8:49:48
--  
Sub CreateFile()
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\\testfile.txt", True)
\' 写一行，并带有一个新行字符。
tf.WriteLine("Testing 1, 2, 3.")
\' 向文件写三个新行字符。
tf.WriteBlankLines(3)
\' 写一行。
tf.Write ("This is a test.")
tf.Close
End Sub
--  作者：onlylovexue
--  发布时间：2012/4/5 10:46:31
--  
Leon 首先非常感谢您的回答   目前已经处理好了   可是有个疑问   我提供的VBA 在excel中可以执行  但为何在金字塔VBS中就不行呢？ 感谢
--  作者：rushtaotao
--  发布时间：2012/4/5 10:56:52
--  

金字塔的VBS和office的vba不完全一样，有些对象支持有些对象是不支持的，具体你在软件帮助里可以查到。

比如，Order对象，在VBA中没有，在金字塔下就是用于交易的对象
--  作者：onlylovexue
--  发布时间：2012/4/5 10:59:19
--  

那请教个低级的问题   在金字塔中的转义字符  比如我要输出 a = "\\"a\\""    中的  ""  如何输出呢？
--  作者：Leon
--  发布时间：2012/4/5 12:43:15
--  

在金字塔中好像不能将\\作为转义符，楼主试试这样行不行

Chr$(13) 換行
Chr$(34) ""
Chr$(39) "

如果不行可以单独将这个问题发帖，等待高手给出解答吧