apang

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
复制代码