Board logo

标题: [文本处理] 【已处理】批处理怎样修改文本内部路径？ [打印本页]
作者: HerveyHu    时间: 2020-11-22 16:03     标题: 【已处理】批处理怎样修改文本内部路径？

本帖最后由 HerveyHu 于 2020-11-25 09:52 编辑

是这样的，有个文档需要经常配置路径地址，索性写了个bat，要实现的的目的如下，麻烦大佬帮忙想想办法，感谢！：

要修改文件中所有 IceBox\ （IceBox是文件夹）之前的路径，比如 G:\111\IceBox\IceBox_wf.dll，（G:\111\）随便变成什么地址，（IceBox\*）这个和后面的内容不变，所以本人尝试写了代码，不能完全解决问题， 路径只会会无限添加成比如G:\333\222\111\IceBox\IceBox_wf.dll，请问有没有好的解决方法，谢谢！


要修改的文件内容：
java_app_class  net.icefai.Main.IceBox
java_app_classpath G:\111\IceBox\IceBox_wf.dll
java_app_start  iceStart
java_app_stop   iceStop
allow_stop      true
delay_start     false
text_dir        G:\111\IceBox\text



bat 修改路径代码如下：
  1. REM 获取bat上级路径

  2. 

  3. 

  4. set "bd=%cd%"

  5. cd..

  6. set "bbd=%cd%"

  7. cd %bd%

  8. set Newdisk=%bbd%

  9. 

  10. 

  11. REM 读取旧盘符

  12. for /f "tokens=1 delims=\" %%i in ('findstr "IceBox\\" "%strIceBoxFilePath%"') do (

  13. for /f "tokens=2 delims= " %%j in ("%%i") do (

  14. set OldDisk=%%j

  15. )

  16. )

  17. 

  18. 

  19. REM 读取IceBox_*.dat所有内容

  20. for /f "eol=! tokens=*" %%l in (%strIceBoxFilePath%) do (

  21. 

  22. 

  23. REM 设置变量str为每行内容

  24. set str=%%l

  25. 

  26. 

  27. REM 如果该行有旧盘符a，则将其改为新盘符A

  28. set "str=!str:%Olddisk%\=%Newdisk%\!"

  29. 

  30. 

  31. REM 把修改后的全部行存入$

  32. echo !str!>>$

  33. 

  34. 

  35. )

  36. 

  37. 

  38. REM 替换原文件

  39. 

  40. 

  41. move $ %strIceBoxFilePath%

  42. 

  43. 

  44. echo 设置完成！
复制代码
作者: flashercs    时间: 2020-11-22 18:24

  1. @echo off

  2. 

  3. REM 获取bat上级路径

  4. 

  5. 

  6. set "bd=%cd%"

  7. cd..

  8. set "bbd=%cd%"

  9. cd %bd%

  10. set Newdisk=%bbd%

  11. 

  12. set strIceBoxFilePath=d:\sec\icebox\icebox.txt

  13. REM 读取旧盘符

  14. set Olddisk=

  15. for /f "tokens=1*" %%i in ('findstr "IceBox\\" "%strIceBoxFilePath%"') do (

  16.   set Olddisk=%%j

  17. )

  18. if not defined Olddisk exit /b

  19. set "prefix=%Olddisk%\."

  20. @REM echo prefix_before=%prefix%

  21. :loop3

  22. for %%A in ("%prefix%") do (

  23.   set "prefix=%%~dpA."

  24.   if /i not "%%~nxA"=="IceBox" if not "%%~pA"=="\" (

  25.     goto loop3

  26.   )

  27. )

  28. set "prefix=%prefix:~,-1%"

  29. @REM echo prefix_after=%prefix%

  30. REM 读取IceBox_*.dat所有内容

  31. for /f "eol=! tokens=*" %%l in (%strIceBoxFilePath%) do (

  32. 

  33. 

  34. REM 设置变量str为每行内容

  35. 

  36. setlocal EnableDelayedExpansion

  37. set str=%%l

  38. REM 如果该行有旧盘符a，则将其改为新盘符A

  39. set "str=!str:%prefix%=%Newdisk%\!"

  40. 

  41. 

  42. REM 把修改后的全部行存入$

  43. echo !str!>>$

  44. endlocal

  45. 

  46. )

  47. 

  48. 

  49. REM 替换原文件

  50. 

  51. 

  52. move $ %strIceBoxFilePath%

  53. 

  54. 

  55. echo 设置完成！
复制代码
作者: HerveyHu    时间: 2020-11-23 15:06

本帖最后由 HerveyHu 于 2020-11-23 15:12 编辑

回复 2# flashercs
抱歉回复晚了，试了您帮忙修改的代码，成功执行了，另外再请教您一个问题

比如想把 proetkdat G:\111\IceBox\IceBox_wf.dat 这段内容 加入到1.pro文件中，但是怕已经存在，所以需要先查阅一下1.pro，如果存在相同G:\111路径则退出执行，不相同则修改成最新的如G:\111\222\IceBox\IceBox_wf.dat，如不存在则在最后一行添加进去。

再次麻烦，感激不尽！
作者: HerveyHu    时间: 2020-11-23 16:44     标题: RE: 批处理怎样修改文本内部路径？

回复 4# flashercs

代码已经可以了，感谢帮忙！
作者: HerveyHu    时间: 2020-11-23 18:16

本帖最后由 HerveyHu 于 2020-11-23 18:58 编辑

回复 4# flashercs


大佬问一下，findstr /ric:"creotkdat  *.*\\IceBox\\IceBox_c4.dat" %strConfigFilePath%||>>%strConfigFilePath% echo creotkdat %Newdisk%\IceBox\IceBox_c4.dat
这段新添加的内容能让它在文本中另起一行吗？目前是接在前面内容后面的

另外发现一个bug，如果文本中有了这段路径，外面的文件变更地址后，重新运行bat，这段地址会被检测到，但不会被新地址取代，麻烦帮忙修改一下！
作者: flashercs    时间: 2020-11-24 15:20

  1. findstr /ric:"creotkdat  *.*\\IceBox\\IceBox_c4.dat" %strConfigFilePath%

  2. if %errorlevel% equ 1 >>%strConfigFilePath% echo creotkdat %Newdisk%\IceBox\IceBox_c4.dat
复制代码
回复 6# HerveyHu
作者: HerveyHu    时间: 2020-11-24 17:11

回复 7# flashercs

您好，试了您修改的代码，发现不成功，可能是我没表述好，想实现的结果是这样的，先检测文本中有没有creotkdat  *.*\\IceBox\\IceBox_c4.dat，如果有，则比对路径*.*和%Newdisk%，如果相同，则结束此条代码，如果不相同，就把*.*替换成%Newdisk%，如果不存在此creotkdat  *.*\\IceBox\\IceBox_c4.dat，则添加creotkdat %Newdisk%\IceBox\IceBox_%%a.dat

再次麻烦，不好意思，万分感谢！
作者: HerveyHu    时间: 2020-11-25 00:21

本帖最后由 HerveyHu 于 2020-11-25 00:27 编辑

回复 9# flashercs

感谢您及时的恢复，代码测试了一下，可以满足需求，但是有个瑕疵，因为指定的路径有可能在别的内容后面或前面，或前后都有内容，并不一定单独在一行，如Command `ProCmdNamedViewsGalSelect`  `TOP`;creotkdat G:\111\*\creotkdat....，在运行findstr /vric 的时候会把整行删除，本人有尝试在此代码之前增加一个换行的动作，使它与前后代码分隔开，单独形成一行，然后再删除，但是没有成功，麻烦修正，或者烦请提供更简单的方法，谢谢！

set Lf=^


for /f %%a in ('copy /z %0 nul') do set "Cr=%%a"
for %%z in ("!Cr!!Lf!") do (
   endlocal
   for /f "delims=" %%a in ('findstr "IceBox\\" "%strConfigFilePath%"') do (
      set "str=%%a"
      echo; !str:creotkdat=%%~zcreotkdat!
   )
)>$
作者: flashercs    时间: 2020-11-25 07:46

  1. @echo off

  2. 

  3. REM 获取bat上级路径

  4. 

  5. 

  6. set "bd=%cd%"

  7. cd..

  8. set "bbd=%cd%"

  9. cd %bd%

  10. set Newdisk=%bbd%

  11. 

  12. set strIceBoxFilePath=d:\sec\icebox\icebox.txt

  13. REM 读取旧盘符

  14. set Olddisk=

  15. for /f "tokens=1*" %%i in ('findstr "IceBox\\" "%strIceBoxFilePath%"') do (

  16.   set Olddisk=%%j

  17. )

  18. if not defined Olddisk exit /b

  19. set "prefix=%Olddisk%\."

  20. @REM echo prefix_before=%prefix%

  21. :loop3

  22. for %%A in ("%prefix%") do (

  23.   set "prefix=%%~dpA."

  24.   if /i not "%%~nxA"=="IceBox" if not "%%~pA"=="\" (

  25.     goto loop3

  26.   )

  27. )

  28. set "prefix=%prefix:~,-1%"

  29. @REM echo prefix_after=%prefix%

  30. REM 读取IceBox_*.dat所有内容

  31. for /f "eol=! tokens=*" %%l in (%strIceBoxFilePath%) do (

  32. 

  33. 

  34. REM 设置变量str为每行内容

  35. 

  36. setlocal EnableDelayedExpansion

  37. set str=%%l

  38. REM 如果该行有旧盘符a，则将其改为新盘符A

  39. set "str=!str:%prefix%=%Newdisk%\!"

  40. 

  41. 

  42. REM 把修改后的全部行存入$

  43. echo !str!>>$

  44. endlocal

  45. 

  46. )

  47. 

  48. 

  49. REM 替换原文件

  50. 

  51. 

  52. move $ %strIceBoxFilePath%

  53. 

  54. set strConfigFilePath=d:\sec\icebox\icebox.txt

  55. findstr /ric:"creotkdat  *.*\\IceBox\\IceBox_c4.dat" %strConfigFilePath%

  56. if %errorlevel% equ 1 (

  57.   REM 未找到

  58.   >>%strConfigFilePath% echo creotkdat %Newdisk%\IceBox\IceBox_c4.dat

  59.   goto end

  60. )

  61. set reNewdisk=%Newdisk:\=\\%

  62. set reNewdisk=%reNewdisk:\.=\.%

  63. REM 找到

  64. findstr /ric:"creotkdat  *%reNewdisk%\\IceBox\\IceBox_c4.dat" %strConfigFilePath%

  65. REM 不匹配%Newdisk%

  66. 

  67. if %errorlevel% equ 1 powershell -NoProfile -Command "(Get-Content -LiteralPath \"%strConfigFilePath%\" -ReadCount 0) -replace \"(creotkdat\s+).*?(?=\\IceBox\\IceBox_c4.dat)\", \"`${1}%Newdisk%\" | Set-Content -LiteralPath \"%strConfigFilePath%\""

  68. 

  69. :end

  70. echo 设置完成！
复制代码
作者: HerveyHu    时间: 2020-11-25 09:51

回复 9# flashercs

感谢一早回复，已经可以正常运行，受益良多，感谢帮忙，辛苦！
作者: HerveyHu    时间: 2020-11-25 15:30

回复 9# flashercs

请教一下，powershell可以输出UTF-8吗？现在输出是ANSI，有时中文会乱码，谢谢！
作者: flashercs    时间: 2020-11-25 15:42

回复 11# HerveyHu


    可以，你批处理脚本能读取utf8吗？
你把批处理脚本保存为utf8-nobom编码，同时最上边修改成这样：
  1. @echo off

  2. chcp 65001

  3. REM 获取bat上级路径
复制代码
作者: HerveyHu    时间: 2020-11-25 15:50

本帖最后由 HerveyHu 于 2020-11-25 15:51 编辑

回复 12# flashercs

UTF-8的可以读取，目前读取的格式就是这个，这个我在开头有加，文本现在改了，整体代码如下，请帮忙看看，还有没有问题，本人不是IT行业的，所以会的不多，感谢指导！
  1. @

  2. echo off & setlocal enabledelayedexpansion

  3. 

  4. REM 声明采用UTF-8编码

  5. 

  6. chcp 65001

  7. 

  8. cls

  9. 

  10. REM 定义config.pro文件路径

  11. 

  12. :loop1

  13. 

  14. set /p input=请复制粘贴config.pro所在文件夹路径！:

  15. 

  16. set strConfigFilePath=%input%\config.pro

  17. 

  18. if not exist %strConfigFilePath% echo 没有找到 config.pro 文件，请重新复制路径！& goto loop1

  19. 

  20. REM 获取bat上级路径

  21. 

  22. set "bd=%cd%"

  23. cd..

  24. set "bbd=%cd%"

  25. cd %bd%

  26. set Newdisk=%bbd%

  27. 

  28. REM 获取bat当前路径

  29. 

  30. set bct=%~dp0

  31. 

  32. REM 确认Proe/Creo版本

  33. 

  34. :loop2

  35. 

  36. echo.

  37. 

  38. set Num=

  39. 

  40. echo. 1   wildFire5.0

  41. echo. 2   Creo 2.0

  42. echo. 3   Creo 3.0

  43. echo. 4   Creo 4.0 +

  44. 

  45. set /p Num=请输入对应软件前面的序号，按Enter确认:

  46. 

  47. echo.

  48. 

  49. set "Num=%Num:~,1%"

  50. 

  51. if "%Num:"=""%" equ "1" goto ver

  52. if "%Num:"=""%" equ "2" goto ver

  53. if "%Num:"=""%" equ "3" goto ver

  54. if "%Num:"=""%" equ "4" goto ver

  55. 

  56. echo 输入有误，请重新输入!!!

  57. 

  58. goto loop2

  59. 

  60. :ver

  61. 

  62. REM 设置参数类型

  63. 

  64. if %Num% GTR 1 (set Pathtype=creotkdat) else (set Pathtype=proetkdat)

  65. 

  66. REM 提取版本号

  67. 

  68. set b=wf c2 c3 c4

  69. for /f "tokens=%Num% delims= " %%a in ("%b%") do (set c=%%a)

  70. 

  71. set strIceBoxFilePath=%bct%IceBox_%c%.dat

  72. 

  73. findstr /ric:"%Pathtype%  *.*\\IceBox\\IceBox_%c%.dat" %strConfigFilePath%

  74. 

  75. if %errorlevel% equ 1 (

  76. 

  77. REM 未找到

  78. 

  79. >>%strConfigFilePath% echo %Pathtype% %Newdisk%\IceBox\IceBox_%c%.dat

  80. goto next

  81. )

  82. 

  83. REM 找到

  84. 

  85. set reNewdisk=%Newdisk:\=\\%

  86. set reNewdisk=%reNewdisk:\.=\.%

  87. 

  88. findstr /ric:"%Pathtype% *%reNewdisk%\\IceBox\\IceBox_%c%.dat" %strConfigFilePath%

  89. 

  90. REM 不匹配%Newdisk%

  91. 

  92. if %errorlevel% equ 1 powershell -NoProfile -Command "(Get-Content -LiteralPath \"%strConfigFilePath%\" -ReadCount 0) -replace \"(%Pathtype%\s+).*?(?=\\IceBox\\IceBox_%c%.dat)\", \"`${1}%Newdisk%\" | Set-Content -LiteralPath \"%strConfigFilePath%\""||del /f /s /q /a "%bct%$"

  93. 

  94. :next

  95. 

  96. REM IceBox_*.dat 更改路径

  97. 

  98. REM 读取旧路径

  99. 

  100. set Olddisk=

  101. 

  102. for /f "tokens=1*" %%i in ('findstr "IceBox\\" "%strIceBoxFilePath%"') do (

  103.   set Olddisk=%%j

  104. )

  105. 

  106. set "prefix=%Olddisk%\."

  107. 

  108. REM echo prefix_before=%prefix%

  109. 

  110. :loop3

  111. 

  112. for %%A in ("%prefix%") do (

  113.   set "prefix=%%~dpA."

  114.   if /i not "%%~nxA"=="IceBox" if not "%%~pA"=="\" (

  115.     goto loop3

  116.   )

  117. )

  118. 

  119. set "prefix=%prefix:~,-1%"

  120. 

  121. REM echo prefix_after=%prefix%

  122. 

  123. REM 读取IceBox_*.dat所有内容

  124. 

  125. for /f "tokens=*" %%k in (%strIceBoxFilePath%) do (

  126. 

  127. REM 设置变量str为每行内容

  128. 

  129. set str=%%k

  130. 

  131. REM 如果该行有旧盘符路径a，则将其改为新盘符路径A

  132. 

  133. set "str=!str:%prefix%=%Newdisk%\!"

  134. 

  135. REM 把修改后的全部行存入$

  136. 

  137. echo !str!>>$

  138. 

  139. )

  140. 

  141. REM 替换原文件

  142. 

  143. move $ %strIceBoxFilePath%

  144. 

  145. echo 设置完成！

  146. 

  147. choice /t 1 /d y /n >nul

  148. 

  149. exit
复制代码
作者: HerveyHu    时间: 2020-11-25 15:58

本帖最后由 HerveyHu 于 2020-11-25 15:59 编辑

回复 12# flashercs

刚刚试了改bat编码保存格式，发现被导入修改内容的文件编码被从UTF-8 改成了ANSI，请问可以修改吗？
作者: flashercs    时间: 2020-11-25 19:58

  1. if %errorlevel% equ 1 powershell -NoProfile -Command "(Get-Content -LiteralPath \"%strConfigFilePath%\" -ReadCount 0 -Encoding utf8) -replace \"(%Pathtype%\s+).*?(?=\\IceBox\\IceBox_%c%.dat)\", \"`${1}%Newdisk%\" | Set-Content -Encoding utf8 -LiteralPath \"%strConfigFilePath%\""||del /f /s /q /a "%bct%$"
复制代码
回复 14# HerveyHu
作者: HerveyHu    时间: 2020-11-25 20:16

回复 15# flashercs


应该是解决了，感谢！



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