Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/batch-file/5.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Batch file 如何将此特定vbs脚本拆分为2行或3行?_Batch File_Vbscript - Fatal编程技术网

Batch file 如何将此特定vbs脚本拆分为2行或3行?

Batch file 如何将此特定vbs脚本拆分为2行或3行?,batch-file,vbscript,Batch File,Vbscript,这个脚本非常适合我,但是请告诉我如何将消息分成2行或3行显示在弹出窗口中 @echo off call :MsgBox "Would you like to go to URL?" "VBYesNo+VBQuestion" "Click yes to go to URL" if errorlevel 7 ( echo NO - don't go to the url ) else if errorlevel 6 ( echo YES - go to the url s

这个脚本非常适合我,但是请告诉我如何将消息分成2行或3行显示在弹出窗口中

@echo off

call :MsgBox "Would you like to go to URL?"  "VBYesNo+VBQuestion" "Click yes to go to URL"
if errorlevel 7 (
    echo NO - don't go to the url
) else if errorlevel 6 (
    echo YES - go to the url
    start "" "http://www.google.com"
)

exit /b

:MsgBox prompt type title
setlocal enableextensions
set "tempFile=%temp%\%~nx0.%random%%random%%random%vbs.tmp"
>"%tempFile%" echo(WScript.Quit msgBox("%~1",%~2,"%~3") & cscript //nologo //e:vbscript "%tempFile%"
set "exitCode=%errorlevel%" & del "%tempFile%" >nul 2>nul
endlocal & exit /b %exitCode%

如果您将行的文本编码如下:

"Line 1" & vbCrLf & "Line 2" & vbCrLf & "Line 3"  
Line 1  
Line 2  
Line 3  
您将得到如下结果:

"Line 1" & vbCrLf & "Line 2" & vbCrLf & "Line 3"  
Line 1  
Line 2  
Line 3  

希望这有帮助。

这是一个可以测试的想法:

@echo关闭
设置“URL”=https://www.google.com"
调用:MsgBox“是否要转到URL:%URL%?\n是转到此URL\n或\n否退出此脚本”^
“VBYesNo+VBQuestion”“单击“是”转到URL”
如果错误级别为7(
回显否-不转到url
)否则,如果错误级别为6(
回显是-转到url
启动“”%URL%
)
退出/b
:MsgBox提示类型标题
setLocalEnableExtensions
设置“tempFile=%temp%\%~nx0.%random%%random%%random%vbs.tmp”
>“%tempFile%”echo(WScript.Quit-MsgBox(替换(“%$1”,“\n”,vbcrlf)、%%2、%%3”)&cscript//nologo//e:vbscript“%tempFile%”
设置“exitCode=%errorlevel%”&删除“%tempFile%”nul 2>nul
结束本地和退出/b%exitCode%

这是批处理文件而不是VBA.call:MsgBox“第1行”和“第2行”和“第3行”VBYesNo+VBQuestion“单击“是”转到URL”@user854146在这种情况下,您应该将此答案标记为已接受。我想知道,为什么这里的人会对此答案投反对票???如果这值得投反对票,请至少留下一条评论,告诉我们原因!