Question

VB中print去掉中间的字符间空格

Private Sub Text1_Change()
Open "J:\2010\111.txt" For Input As #1
Open "j:\2010\222.txt" For Output As #2
Dim d1 As Long, d2 As Integer, d3 As Integer, d4 As Integer, d5 As Integer, d6 As Integer, d7 As Single, x As String
x = ","
Input #1, d1, d2, d3, d4, d5, d6, d7
Print #2, d1, x, d2, x, d3, x, d4, x, d5, x, d6, x, d7, x,
Close #1, #2
End Sub
111里的数据是50425 2011 1 1 0 5 0.4
我的结果是，50425 ， 2011 ， 1， 1， 0 ， 5， 0.4不是连续的，数据跟逗号之间有空格，怎么实现连续呢，VB初学者。。。
print分号前后都有一个空格了，用什么函数呢。。。

Answer 1

Trim() 可以去掉空格

Print #2, Trim(d1), x, Trim(d2), x, Trim(d3), x, Trim(d4), x, Trim(d5), x, Trim(d6), x, Trim(d7), x,

追问

输进去乱码了，我改成分号后，数据前后都多了一个空格。

追答

抱歉，刚才没仔细看。
按数字保存就是这样的，前面的空格留给正负号，后面空格是分隔符。
你的“连续”是指这样的结果：
50425,2011,1,1,0,5,0.4
可以这么写：

Print #2, d1 & x & d2 & x & d3 & x & d4 & x & d5 & x & d6 & x & d7 ‘将数字按字符串处理，VB将自动转换

追问

谢谢！可以了，但是如果是多行数据，我再最后面加上VBCRLF换行之后，后面的数据还是前面有空格怎么办，
50425,2011,1,1,0,5,.4
50425,2011,1,1,1,17,.1
50425,2011,1,1,2,17,0
50425,2011,1,1,3,8,.7

Answer 2

用函数呀。有过滤左边空格的同，也有过滤右边空格的

Answer 3

Print #2, d1, x, d2, x, d3, x, d4, x, d5, x, d6, x, d7, x'这里用紧凑格式的话,就要用分号分隔.你试试吧.

追问

谢谢，我用分号分隔了，前后还是有一个空格，我一会试试trim（）可能有用吧

追答

嗯.因为数字格式的量输出时会前后自动有空格的.用trim函数时,要先将数字格式转换为文本格式.