，读取文件（字符串+数值）-写出文件（固定格式）

求助，读取文件（字符串+数值）--写出文件（固定格式）
文件格式如下： 
walllname=wwea-x WallbnLabel=17
walllname=wwea-x WallbnLabel=18
walllname=wwea-x WallbnLabel=19
walllname=wwea-y WallbnLabel=30
walllname=wwea-y WallbnLabel=31
walllname=wwea-y WallbnLabel=32
....
想要的输出文件为：
wwea-x
17
18
19
wwea-y 
30
31
32
也就是两个循环，一个是walllname（字符串），一个是WallbnLabel（数值），请高手帮忙，谢谢！

[解决办法]

VB code

Private Sub Command1_Click()      Dim strInput$, ID$, IDsave$, arrText$()      Dim strTemp$, i&   ' 这里的文件路径，自己处理   Open "X:\Temp\IN_file.txt" For Input As #1   Open "X:\Temp\Out_Text.txt" For Output As #2   IDsave = ""   Do      If (EOF(1)) Then Exit Do      Line Input #1, strInput      If (Len(strInput) = 0) Then Exit Do      arrText = Split(strInput, " ")      i = InStr(arrText(0), "=") + 1      ID = Mid$(arrText(0), i)      If (ID <> IDsave) Then         IDsave = ID         Print #2, ID      End If      i = InStr(arrText(1), "=") + 1      Print #2, Mid$(arrText(1), i)   Loop   MsgBox "处理完毕！", vbInformationEnd Sub