poter

遍历其实很方便的

@echo off
setlocal enableDelayedExpansion
for /r %%i in (*) do (
	if "%%~nxi"=="doc.txt" (
		for /f "tokens=*" %%j in (%%i) do (
			set str=%%j&set str=!str:orc=hum!
			echo !str!>>$
			move /y $ %%i
		)
	)
)
复制代码

poter

vbs

option explicit
dim a, b, c, d, e, f, g, h, i
set a = createobject("scripting.filesystemobject")
set b = a.getfolder("d:\soft")
for each c in b.subfolders
	set d = a.getfolder(c)
	for each e in d.files
		if right(e, 7) = "doc.txt" then
			sub1 e
		end if
	next
next

sub sub1(str)
set f = a.opentextfile(str)
set g = new regexp
g.global = true
g.pattern = "orc"
i = g.replace(f.readall, "hum")
a.deletefile str, true
a.createtextfile(str).write i
end sub
复制代码