[文本处理] 已解决：批处理替换4个文件中相同的内容

大地

大年30  各位老师好   我还在不断学习中    ，如果在同一文件下，有4个不同文件txt，如何同时替换4个文件中相同的字符内容，怎 么修改一下，谢谢！！！
下面这个试了一直没成功

cd %~dp0

@echo off
setlocal enabledelayedexpansion
set source1=小芳
set replaced1=王小芳
for /f "delims=" %%a in ('dir /a-d /b /s *.txt') do (
pushd "%%~dpa"
(for /f "delims=" %%b in ('type "%%a"') do (
set "line=%%b"
set "line=!line:%source1%=%replaced1%!"
echo,!line!
))>"%%~nxa.txt"
move /y "~nxa.txt" "%%~nxa"
popd

)
复制代码

Batcher

回复 1# 大地

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "source1=小芳"
set "replaced1=王小芳"
for /f "delims=" %%a in ('dir /a-d /b /s *.txt') do (
    pushd "%%~dpa"
    (for /f "delims=" %%b in ('type "%%a"') do (
        set "line=%%b"
        echo,!line:%source1%=%replaced1%!
    ))>"%%~nxa.txt"
    move /y "%%~nxa.txt" "%%~nxa"
    popd
)
复制代码

Batcher

回复 3# 大地


    2楼代码需要PowerShell，不需要VB的。

77七

move /y "%%~nxa.txt" "%%~nxa"
复制代码

倒数第三行，改成这样试试

大地

回复 2# pd1
老师您好   能不能用DOS内置命令写   我多数系统是精简版，VB不全的，谢谢  新年快乐  心想事成！！

pd1

<# :
@echo off&powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0' |Out-String|Invoke-Expression"&pause
#>
ls -Recurse *.txt|%{[IO.File]::WriteAllText($_.FullName,[IO.File]::ReadAllText($_.FullName).replace("小芳","王小芳"))}
复制代码