Board logo

标题: [文件操作] [已解决]批处理如何去除文件名中的指定字符？ [打印本页]
作者: temp    时间: 2010-12-17 12:50     标题: [已解决]批处理如何去除文件名中的指定字符？

最近经常把*.reg文件转换成*.inf文件，生成的新文件名是*.reg.inf，过去是手工去掉.inf前面的.reg，现在希望能用批处理的办法解决

如：“禁止运行.reg.inf”，用批处理删除其中的“.reg”，最后变成“禁止运行.inf”

从网上搜了好几天了，一直没找到解决方案，特来此请教（不要用第三方软件，也不要用vbs）
谢谢！

[ 本帖最后由 temp 于 2010-12-18 23:27 编辑 ]
作者: Batcher    时间: 2010-12-17 13:24

你是用哪个工具把reg转换成inf的？那个工具里面不能设置新文件名？
作者: temp    时间: 2010-12-17 18:32

原帖由 Batcher 于 2010-12-17 13:24 发表
你是用哪个工具把reg转换成inf的？那个工具里面不能设置新文件名？


我用的是reg2inf.com,用批处理调用,这几天改进了调用代码,不用输入文件名了
  1.  @echo off

  2. title=   测试，去处文件名中的特定字符

  3. %~d1

  4. cd %~p1

  5. set "file=%~nx1%"

  6. set "hole=%~x1%"

  7. if 0%hole% equ 0.reg goto run

  8. :run

  9. "%~dp0reg2inf.com" "%file%">nul
复制代码
作者: Batcher    时间: 2010-12-17 19:07

  1. @echo off

  2. for %%a in (*.reg.inf) do (

  3.     for %%h in ("%%~na") do (

  4.         ren "%%a" "%%~nh.inf"

  5.     )

  6. )
复制代码
作者: temp    时间: 2010-12-17 19:28

原帖由 Batcher 于 2010-12-17 19:07 发表
@echo off
for %%a in (*.reg.inf) do (
    for %%h in ("%%~na") do (
        ren "%%a" "%%~nh.inf"
    )
)

太感谢了,谢谢!

经测试达到了要求,更名成功!

待改日在我个人的系统中测试成功后再标注已解决字样
作者: temp    时间: 2010-12-18 23:27

原帖由 Batcher 于 2010-12-17 19:07 发表
@echo off
for %%a in (*.reg.inf) do (
    for %%h in ("%%~na") do (
        ren "%%a" "%%~nh.inf"
    )
)

谢谢!

在xp sp3 和2k3 sp2 环境下测试成功
作者: hanyeguxing    时间: 2010-12-19 00:52

  1. @echo off&setlocal enabledelayedexpansion

  2. for %%a in (*.reg.inf) do (

  3.         set a=%%a

  4.         ren "%%a" "!a:~0,-7!inf"

  5. )
复制代码

[ 本帖最后由 hanyeguxing 于 2010-12-19 00:55 编辑 ]
作者: temp    时间: 2010-12-19 01:08

原帖由 hanyeguxing 于 2010-12-19 00:52 发表
@echo off&setlocal enabledelayedexpansion
for %%a in (*.reg.inf) do (
        set a=%%a
        ren "%%a" "!a:~0,-7!inf"
)


谢谢!

改名成功~~~
作者: vigiles    时间: 2010-12-20 18:28     标题: 请出个清晰地教程

各位老师，一帖又一帖，么意思啊？讲明白点...
作者: temp    时间: 2010-12-20 21:41

原帖由 vigiles 于 2010-12-20 18:28 发表
一帖又一帖，么意思啊？讲明白点...

举个转移"我的文档"到非系统盘的例子,注册表文件如下(已经改为d盘),导入到注册表后需要重启系统才能生效:
  1.  

  2. Windows Registry Editor Version 5.00

  3.  

  4. [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders]

  5. "Personal"=hex(2):64,00,3a,00,5c,00,44,00,6f,00,63,00,75,00,6d,00,65,00,6e,00,\

  6.   74,00,73,00,20,00,61,00,6e,00,64,00,20,00,53,00,65,00,74,00,74,00,69,00,6e,\

  7.   00,67,00,73,00,5c,00,41,00,64,00,6d,00,69,00,6e,00,69,00,73,00,74,00,72,00,\

  8.   61,00,74,00,6f,00,72,00,5c,00,4d,00,79,00,20,00,44,00,6f,00,63,00,75,00,6d,\

  9.   00,65,00,6e,00,74,00,73,00,00,00
复制代码


把reg文件转换成inf类型的文件后,内容如下,简单明了
:
  1.  [Version]

  2. Signature = "$Windows NT$"

  3. 

  4.  [DefaultInstall_Modift]

  5.  AddReg=_AddReg

  6.  [_AddReg]

  7. HKCU,"%Modift%","Personal",0x20000,"d:\Documents and Settings\%USERNAME%\My Documents"

  8. [Strings]

  9. Modift=Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders
复制代码


inf最大的用途是做绿色软件,以下是office2003绿色版绿化的inf文件(不运行它系统无法识别)
  1.  

  2. [Version]

  3. Signature="$CHICAGO$"

  4. [DefaultInstall]

  5. ; DelReg=_DelReg

  6. AddReg=_AddReg

  7. [_DelReg]

  8. [_AddReg]

  9. ;===================取消工具栏延迟==============================

  10. HKCU,"Software\Microsoft\Office\11.0\Common\Toolbars","AdaptiveMenus",0x10001,00,00,00,00

  11. ;=========================================================================

  12. HKCU,"Software\Microsoft\Office\11.0\PowerPoint\Options","StartupDialog",0x10001,00,00,00,00

  13. HKCU,"Software\Microsoft\Office\11.0\PowerPoint\First Run","FirstRun",0x10001,01,00,00,00

  14. HKCU,"Software\Microsoft\Office\11.0\Word\Options","FirstRun",0x10001,01,00,00,00

  15. HKCU,"Software\Microsoft\Office\11.0\Word\Options","StartupDialog",0x10001,00,00,00,00

  16. HKCU,"Software\Microsoft\Office\11.0\Excel\Options","FirstRun",0x10001,01,00,00,00

  17. HKCU,"Software\Microsoft\Office\11.0\Excel\Options","StartupDialog",0x10001,00,00,00,00

  18. HKLM,"SOFTWARE\Microsoft\Office\11.0\Common\InstallRoot","InstallCount",0x10001,01,00,00,00

  19. HKLM,"SOFTWARE\Microsoft\Office\11.0\Common\InstallRoot","Path",,"%01%\"

  20. HKLM,"SOFTWARE\Microsoft\Office\11.0\Common\FilesPaths","mso.dll",,"%01%\MSO.DLL"

  21. HKLM,"SOFTWARE\Microsoft\Office\11.0\Registration\{90110804-6000-11D3-8CFE-0150048383C9}","DigitalProductID",0x1,a4,00,00,00,03,00,00,00,37,33,39,34,31,2d,36,34,30,2d,\

  22.   30,30,30,30,31,30,36,2d,35,37,39,39,35,00,72,00,00,00,31,32,33,2d,31,32,33,\

  23.   34,35,00,00,00,00,00,00,00,00,35,4e,11,05,b8,18,0a,8a,53,ae,4c,0c,2e,01,00,\

  24.   00,00,00,00,bb,5d,71,45,41,46,0d,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\

  25.   00,00,00,00,00,00,00,00,00,00,00,32,34,38,30,30,00,00,00,00,00,00,00,00,00,\

  26.   00,00,ec,11,16,44,00,02,00,00,fa,17,00,00,00,00,00,00,00,00,00,00,00,00,00,\

  27.   00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,de,8f,3a,91

  28.   

  29. ;===================word================================================

  30. HKCU,"Software\Microsoft\Office\11.0\Common\Licensing","1EBDE4BC9A514630B5412561FA45CCC5",0x1,01,00,00,00,27,00,00,00,7b,39,30,31,31,\

  31.   30,38,30,34,2d,36,30,30,30,2d,31,31,44,33,2d,38,43,46,45,2d,30,31,35,30,30,\

  32.   34,38,33,38,33,43,39,7d,00,56,00,00,00,4d,00,69,00,63,00,72,00,6f,00,73,00,\

  33.   6f,00,66,00,74,00,20,00,4f,00,66,00,66,00,69,00,63,00,65,00,20,00,50,00,72,\

  34.   00,6f,00,66,00,65,00,73,00,73,00,69,00,6f,00,6e,00,61,00,6c,00,20,00,45,00,\

  35.   64,00,69,00,74,00,69,00,6f,00,6e,00,20,00,32,00,30,00,30,00,33,00,00,00

  36. ;=========================================================================

  37. ;===================excel================================================

  38. HKCU,"Software\Microsoft\Office\11.0\Common\Licensing","A2B280D420FB472099F740C09FBCE10A",0x1,01,00,00,00,27,00,00,00,7b,39,30,31,31,\

  39.   30,38,30,34,2d,36,30,30,30,2d,31,31,44,33,2d,38,43,46,45,2d,30,31,35,30,30,\

  40.   34,38,33,38,33,43,39,7d,00,56,00,00,00,4d,00,69,00,63,00,72,00,6f,00,73,00,\

  41.   6f,00,66,00,74,00,20,00,4f,00,66,00,66,00,69,00,63,00,65,00,20,00,50,00,72,\

  42.   00,6f,00,66,00,65,00,73,00,73,00,69,00,6f,00,6e,00,61,00,6c,00,20,00,45,00,\

  43.   64,00,69,00,74,00,69,00,6f,00,6e,00,20,00,32,00,30,00,30,00,33,00,00,00

  44. ;=========================================================================

  45. ;===================powerpoint=============================================

  46. HKCU,"Software\Microsoft\Office\11.0\Common\Licensing","C86C0B9263C04E358605281275C21F97",0x1,01,00,00,00,27,00,00,00,7b,39,30,31,31,\

  47.   30,38,30,34,2d,36,30,30,30,2d,31,31,44,33,2d,38,43,46,45,2d,30,31,35,30,30,\

  48.   34,38,33,38,33,43,39,7d,00,56,00,00,00,4d,00,69,00,63,00,72,00,6f,00,73,00,\

  49.   6f,00,66,00,74,00,20,00,4f,00,66,00,66,00,69,00,63,00,65,00,20,00,50,00,72,\

  50.   00,6f,00,66,00,65,00,73,00,73,00,69,00,6f,00,6e,00,61,00,6c,00,20,00,45,00,\

  51.   64,00,69,00,74,00,69,00,6f,00,6e,00,20,00,32,00,30,00,30,00,33,00,00,00

  52. ;=========================================================================

  53. 

  54. ;====================== 注册 word 文件关联 =======================

  55. HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Winword.exe","Path",,"%01%\"

  56. HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Winword.exe","useURL",,"1"

  57. HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Winword.exe",,,"%01%\WinWord.exe"

  58. HKCU,"Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.doc","Application",,"WinWord.exe"

  59. HKCU,"Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.doc\OpenWithList","b",,"WORDPAD.EXE"

  60. HKCU,"Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.doc\OpenWithList","MRUList",,"ab"

  61. HKCU,"Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.doc\OpenWithList","a",,"WinWord.exe"

  62. HKCR,"Applications\WINWORD.EXE\shell",,,"open"

  63. HKCR,"Applications\WINWORD.EXE\shell","FriendlyCacheCTime",0x1,00,B9,DD,34,87,8D,BE,01

  64. HKCR,"Applications\WINWORD.EXE\shell","FriendlyCache",,"Microsoft Word for Windows"

  65. HKCR,"Applications\WINWORD.EXE\shell\open\command",,,"%01%\WinWord.exe ""%%1"""

  66. HKCR,"Applications\WINWORD.EXE\DefaultIcon",,,"%01%\WinWord.exe,1"

  67. HKCR,"CLSID\{00020906-0000-0000-C000-000000000046}",,,"Microsoft Word 文档"

  68. HKCR,"CLSID\{00020906-0000-0000-C000-000000000046}\DefaultExtension",,,".doc,Word Document (.doc)"

  69. HKCR,"CLSID\{00020906-0000-0000-C000-000000000046}\DefaultIcon",,,"%01%\WinWord.exe,1"

  70. HKCR,"CLSID\{00020906-0000-0000-C000-000000000046}\ProgID",,,"Word.Document.8"

  71. HKCR,"CLSID\{00020906-0000-0000-C000-000000000046}\Version",,,"9"

  72. HKCR,"CLSID\{00020906-0000-0000-C000-000000000046}\VersionIndependentProgID",,,"Word.Document"

  73. HKCR,"CLSID\{00020906-0000-0000-C000-000000000046}\LocalServer32",,,"%01%\WinWord.exe"

  74. HKCU,"Software\Netscape\Netscape Navigator\Suffixes","application/rtf",,"RTF"

  75. HKCU,"Software\Netscape\Netscape Navigator\Suffixes","application/msword",,"DOC"

  76. HKCU,"Software\Netscape\Netscape Navigator\Viewers","TYPE4",,"application/msword"

  77. HKCU,"Software\Netscape\Netscape Navigator\Viewers","TYPE5",,"application/rtf"

  78. HKCU,"Software\Netscape\Netscape Navigator\Viewers","application/rtf",,"%01%\WinWord.exe"

  79. HKCU,"Software\Netscape\Netscape Navigator\Viewers","application/msword",,"%01%\WinWord.exe"

  80. HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Accepted Documents","*",,"application/msword"

  81. HKCR,"MIME\Database\Content Type\application/msword","Extension",,".doc"

  82. HKCR,".rtf",,,"Word.RTF.8"

  83. HKCR,".rtf","Content Type",,"application/msword"

  84. HKCR,"Word.RTF.8","EditFlags",0x1,00,00,01,00

  85. HKCR,"Word.RTF.8",,,"RTF 格式"

  86. HKCR,"Word.RTF.8\shell",,,"Open"

  87. HKCR,"Word.RTF.8\shell\Open",,,"打开(&O)"

  88. HKCR,"Word.RTF.8\shell\Open\command",,,"""%01%\WinWord.exe"" ""%%1"""

  89. HKCR,"Word.RTF.8\DefaultIcon",,,"%01%\WinWord.exe,1"

  90. HKCR,"Word.RTF.8\CLSID",,,"{00020906-0000-0000-C000-000000000046}"

  91. HKCR,".doc",,,"Word.Document.8"

  92. HKCR,".doc","Content Type",,"application/msword"

  93. HKCR,".doc\Word.Document.8\ShellNew","FileName",,"winword8.doc"

  94. HKCR,"Word.Document",,,"Microsoft Word 文档"

  95. HKCR,"Word.Document\CurVer",,,"Word.Document.8"

  96. HKCR,"Word.Document\CLSID",,,"{00020906-0000-0000-C000-000000000046}"

  97. HKCR,"Word.Document.8","EditFlags",0x1,00,00,01,00

  98. HKCR,"Word.Document.8",,,"Microsoft Word 文档"

  99. HKCR,"Word.Document.8\shell",,,"Open"

  100. HKCR,"Word.Document.8\shell\Open",,,"打开(&O)"

  101. HKCR,"Word.Document.8\shell\Open\command",,,"""%01%\WinWord.exe"" ""%%1"""

  102. HKCR,"Word.Document.8\protocol\StdFileEditing\server",,,"%01%\WinWord.exe"

  103. HKCR,"Word.Document.8\DefaultIcon",,,"%01%\WinWord.exe,1"

  104. HKCR,"Word.Document.8\CLSID",,,"{00020906-0000-0000-C000-000000000046}"

  105. HKCR,"Word.Document\CurVer",,,"Word.Document.8"

  106. HKCR,".dot",,,"Word.Template.8"

  107. HKCR,".dot","Content Type",,"application/msword"

  108. HKCR,"Word.Template.8","EditFlags",0x1,00,00,01,00

  109. HKCR,"Word.Template.8",,,"Microsoft Word 模板"

  110. HKCR,"Word.Template.8\shell",,,"Open"

  111. HKCR,"Word.Template.8\shell\Open",,,"打开(&O)"

  112. HKCR,"Word.Template.8\shell\Open\command",,,"""%01%\WinWord.exe"" ""%%1"""

  113. HKCR,"Word.Template.8\DefaultIcon",,,"%01%\WinWord.exe,2"

  114. HKCR,"Word.Template.8\CLSID",,,"{00020906-0000-0000-C000-000000000046}"

  115. ;=========================================================================

  116. ;====================== 注册 excel 文件关联 =======================

  117. HKCR,"Applications\Excel.exe\shell",,,"open"

  118. HKCR,"Applications\Excel.exe\shell","FriendlyCacheCTime",0x1,00,13,1B,B5,B5,8D,BE,01

  119. HKCR,"Applications\Excel.exe\shell","FriendlyCache",,"Microsoft Excel for Windows"

  120. HKCR,"Applications\Excel.exe\shell\open\command",,,"%01%\Excel.exe ""%%1"""

  121. HKCR,"Applications\Excel.exe\DefaultIcon",,,"%01%\Excel.exe,1"

  122. HKCR,".xls",,,"Excel.Chart.8"

  123. HKCR,".xls","Content Type",,"application/vnd.ms-excel"

  124. HKCR,"Excel.Chart.8","EditFlags",0x1,00,00,01,00

  125. HKCR,"Excel.Chart.8",,,"Microsoft Excel 工作簿"

  126. HKCR,"Excel.Chart.8\shell",,,"Open"

  127. HKCR,"Excel.Chart.8\shell\Open",,,"打开(&O)"

  128. HKCR,"Excel.Chart.8\shell\Open\command",,,"""%01%\Excel.exe"" ""%%1"""

  129. HKCR,"Excel.Chart.8\DefaultIcon",,,"%01%\Excel.exe,1"

  130. ;=====================================================================

  131. ;====================== 注册 PowerPoint 文件关联 =======================

  132. HKCR,"Applications\PowerPnt.exe\shell",,,"open"

  133. HKCR,"Applications\PowerPnt.exe\shell","FriendlyCacheCTime",0x1,00,13,1B,B5,B5,8D,BE,01

  134. HKCR,"Applications\PowerPnt.exe\shell","FriendlyCache",,"Microsoft PowerPoint for Windows"

  135. HKCR,"Applications\PowerPnt.exe\shell\open\command",,,"%01%\PowerPnt.exe ""%%1"""

  136. HKCR,"Applications\PowerPnt.exe\DefaultIcon",,,"%01%\PowerPnt.exe,1"

  137. HKCR,".ppt",,,"PowerPoint.Show.8"

  138. HKCR,".ppt","Content Type",,"application/vnd.ms-powerpoint"

  139. HKCR,"PowerPoint.Show.8","EditFlags",0x1,00,00,01,00

  140. HKCR,"PowerPoint.Show.8",,,"Microsoft PowerPoint 演示文稿"

  141. HKCR,"PowerPoint.Show.8\shell",,,"Open"

  142. HKCR,"PowerPoint.Show.8\shell\Open",,,"打开(&O)"

  143. HKCR,"PowerPoint.Show.8\shell\Open\command",,,"""%01%\PowerPnt.exe"" ""%%1"""

  144. HKCR,"PowerPoint.Show.8\shell\Show",,,"放映(&H)"

  145. HKCR,"PowerPoint.Show.8\shell\Show\command",,,"""%01%\PowerPnt.exe"" /s ""%%1"""

  146. HKCR,"PowerPoint.Show.8\DefaultIcon",,,"%01%\PowerPnt.exe,1"

  147. ;=====================================================================

  148. [Strings]
复制代码
作者: temp    时间: 2010-12-20 22:16     标题: 回复 9楼 的帖子

我用的转换文件是dos版的reg2inf,经改造代码后只需要输入完整的文件名,含扩展名(必须在同一目录中,代码如下:
  1. @echo off

  2. title=   "*.reg"转换"*.inf"

  3. Set Var0=%0

  4. Set OP=

  5. for /f "delims=" %%I in ("%Var0%") do Set OP=%%~dpI

  6. 

  7. cd /d "%OP%"

  8. :start

  9. cls

  10. color 1f

  11. echo        =========================================

  12. echo        请输入"*.reg"文件路径和文件名，然后按回车

  13. echo        ────────────────────

  14. echo.

  15. Set Choice=

  16. rem set /p Choice=请输入"*.reg"文件路径和文件名：

  17. set /p Choice=        输入:

  18. 

  19. if not exist "%Choice%" goto error

  20. goto run

  21. 

  22. :error

  23. echo.

  24. echo     输入的路径或文件名不存在！

  25. echo     任意键返回重新输入……

  26. pause>nul

  27. goto start

  28. 

  29. :run

  30. cls

  31. color 1f

  32. "%OP%reg2inf.com" "%Choice%">nul

  33. ::".\reg2inf.com" "%Choice%">nul

  34. echo.

  35. echo 		转换完成!!!

  36. echo.

  37. echo 请到reg源文件目录中查看同名的inf文件！

  38. echo 任意键退出……

  39. exit
复制代码
最近又改良了一下,只需把注册表文件拖上来即可:
  1. @echo off

  2. title=		注册表文件自动为转换"*.inf"

  3. 

  4. %~d1

  5. cd %~p1

  6. set "file=%~nx1%"

  7. set "hole=%~x1%"

  8. rem 后缀名前面加0 防止后缀名为空的情况。也可以加其他的

  9. if 0%hole% equ 0.reg goto run

  10. :run

  11. "%~dp0reg2inf.com" "%file%">nul
复制代码
不用输入文件名是简单了,但它们都存在一个同样的问题,生成的文件名中都包含注册表的扩展名,本贴就是为简化而发
本贴问题解决了,又想更上一层楼,精简生成文件中包含的无用代码,于是一个问题解决了又提出另一个问题,直至所有问题全部解决了,又想写出更简单的批(如果把解决每一个问题的代码全写进去,代码臃肿,重复,效率太差),于是趁热打铁,又发了一个终极贴
感谢hanyeguxing帮忙给写了一个短小精悍的帖子,至此该贴的所有问题终结了~



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2