文件内容如下：
53478    20131231210000    400000    1122700    -8.1
53486    20131231210000    402200    1134600    -4.9
53487    20131231210000    400500    1132500    -4.7
53488    20131231210000    400200    1133500    -5.4
...
第一列是站点，第二列是时间，第三列是纬度，第四列是经度，第五列是纬度。现在要把文件格式改成：站点、经度、纬度、温度值（注：经纬度按实际值53478 112.27  40.00  -14 ），我不知道vb怎样按列操作txt文件，刚学习vb，不大会，求各位大神帮忙

假设原始文档名为 a.txt,存放在D:\,新文档名为b.txt
Dim NewLine As String
Private Sub Command1_Click()
Open "D:\a.txt" For Input As #1    '打开文件a.txt,读取数据
Open "D:\b.txt" For Output As #2    '打开文件b.txt,写入数据
If LOF(1) <> 0 Then
    Do While Not EOF(1)
        Line Input #1, NewLine
        NewLine = Replace(NewLine, " ", "")  '去除空格
        NewLine = Left(NewLine, 5) & vbTab & Mid(NewLine, 26, 3) & "." & Mid(NewLine, 30, 2) & vbTab & Mid(NewLine, 20, 2) & "." & Mid(NewLine, 23, 2) & vbTab & Mid(NewLine, 33)     '前提是各列长度固定
        Print #2, NewLine
    Loop
    Close #1
    Close #2
Else
    MsgBox "数据为空!"
End If
End Sub

[ 本帖最后由 owenlu1981 于 2014-4-1 15:09 编辑 ]

收到的鲜花

• 夜雨霖铃 于 2014-04-01 14:46 送鲜花  3朵   附言：我很赞同

原来可以这么简单，我一直想着把每一列放进一个数组再进行操作，结果做了好久都没做好，谢谢你