VB高手,请问如何将txt内的内容互换?

Question

On Error Resume Next
Dim a As String
Dim s As String
Dim ss() As String
ReDim ss(0 To 8) As String
Open "D:B\vu\t1.txt" For Input As 1
Do Until EOF(1)
Line Input #1, s
ss = Split(Trim(s))
For i = 0 To 4
    a = Replace(s, ss(1), ss(2))
Next i
Loop
Close #1 

Answer 1

看看
http://topic.csdn.net/u/20100118/03/fed84a8a-7261-44a7-a93d-56bc75f2e0bb.html?99783

Answer 2

我明白楼主的意图。是要将 Text 文本文件中的两列对调。楼主，需要重写一个新文件的：On Error Resume Next 
Dim a As String 
Dim s As String 
Dim ss() As String 
ReDim ss() As String Open "D:\B\vu\t1.txt" For Input As 1 
Open "D:\B\vu\tmp.txt" For Input As 2 Do Until EOF(1) 
Line Input #1, s 
ss = Split(Trim(s), " ") Print #2, ss(4) & " " & ss(3) & " " & ss(2) & " " & ss(1) & " " & ss(0) & " " & _
      ss(5) & " " & ss(6) & " " & ss(7) & " " & ss(8)Loop 
Close #2
Close #1 
Kill "D:\B\vu\t1.txt"
Name "D:\B\vu\tmp.txt" As "D:\B\vu\t1.txt"

Answer 3

导入EXCEL，调换位置，再导出

Answer 4

用正则巅峰regtop参考此贴：http://topic.csdn.net/u/20091218/23/f6abdfed-eb76-4311-9d94-fb0d495372dc.html