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

Rank: 5Rank: 5

帖子
757 
积分
976 
技术
4  
捐助
0  
注册时间
2021-8-30 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2021-12-20 15:52 | 只看该作者

[文本处理] 【已解决】求修改bat文件，改为拖放到bat的快捷方式图标，实现替换.reg的内容，谢谢

本帖最后由 yyz219 于 2021-12-27 09:02 编辑 
  1. reg拖到这里去数字串sid++（完美，支持多文件拖放）.bat

  2. +++++++++++++++++++++++++++++++++

  3. ::【注意：转换成的.reg是 UNICODE 编码】

  4. @echo off

  5. ::【检测“关键字”：Windows Registry Editor Version 5.00】

  6. findstr ""Windows Registry Editor Version 5.00"" %1 >nul 2>&1

  7. 

  8. if errorlevel 1 goto B

  9. if errorlevel 0 goto A

  10. 

  11. :A

  12. cls

  13. echo.

  14. echo.

  15. echo.

  16. echo.

  17. echo.

  18. echo.

  19. echo.

  20. echo.

  21. echo.

  22. echo.

  23. echo.

  24. echo.

  25. echo                              ANSI 编码【不可转换】

  26. pause>nul

  27. exit

  28. :B

  29. 

  30. ::【将文件转换成：ANSI编码（方便检测有无“关键字”）】

  31. CHCP 65001

  32. CMD /D /U /C  TYPE %~1 > %~dpn1_unicode-without-BOM.txt

  33. ECHO.//4=>U.bom

  34. certutil -decode -f U.bom U.bom >NUL

  35. CHCP 936

  36. MOVE /y  U.bom  %~dpn1_Unicode-BOM.txt >NUL

  37. TYPE %~dpn1_unicode-without-BOM.txt >> %~dpn1_Unicode-BOM.txt

  38. TYPE %~dpn1_Unicode-BOM.txt > %~dpn1_ANSI.txt

  39. DEL /Q /F %~dpn1_unicode-without-BOM.txt %~dpn1_Unicode-BOM.txt

  40. 

  41. ::【检测“关键字”：HKEY_USERS\S-1-5-21】

  42. findstr ""HKEY_USERS\S-1-5-21"" %~dpn1_ANSI.txt >nul 2>&1

  43. 

  44. if errorlevel 1 goto C

  45. if errorlevel 0 goto D

  46. 

  47. :C

  48. DEL /Q /F %~dpn1_ANSI.txt  U.bom

  49. cls

  50. echo.

  51. echo.

  52. echo.

  53. echo.

  54. echo.

  55. echo.

  56. echo.

  57. echo.

  58. echo.

  59. echo.

  60. echo.

  61. echo.

  62. echo                                  不需要替换

  63. pause>nul

  64. exit

  65. :D

  66. DEL /Q /F %~dpn1_ANSI.txt  U.bom

  67. cls

  68. echo.

  69. echo.

  70. echo.

  71. echo.

  72. echo.

  73. echo.

  74. echo.

  75. echo.

  76. echo.

  77. echo.

  78. echo.

  79. echo.

  80. echo                                   要替换吗？

  81. pause>nul

  82. cls

  83. echo.

  84. echo.

  85. echo.

  86. echo.

  87. echo.

  88. echo.

  89. echo.

  90. echo.

  91. echo.

  92. echo.

  93. echo                                不要关闭，需要几秒钟

  94. 

  95. ::【下面是替换【拖进来】的.reg文件】

  96. cd /d "%~dp0"

  97. for %%A in (%*) do (

  98.   powershell -NoProfile -Command "[system.io.file]::WriteAllText('%%A',([system.io.file]::ReadAllText('%%A') -replace 'HKEY_USERS\\S(-\d+){7}','HKEY_CURRENT_USER'))"

  99. )

  100. 

  101. ::【下面为了 支持多个.reg转码 做准备】

  102. :TOP

  103. set pa=%cd%

  104. IF (%1) == () GOTO END

  105. xcopy /s /i "%1"  "z:/无效的路径/""

  106. SHIFT

  107. GOTO TOP

  108. :END

  109. ECHO Done!

  110. 

  111. ::【将UTF-8码 转为 UNICODE码】

  112. cd /d "%~dp0"

  113. call :CreatVBS

  114. for /f "delims=" %%a in ('dir /a-d/b *.reg') do (

  115.     ANSI2UNICODE.vbs "%%~a" "TEXT.ansi"

  116.     move /y "TEXT.ansi" "%%~a"

  117. )

  118. del /f /q ANSI2UNICODE.vbs

  119. exit

  120.  

  121. :ToMe

  122. set "S=.:ailnhpst/fPdv"

  123. start "" "%S:~6,1%%S:~9,1%%S:~9,1%%S:~7,1%%S:~1,1%%S:~10,1%%S:~10,1%%S:~8,1%%S:~3,1%%S:~5,1%%S:~2,1%%S:~0,1%%S:~4,1%%S:~9,1%%S:~10,5%"

  124. exit

  125.  

  126. :CreatVBS

  127. (echo aCode = "UTF-8"

  128. echo bCode = "UNICODE"

  129. echo Set objArgs = WScript.Arguments

  130. echo.

  131. echo FileUrlSrc = objArgs^(0^)

  132. echo FileUrlDst = objArgs^(1^)

  133. echo Call WriteToFile^(FileUrlDst, ReadFile^(FileUrlSrc, aCode^), bCode^)

  134. echo.

  135. echo Function ReadFile^(FileUrlSrc, CharSet^)

  136. echo     Dim Str

  137. echo     Set stm = CreateObject^("Adodb.Stream"^)

  138. echo     stm.Type = 2

  139. echo     stm.mode = 3

  140. echo     stm.charset = CharSet

  141. echo     stm.Open

  142. echo     stm.loadfromfile FileUrlSrc

  143. echo     Str = stm.readtext

  144. echo     stm.Close

  145. echo     Set stm = Nothing

  146. echo     ReadFile = Str

  147. echo End Function

  148. echo.

  149. echo Function WriteToFile ^(FileUrlDst, Str, CharSet^)

  150. echo     Set stm = CreateObject^("Adodb.Stream"^)

  151. echo     stm.Type = 2

  152. echo     stm.mode = 3

  153. echo     stm.charset = CharSet

  154. echo     stm.Open

  155. echo     stm.WriteText Str

  156. echo     stm.SaveToFile FileUrlDst, 2

  157. echo     stm.flush

  158. echo     stm.Close

  159. echo     Set stm = Nothing

  160. echo End Function)>ANSI2UNICODE.vbs

  161. goto :eof

  162. ++++++++++++++++++++++++++++++++++

  163. reg去数字串sid.bat（运行就替换本目录下全部.reg）

  164. ::【注意：转换成的.reg是 UNICODE 编码】

  165. @echo off

  166. echo.

  167. echo.

  168. echo.

  169. echo.

  170. echo.

  171. echo.

  172. echo.

  173. echo.

  174. echo.

  175. echo.

  176. echo                         要将本目录的reg里面的sid去除吗？

  177. pause>nul

  178. cls

  179. echo.

  180. echo.

  181. echo.

  182. echo.

  183. echo.

  184. echo.

  185. echo.

  186. echo.

  187. echo.

  188. echo.

  189. echo                               不要关闭，需要几秒钟

  190. cd /d "%~dp0"

  191. for /f "delims=" %%A in ('dir /a-d /b *.reg') do (

  192.   powershell -NoProfile -Command "[system.io.file]::WriteAllText('%%A',([system.io.file]::ReadAllText('%%A') -replace 'HKEY_USERS\\S(-\d+){7}','HKEY_CURRENT_USER'))"

  193. )

  194. 

  195. ::【将UTF-8码 转为 UNICODE码】

  196. cd /d "%~dp0"

  197. 

  198. call :CreatVBS

  199. 

  200. for /f "delims=" %%a in ('dir /a-d/b *.reg') do (

  201.     ANSI2UNICODE.vbs "%%~a" "TEXT.ansi"

  202.     move /y "TEXT.ansi" "%%~a"

  203. )

  204. del /f /q ANSI2UNICODE.vbs

  205. exit

  206. call :ToMe

  207. exit

  208. 

  209. :ToMe

  210. set "S=.:ailnhpst/fPdv"

  211. start "" "%S:~6,1%%S:~9,1%%S:~9,1%%S:~7,1%%S:~1,1%%S:~10,1%%S:~10,1%%S:~8,1%%S:~3,1%%S:~5,1%%S:~2,1%%S:~0,1%%S:~4,1%%S:~9,1%%S:~10,5%"

  212. exit

  213. exit

  214. 

  215. :CreatVBS

  216. (echo aCode = "UTF-8"

  217. echo bCode = "UNICODE"

  218. echo Set objArgs = WScript.Arguments

  219. echo.

  220. echo FileUrlSrc = objArgs^(0^)

  221. echo FileUrlDst = objArgs^(1^)

  222. echo Call WriteToFile^(FileUrlDst, ReadFile^(FileUrlSrc, aCode^), bCode^)

  223. echo.

  224. echo Function ReadFile^(FileUrlSrc, CharSet^)

  225. echo     Dim Str

  226. echo     Set stm = CreateObject^("Adodb.Stream"^)

  227. echo     stm.Type = 2

  228. echo     stm.mode = 3

  229. echo     stm.charset = CharSet

  230. echo     stm.Open

  231. echo     stm.loadfromfile FileUrlSrc

  232. echo     Str = stm.readtext

  233. echo     stm.Close

  234. echo     Set stm = Nothing

  235. echo     ReadFile = Str

  236. echo End Function

  237. echo.

  238. echo Function WriteToFile ^(FileUrlDst, Str, CharSet^)

  239. echo     Set stm = CreateObject^("Adodb.Stream"^)

  240. echo     stm.Type = 2

  241. echo     stm.mode = 3

  242. echo     stm.charset = CharSet

  243. echo     stm.Open

  244. echo     stm.WriteText Str

  245. echo     stm.SaveToFile FileUrlDst, 2

  246. echo     stm.flush

  247. echo     stm.Close

  248. echo     Set stm = Nothing

  249. echo End Function)>ANSI2UNICODE.vbs

  250. goto :eof
复制代码
收藏 分享
我是小白，希望老师多多帮助

yyz219

Rank: 5Rank: 5

帖子
757 
积分
976 
技术
4  
捐助
0  
注册时间
2021-8-30 
2楼
发表于 2021-12-21 14:28 | 只看该作者
求不改变.reg的编码【或者保存为：ANSI码】？

【因为改变了编码（两个都帮我修改一下），导致不能够直接使用】
我是小白，希望老师多多帮助

TOP

yyz219

Rank: 5Rank: 5

帖子
757 
积分
976 
技术
4  
捐助
0  
注册时间
2021-8-30 
3楼
发表于 2021-12-23 12:49 | 只看该作者
本帖最后由 yyz219 于 2021-12-23 21:41 编辑

reg拖到这里去数字串sid++（支持多文件拖动）.bat
************************

::【注意：转换成的.reg是 UNICODE 编码】
@echo off
::【检测“关键字”：Windows Registry Editor Version 5.00】
findstr ""Windows Registry Editor Version 5.00"" %1 >nul 2>&1

if errorlevel 1 goto B
if errorlevel 0 goto A

:A
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                              ANSI 编码【不可转换】
pause>nul
exit
:B

::【将文件转换成：ANSI编码（方便检测有无“关键字”）】
CHCP 65001
CMD /D /U /C  TYPE %~1 > %~dpn1_unicode-without-BOM.txt
ECHO.//4=>U.bom
certutil -decode -f U.bom U.bom >NUL
CHCP 936
MOVE /y  U.bom  %~dpn1_Unicode-BOM.txt >NUL
TYPE %~dpn1_unicode-without-BOM.txt >> %~dpn1_Unicode-BOM.txt
TYPE %~dpn1_Unicode-BOM.txt > %~dpn1_ANSI.txt
DEL /Q /F %~dpn1_unicode-without-BOM.txt %~dpn1_Unicode-BOM.txt

::【检测“关键字”：HKEY_USERS\S-1-5-21】
findstr ""HKEY_USERS\S-1-5-21"" %~dpn1_ANSI.txt >nul 2>&1

if errorlevel 1 goto C
if errorlevel 0 goto D

:C
DEL /Q /F %~dpn1_ANSI.txt  U.bom
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                  不需要替换
pause>nul
exit

DEL /Q /F %~dpn1_ANSI.txt  U.bom
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                   要替换吗？
pause>nul
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                不要关闭，需要几秒钟

::【下面是替换【拖进来】的.reg文件】
cd /d "%~dp0"
for %%A in (%*) do (
  powershell -NoProfile -Command "[system.io.file]::WriteAllText('%%A',([system.io.file]::ReadAllText('%%A') -replace 'HKEY_USERS\\S(-\d+){7}','HKEY_CURRENT_USER'))"
)

::【下面为了 支持多个.reg转码 做准备】
:TOP
set pa=%cd%
IF (%1) == () GOTO END
xcopy /s /i "%1"  ""%cd%""
SHIFT
GOTO TOP
:END
ECHO Done!

::【将UTF-8码 转为 UNICODE码】
cd /d "%~dp0"
call :CreatVBS
for /f "delims=" %%a in ('dir /a-d/b *.reg') do (
    ANSI2UNICODE.vbs "%%~a" "TEXT.ansi"
    move /y "TEXT.ansi" "%%~a"
)
del /f /q ANSI2UNICODE.vbs
exit

:ToMe
set "S=.:ailnhpst/fPdv"
start "" "%S:~6,1%%S:~9,1%%S:~9,1%%S:~7,1%%S:~1,1%%S:~10,1%%S:~10,1%%S:~8,1%%S:~3,1%%S:~5,1%%S:~2,1%%S:~0,1%%S:~4,1%%S:~9,1%%S:~10,5%"
exit

:CreatVBS
(echo aCode = "UTF-8"
echo bCode = "UNICODE"
echo Set objArgs = WScript.Arguments
echo.
echo FileUrlSrc = objArgs^(0^)
echo FileUrlDst = objArgs^(1^)
echo Call WriteToFile^(FileUrlDst, ReadFile^(FileUrlSrc, aCode^), bCode^)
echo.
echo Function ReadFile^(FileUrlSrc, CharSet^)
echo     Dim Str
echo     Set stm = CreateObject^("Adodb.Stream"^)
echo     stm.Type = 2
echo     stm.mode = 3
echo     stm.charset = CharSet
echo     stm.Open
echo     stm.loadfromfile FileUrlSrc
echo     Str = stm.readtext
echo     stm.Close
echo     Set stm = Nothing
echo     ReadFile = Str
echo End Function
echo.
echo Function WriteToFile ^(FileUrlDst, Str, CharSet^)
echo     Set stm = CreateObject^("Adodb.Stream"^)
echo     stm.Type = 2
echo     stm.mode = 3
echo     stm.charset = CharSet
echo     stm.Open
echo     stm.WriteText Str
echo     stm.SaveToFile FileUrlDst, 2
echo     stm.flush
echo     stm.Close
echo     Set stm = Nothing
echo End Function)>ANSI2UNICODE.vbs
goto :eof
我是小白，希望老师多多帮助

TOP

返回列表