分类：电脑/网络-程序设计
问题：VB高手,请问如何将txt内的内容互换?例如在txt文件中有12 
例如在txt文件中有 1 2 3 4这四个数字,如何将其变为1 3 2 4相关如下: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, s例如在txt文件中有 1 2 3 4这四个数字,如何将其变为1 3 2 4相关如下: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 
回答：Line Input #1, s 
ss = Split(s) 
s = ss(1) & " " & ss(3) & " " & ss(2) & " " & ss(4)