vbs做练习...- Set FSO = CreateObject("Scripting.FileSystemObject")
- Set File = FSO.OpenTextFile("1.txt",1)
- Do Until File.AtEndOfStream
- strLine = File.ReadLine
- If strLine = Replace(strLine,"-","") Then
- strOut = strOut & strLine & vbCrLf
- Else
- Arr = Split(strLine,"-")
- For i = Arr(0) To Arr(1)
- strOut = strOut & i & vbCrLf
- Next
- End If
- Loop
- 'FSO.CreateTextFile("2.txt",True).Write strOut
- MsgBox strOut
复制代码
|