求助文件处理

假设原始文档名为 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 编辑 ]