本帖最后由 pcl_test 于 2015-4-4 10:22 编辑
- '&cls&@echo off&cscript -nologo -e:vbscript %~fs0 & exit /b
- Set FSO = CreateObject("Scripting.FileSystemObject")
- For Each NowLine In Split(FSO.OpenTextFile("1.txt",1,true).ReadAll,vbCrLf)
- For Each NowNum In Split("0 1 2 3 4 5 6 7 8 9")
- If InStr(NowLine,NowNum)=0 Then NewLine = NewLine & NowNum
- Next
- InnMsg = InnMsg & NowLine & " " & NewLine & vbCrLf
- NewLine = ""
- Next
- Set WF = FSO.OpenTextFile("2.txt",2,True)
- WF.Write InnMsg
- WF.Close
- 'Msgbox InnMsg
- Set FSO = Nothing
- Set WF = Nothing
复制代码
|