以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  关于字符串输出到文件的问题  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=90181)
--  作者：gzcoolfire
--  发布时间：2016/1/18 10:43:27
--  关于字符串输出到文件的问题
我通过ArrayString记录了一串的日期，需要输出到文本，但由于DebugFile每次调用一定是写一行，但我需要将结果放在同一行。
我就用字符串将数组的各个元素全部记录后再写到文件，但似乎字符串有长度限制，无法全部写出。具体如下：

Set dateArray = CreateObject("Stock.ArrayString")
\'dateArray通过Addback函数添加了数组元素，然后通过下面输出:

outputStr=""
for m=0 to dateArray.count-1
       outputStr=outputStr & "," & .GetAt(m) 
next
Call Document.DebugFile("d:\\1.csv",outputStr,1)

输出结果是：
2016-01-18 10:35:18.659   2005/12/12,2006/1/16,2006/3/13,2006/3/20,.......(省略中间的日期部分),2006/8/17,2006/8/18,2006/8/21,2006{?S

最后会有一个奇怪的字符，不能全部输出完。这个问题有没有其他方式解决？
--  作者：admin
--  发布时间：2016/1/18 12:48:12
--  

DebugFile 是主要做调试输出使用的，每行不能文字太多，如果你要处理写文件的操作，建议你使用VBA中自带的文件系统对象，参考

 

论坛已经有很多讨论了，建议你遇到问题时首先要想到搜索已有的讨论

http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=10903&skin=0