vbs学习中。。。- Set FSO = CreateObject("Scripting.FileSystemObject")
- A = Split(FSO.OpenTextFile("a.txt",1).ReadAll,vbCrLf)
- B = Split(FSO.OpenTextFile("b.txt",1).ReadAll,vbCrLf)
- If Ubound(A) >= Ubound(B) Then
- For i = 0 To Ubound(A)
- If i <= Ubound(B) Then A(i) = A(i) & " " & B(i)
- Next
- Str = Join(A,vbCrLf)
- Else
- For i = 0 To Ubound(B)
- If i <= Ubound(A) Then B(i) = A(i) & " " & B(i)
- Next
- Str = Join(B,vbCrLf)
- End If
- FSO.CreateTextFile("c.txt",True).Write Str
- MsgBox "OK"
复制代码
|