- Set FSO = CreateObject("Scripting.FileSystemObject")
- Set File = FSO.OpenTextFile("a.txt",1)
- A = Split(File.ReadAll,vbCrLf)
- For i = 0 To UBound(A)
- If Trim(A(i)) = "" Then
- N = N + 1
- Str = Str & N & vbCrLf
- Else
- Str = Str & A(i) & vbCrLf
- End If
- Next
- FSO.CreateTextFile("b.txt",True).Write Str
复制代码 保存为test.vbs,与a.txt放在同一位置,试试看 |