[文件操作] 批处理如何修改文本文件某一行内容？

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1* delims=:" %%a in ('findstr /l /n "<xml:内容>你好</xml:内容>" 1.txt') do (
   set /a n+=1
   if %%a neq !n! (
      set n=%%a
      echo ^<xml:内容^>朋友最近好不？^</xml:内容^>
   ) else echo %%b
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /r %%a in (*.htm) do (
	(for /f "delims=" %%b in (%%~sa) do (
		set tmp=%%b
		set "tmp=!tmp:>你好</xml:=>朋友最近好不？</xml:!"
		echo !tmp!
	))>tmp
	move tmp %%~sa
)
pause
复制代码

Dim path, fso
path = "这里改为你的总目录绝对路径"
Set fso = CreateObject("scripting.filesystemobject")
search path
Set fso = Nothing
MsgBox "ok"

Function search(path)
 For Each file In fso.GetFolder(path).Files
   If fso.GetExtensionName(file) = "txt" Then RegExptest fso.OpenTextFile(file, 1).ReadAll(), file
 Next
 For Each folder In fso.GetFolder(path).SubFolders
   search folder
 Next
End Function

Function RegExptest(rgstr, file)
  Dim regex
  Set RegEx = New RegExp
  regex.Global = True
  regex.Pattern = "(<[^<>]+>)[^<>]+(<[^<>]+>)"
  vbstr = regex.Replace(vbstr, "$1要替换成的字符$2")
  fso.OpenTextFile(file, 2, 1).Write rgstr
  Set regex = Nothing
End Function
复制代码

@echo off
for /f "delims=" %%i in ('dir/b/a-d/s *.txt') do (
   cd.>temp
   for /f "usebackq delims=" %%a in ("%%i") do (
      set "str=%%a"
      setlocal enabledelayedexpansion
      if "!str!"=="<xml:内容>你好</xml:内容>" (
           >>temp echo ^<xml:内容^>朋友最近好不？^</xml:内容^>
       ) else (>>temp echo !str!)
       endlocal
    )
    move temp "%%i"
)
pause
复制代码