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
求代码 谢谢了
换行 批处理
答案:2 悬赏:40 手机版
解决时间 2021-03-07 16:32
- 提问者网友:城市野鹿
- 2021-03-07 10:58
最佳答案
- 五星知识达人网友:人類模型
- 2021-03-07 12:26
保存为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
: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
全部回答
- 1楼网友:持酒劝斜阳
- 2021-03-07 12:38
对于if和for命令来说,如果换行则 [必须] 加括号,并且换行的话必须将括号的左半边保留在if和for的同一行,这样就肯定不会出错。
例如:
if !d!==%%i (
echo !d!)
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯