求取读取数据方法，谢谢！！！
求取读取数据方法，谢谢！！！
有
2007032 4 8 16 24 30 32 16
2007032 4 8 9 24 30 32 16
我想把它改成：
2007032 04 08 16 24 30 32 16
2007032 04 08 09 24 30 32 16
我写的代码只能改成：
2007032 4 8 16 24 30 32 16
2007032 4 8 9 24 30 32 16
求教该如何修改代码才能得到我想要的结果，谢谢！！！
Dim MyString, MMString As String
Open App.Path & "\AA.TXT " For Input As #1
Do While Not EOF(1)
Line Input #1, MyString
Loop
Close #1
For i = 1 To Len(MyString)
If Mid(MyString, i, 1) <> Space(1) Then
MMString = MMString & Mid(MyString, i, 1)
Else
If Mid(MyString, i - 1, 1) = Space(1) Then
Else
If Mid(MyString, i + 1, 1) <> Space(1) Then
MMString = MMString & Mid(MyString, i, 1)
Else
'If Mid(MyString, i + 2, 1) <> Space(1) Then
MMString = MMString & Replace(Mid(MyString, i, 1), Space(1), " 0 ")
'End If
End If
End If
End If
Next i
MsgBox MMString
[解决办法]
Private Sub Command1_Click()
Dim a() As String, MyString As String
Open App.Path & "\AA.TXT " For Input As #1
Do While Not EOF(1)
Line Input #1, MyString
a = Split(MyString)
For x = 0 To UBound(a)
If a(x) <> " " Then
If a(x) < 10 Then a(x) = "0 " & a(x)
Print a(x); " ";
End If
Next
Print
Loop
Close #1
End Sub
