Question

VB读写TXT文本，急急急 数据间有多个空格

一个文本文件如下：
0055 0048 0040 0035
0037 0039 0040 0036
0026 0015 0009 0006
0029 0042 0028 0022
0021 0013 0009 0015
0030 0041 0033 0017
0013 0004 -003 -009
0013 0036 0031 0024
0019 0010 -007 -009
0029 0068 0052 0028
0007 -002 -009 -015
.....
想通过VB将它转为
0055
0048
0040
0035
0037
0039
0040
0036
0026
0015
0009
0006
0029
0042
0028
0022
0021
0013
0009
0015
0030
.....
希望能给详细代码说明，我很久没用VB了，有点忘了，感激不尽

Answer 1

Private Sub Form_Load()
Dim StrTemp As String
Open "C:\1.TXT" For Input As #1
Open "C:\2.TXT" For Output As #2
While Not EOF(1)
Line Input #1, StrTemp
Print #2, Left$(StrTemp, 4)
Print #2, Mid$(StrTemp, 6, 4)
Print #2, Mid$(StrTemp, 11, 4)
Print #2, Right$(StrTemp, 4)
Wend
Close #2
Close #1
End Sub