【已解决】求bat：删除文本中指定内容（内容是固定的）——reg转bat （拖）

yyz219

1. 完美解决了
   
2. 
   
3. reg转bat（拖）.bat
   
4. 
   
5. ::【生成的bat文件在桌面，保存时 “右键——粘贴”】
   
6. @echo off
   
7. clip.exe < "%~pd1\%~n1%~x1"                    %【复制reg内容 到剪切板】%
   
8. start "" """C:\Users\Administrator\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\显示桌面.lnk"""  %【转到桌面】%
   
9. start "" "%~dp0\RegConvert.exe"                %【启动bat目录里的 RegConvert.exe】%
   
10. :A
    
11. timeout  /t  1    >nul 2>nul                   %【延时1秒不显示内容】%
    
12. tasklist|findstr /i "RegConvert.exe"&&goto :B  %【注：检测"RegConvert.exe"进程，有就跳到:B，没有就跳到:A】%
    
13. goto :A
    
14. :B
    
15. "%~dp0\快捷键.vbs"
    
16. echo %~n1 | clip                               %【复制文件名】%
    
17. "%~dp0\粘贴复制文件名.vbs"
    
18. :C
    
19. timeout  /t  1    >nul 2>nul                   %【延时1秒不显示内容】%
    
20. tasklist|findstr /i "RegConvert.exe"&&goto :C  %【注：检测"RegConvert.exe"进程，有就跳到:C，没有就往下运行】%
    
21. :: 【解压bat目录里的 “需要删除内容.rar” 到桌面】
    
22. set path=%path%;c:\program files\winrar
    
23. rar  x -y  "%~dp0\需要删除内容.rar"  "D:\桌面\Desktop\"
    
24. cd /d "D:\桌面\Desktop\"                                    %【进入桌面】%
    
25. ::【下面两次删除内容: c.txt为过渡性文件，"%~n1.bat" = 原名.bat】
    
26. findstr /v /g:需要删除内容1.txt "%~n1.bat" >"c.txt"
    
27. findstr /v /g:需要删除内容2.txt "c.txt" >"%~n1.bat"
    
28. del  c.txt  需要删除内容1.txt  需要删除内容2.txt .bat h.bat   %【删除无用~文件】%
    
29. RD /S /Q      "_"                                           %【删除废~文件夹】%
    
30. ::%【删除："桌面"里，0字节bat文件】%
    
31. Set f="D:\桌面\Desktop\"
    
32. For /f "tokens=*" %%i in ('dir /os /b /s "%f%\*.bat"') do (If "%%~zi"=="0" (Del /q /f "%%i"))
    
33. exit
    
34. ::*************************************************************************
    
35. ::【设全文为a.txt，需要删除的内容在b.txt，删除之后为c.txt】
    
36. ::findstr /v /g:b.txt a.txt >c.txt
    
37. ::【特别注意】
    
38. ::findstr /v /g:需要删除内容1.txt "%~n1.bat" >"c.txt"————————右边不能有注释
    
39. ::findstr /v /g:需要删除内容2.txt c.txt >"%~n1.bat"——————————右边不能有注释

复制代码

for_flr

设全文为a.txt，需要删除的为b.txt，删除之后为c.txt

1. findstr /v /g:b.txt a.txt >c.txt

复制代码

yyz219

回复 2# for_flr

我去试一试先。谢谢！

yyz219

回复 2# for_flr

没有成功，变成：
@Echo Off
cd %systemroot%\system32

Reg.exe add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\MpsSvc\Parameters\PortKeywords\DHCP" /v "Collection" /t REG_BINARY /d "" /f
Reg.exe add "HKEY_USERS\S-1-5-21-3291519012-2868546545-2290023086-500\Console" /v "WindowPosition" /t REG_DWORD /d "9830700" /f
Exit

Reg.exe query "HKU\S-1-5-19\Environment"

for_flr

奇怪，确实有一行没过滤掉

1. #@&cls&powershell -c "type '%~0'|out-string|iex"&pause&exit
   
2. $delete=gc b.txt
   
3. $txt=gc a.txt
   
4. foreach ($line in $txt){
   
5.     if ($delete -notcontains $line){add-content c.txt $line}
   
6. }

复制代码

也可以这样解决。

yyz219

回复 5# for_flr


   能够成功，就是有一点慢，能够加快速度吗？谢谢

for_flr

1. #@&cls&powershell -c "type '%~0'|out-string|iex"
   
2. $delete=gc b.txt
   
3. $txt=gc a.txt
   
4. foreach ($line in $txt){
   
5.     if ($delete -notcontains $line){$new+="$line `r`n"}
   
6. }
   
7. sc c.txt $new

复制代码

大概会快那么一丝丝。

qixiaobin0715

回复 5# for_flr
2楼代码加个参数/l试试。

yyz219

回复  for_flr
2楼代码加个参数/l试试。
qixiaobin0715 发表于 2022-1-4 12:10

还有一行没有去除：
@Echo Off

Reg.exe add "HKEY_CURRENT_USER\Software\UltraSnap\UltraCapture\Auto" /v "Restore" /t REG_DWORD /d "0" /f
Exit

Pause & Exit————————这行没有去

for_flr

1. @echo off
   
2. for /f "delims=" %%a in (b.txt) do set "%%a=0"
   
3. (for /f "delims=" %%a in (a.txt) do (
   
4.     if not defined %%a echo;%%a
   
5. ))>c.txt

复制代码

快如闪电的纯批；没想到powershell这么不受待见。。。。。。。。。。

yyz219

快如闪电的纯批；没想到powershell这么不受待见。。。。。。。。。。
for_flr 发表于 2022-1-4 12:54

    @Echo Off
Reg.exe add "HKEY_CURRENT_USER\Software\UltraSnap\UltraCapture\Auto" /v "Restore" /t REG_DWORD /d "0" /f
Exit
Cls & Echo You must have administrator rights to continue ...
Pause & Exit

qixiaobin0715

win10系统测试，2楼代码也没问题：

1. Microsoft Windows [版本 10.0.19042.1415]
   
2. (c) Microsoft Corporation。保留所有权利。
   
3. 
   
4. C:\Users\Administrator>cd desktop
   
5. 
   
6. C:\Users\Administrator\Desktop>type a.txt
   
7. @Echo Off
   
8. Title Reg Converter v1.1 & Color 1A
   
9. cd %systemroot%\system32
   
10. call :IsAdmin
    
11. 
    
12. Reg.exe add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\MpsSvc\Parameters\PortKeywords\DHCP" /v "Collection" /t REG_BINARY /d "" /f
    
13. Reg.exe add "HKEY_USERS\S-1-5-21-3291519012-2868546545-2290023086-500\Console" /v "WindowPosition" /t REG_DWORD /d "9830700" /f
    
14. Exit
    
15. 
    
16. 
    
17. :IsAdmin
    
18. Reg.exe query "HKU\S-1-5-19\Environment"
    
19. If Not %ERRORLEVEL% EQU 0 (
    
20. Cls & Echo You must have administrator rights to continue ...
    
21. Pause & Exit
    
22. )
    
23. Cls
    
24. goto:eof
    
25. C:\Users\Administrator\Desktop>type b.txt
    
26. @Echo Off
    
27. Title Reg Converter v1.1 & Color 1A
    
28. cd %systemroot%\system32
    
29. call :IsAdmin
    
30. :IsAdmin
    
31. Reg.exe query "HKU\S-1-5-19\Environment"
    
32. If Not %ERRORLEVEL% EQU 0 (
    
33. Cls & Echo You must have administrator rights to continue ...
    
34. Pause & Exit
    
35. )
    
36. Cls
    
37. goto:eof
    
38. C:\Users\Administrator\Desktop>type test11.bat
    
39. @echo off
    
40. findstr /v /g:b.txt a.txt
    
41. pause
    
42. C:\Users\Administrator\Desktop>test11.bat
    
43. 
    
44. Reg.exe add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\MpsSvc\Parameters\PortKeywords\DHCP" /v "Collection" /t REG_BINARY /d "" /f
    
45. Reg.exe add "HKEY_USERS\S-1-5-21-3291519012-2868546545-2290023086-500\Console" /v "WindowPosition" /t REG_DWORD /d "9830700" /f
    
46. Exit
    
47. 
    
48. 
    
49. 请按任意键继续. . .

复制代码

yyz219

回复 12# qixiaobin0715


    我的系统是window7  64

qixiaobin0715

难道与系统也有关。
https://mp.weixin.qq.com/s/6lbb97qUOs1sTyKJfN0ZEQ
试试04、05条能否解决问题。