中国DOS联盟

@echo off
:: 把顶楼内容保存为 test.txt 后再运行本脚本
:: 查看del.reg的内容没错误之后再运行del.reg
:: 若本脚本能满足需要，则把最后两行行首的 :: 去掉就能自动删除相关注册表项

echo Windows Registry Editor Version 5.00>del.reg
echo.>>del.reg
setlocal enabledelayedexpansion
for /f "tokens=1 delims=>" %%i in (test.txt) do (
    set var=%%i
    if "!var:~0,2!"=="HK" (
        set var=!var:~0,-2!
        set var=!var:HKLM\=HKEY_LOCAL_MACHINE\!
        set var=!var:HKU\=HKEY_USERS\!
        echo [-!var!]>>del.reg
        echo.>>del.reg
    )
)
:: regedit /s del.reg
:: del /q del.reg

@echo off
echo Windows Registry Editor Version 5.00>del.reg
echo.>>del.reg
for /f "tokens=1 delims=>" %%i in (test.txt) do (
    call :build_reg "%%i"
   
)
:: regedit /s del.reg
:: del /q del.reg
goto :eof

:build_reg
set var=%1
set var=%var:~1,-3%
if "%var:~0,2%"=="HK" (
    set var=%var:HKLM\=HKEY_LOCAL_MACHINE\%
    set var=%var:HKU\=HKEY_USERS\%
    echo [-%var%]>>del.reg
    echo.>>del.reg
)
goto :eof