Question

换行 批处理

cd I:\ start "" 3.bat @ping -n 1 127.1 >nul
需要批处理 成
cd I:\
start "" 3.bat
@ping -n 45 127.1 >nul

遇到start ，@ 换行
并修改@ping -n 1 127.1 >nul 为 @ping -n 45 127.1 >nul
求代码 谢谢了

Answer 1

保存为bat

:On Error Resume Next 
Sub bat
echo off & cls 
start cscript -e:vbs "%~f0" 
Exit Sub 
End Sub 
'=========以下是需要自定义的内容===
Dim dirSour,aryString
 '设置文件目录
  dirSour="D:\temp"
  aryString=Array("start","@")
'=========自定义内容结束=========== 
'遍历一个文件夹下所有文件，但不包含子目录
    Set oFso = CreateObject("Scripting.FileSystemObject")    
    Set oFolder = oFso.GetFolder(dirSour)    
    '读取文件   
    Set oFiles = oFolder.Files    
    For Each oFile In oFiles    
        set stream = oFso.opentextfile(oFile,1)
		content = stream.readall()
		'替换字符
		For Each str In aryString 
  		content = replace(content,str,Chr(13)&Chr(10)&str)
  		next
		'保存修改
		set stream = oFso.opentextfile(oFile,2)
		call stream.write(content)
		call stream.close()
    Next              
    Set oFolder = Nothing     
    Set oFso = Nothing    
    wsh.echo "修改成功，2秒后退出"
wsh.sleep 2000