批处理怎样搜索文件并替换文件内容？

wljboy

我刚学习批处理，想请教一个问题：

在d:\soft文件夹下有很多的子文件夹，doc.txt放在其中一个子文件夹下。
我要在d:\soft下搜索这个doc.txt文件，并将doc.txt内的字符orc替换成hum
请问如何实现？

wljboy

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set var=orc
   
4. for /f "tokens=*" %%j in (doc.txt) do (
   
5.    set str=%%j
   
6.    echo !str:%var%=hum! >>a.txt)
   
7. del doc.txt
   
8. ren a.txt doc.txt

复制代码

上面这段代码好像只能找到这个bat所在文件夹下的doc.txt，不能找到各个子文件夹的doc.txt

apang

1. @echo off
   
2. for /f "delims=" %%i in ('dir /a-d /b /s "d:\soft\doc.txt"') do (
   
3.   (for /f "usebackq delims=" %%j in ("%%i") do (
   
4.     set "str=%%j"
   
5.     setlocal enabledelayedexpansion
   
6.     echo !str:orc=hum!
   
7.     endlocal
   
8.   ))>$
   
9.   move $ "%%i"
   
10. )

复制代码

wljboy

非常非常感谢apang

Hello123World

1. @echo off
   
2. for /f "delims=" %%i in ('dir /a-d /b /s "d:\soft\doc.txt"') do (
   
3.         sed -i 's/orc/hum/g' "%%i"
   
4.         >nul ping 127.1
   
5.         start "" "%%i"
   
6.         )
   

复制代码

poter

遍历其实很方便的

1. @echo off
   
2. setlocal enableDelayedExpansion
   
3. for /r %%i in (*) do (
   
4.         if "%%~nxi"=="doc.txt" (
   
5.                 for /f "tokens=*" %%j in (%%i) do (
   
6.                         set str=%%j&set str=!str:orc=hum!
   
7.                         echo !str!>>$
   
8.                         move /y $ %%i
   
9.                 )
   
10.         )
    
11. )

复制代码

poter

vbs

1. option explicit
   
2. dim a, b, c, d, e, f, g, h, i
   
3. set a = createobject("scripting.filesystemobject")
   
4. set b = a.getfolder("d:\soft")
   
5. for each c in b.subfolders
   
6.         set d = a.getfolder(c)
   
7.         for each e in d.files
   
8.                 if right(e, 7) = "doc.txt" then
   
9.                         sub1 e
   
10.                 end if
    
11.         next
    
12. next
    
13. 
    
14. sub sub1(str)
    
15. set f = a.opentextfile(str)
    
16. set g = new regexp
    
17. g.global = true
    
18. g.pattern = "orc"
    
19. i = g.replace(f.readall, "hum")
    
20. a.deletefile str, true
    
21. a.createtextfile(str).write i
    
22. end sub

复制代码