文本内是：
d:\ra091222.ibl 773 IVYNET13100 999 2009-12-22 00:06:53 60.21.254.172 68.106.3.150 80 GET HTTP/1.1 200 0 46 572 273 2 /db3.rar - -
d:\ra091222.ibl 774 IVYNET13100 999 2009-12-22 00:06:53 60.21.254.172 68.106.3.150 80 GET HTTP/1.1 200 0 31 572 273 2 /db3.rar - -
。。。。。
现在想转换成csv文件格式，用逗号隔开

Dim stra As String, i As Long
Dim tArray() As String
stra = Text1.Text
tArray = Split(stra, " - -")
For i = 0 To UBound(tArray)
Open "log.csv" For Append As #1
tArray(i) = Replace((tArray(i)), " ", ",")
Print #1, tArray(i)
Close #1




为什么输入一行数据，会再输入一行空行，再输下一行数据



[ 本帖最后由 woa 于 2009-12-23 19:50 编辑 ]

是你的文本框内容里有换行吧？
用这一句试一下：
tArray(i) = Replace(Replace((tArray(i)), " ", ","), vbCrLf, "")

问题的确解决了，什么原因？
而且发现长度的判断是多余的，去掉了。。

因为你截取字符时，后面有一个换行符，在你PRINT的时候，就会换行了呀

明白了，有隐藏的换行符

这里的板主好勤劳 顶一个~