bat 其中一段代码怎么运行2次？

hentai87 · 发表于 2020-6-4 15:10:45

本帖最后由 hentai87 于 2020-6-4 15:22 编辑

不想直接复制一次，以后要是改的话要改2个地方，而且复制2次，会加长代码
顺便问下，怎么优化括号，很多for 和if 弄的括号很多很乱

@echo off
cd /d %~dp0
%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
taskkill /f /im DismHost.exe
taskkill /f /im dism.exe
setlocal EnableDelayedExpansion
::-------------------第一次
for /f "delims=:" %%a in ('findstr /n msmg设置 ..\set.txt') do set n=%%a
for /f "skip=%n% delims=" %%b in (..\set.txt) do (
for /f "tokens=1,2* delims=: " %%A in ('%%b\Bin\x64\DISM10\dism.exe /NoRestart /image:%%b\Mount\Install /Get-Capabilities') do (
if "%%A %%B"=="Capability Identity" (
set CapId=%%C
) else if "%%A"=="State" if "%%B"=="Installed" (
cd. >list.txt
echo !CapId!>>list.txt
findstr /g:black_list.txt /v list.txt 2>nul
if errorlevel 2 (
for /f "delims=" %%i in (list.txt) do (
%%b\Bin\x64\DISM10\dism.exe /image:%%b\Mount\Install /Remove-Capability /CapabilityName:"%%i"
)
) else (
for /f "delims=" %%i in ('findstr /g:black_list.txt /v list.txt 2^>nul') do (
%%b\Bin\x64\DISM10\dism.exe /image:%%b\Mount\Install /Remove-Capability /CapabilityName:"%%i"
)
))))
::-------------------第二次
endlocal
pause
exit /b

复制代码

went · 发表于 2020-6-4 16:10:52

set a=0
:run
...
set /a a+=1
if %a% lss 2 goto :run

went · 发表于 2020-6-4 16:36:34

你这括号太乱了,我尽力了
注意缩进和对齐,多换几行也无所谓,主要是要看的清楚

@echo off
cd /d %~dp0
%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
taskkill /f /im DismHost.exe
taskkill /f /im dism.exe
setlocal EnableDelayedExpansion
set a=0
:run
for /f "delims=:" %%a in ('findstr /n msmg设置 ..\set.txt') do set n=%%a
for /f "skip=%n% delims=" %%b in (..\set.txt) do (
for /f "tokens=1,2* delims=: " %%A in ('%%b\Bin\x64\DISM10\dism.exe /NoRestart /image:%%b\Mount\Install /Get-Capabilities') do (
if "%%A %%B"=="Capability Identity" (
set CapId=%%C
) else if "%%A"=="State" if "%%B"=="Installed" (
cd. >list.txt
echo !CapId!>>list.txt
findstr /g:black_list.txt /v list.txt 2>nul
if errorlevel 2 (
for /f "delims=" %%i in (list.txt) do (
%%b\Bin\x64\DISM10\dism.exe /image:%%b\Mount\Install /Remove-Capability /CapabilityName:"%%i"
)
) else (
for /f "delims=" %%i in ('findstr /g:black_list.txt /v list.txt 2^>nul') do (
%%b\Bin\x64\DISM10\dism.exe /image:%%b\Mount\Install /Remove-Capability /CapabilityName:"%%i"
)
)
)
)
)
set /a a+=1
if %a% lss 2 goto :run
endlocal
pause
exit /b

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] bat 其中一段代码怎么运行2次？