[文本处理] 求助批处理修改文件内容的问题

fhplove

@echo off
Chcp 65001>nul
copy Agent.xml Agent.xml_bak
ren Agent.xml Server.txt
setlocal Enabledelayedexpansion
for /f "tokens=*" %%a in (Server.txt) do (
set var=%%a
set var=!var:http://www.baidu.com/ss/avvin.doc=http://10.180.221.151:8081/index.htm!
echo !var!>>Server_wq.txt
)
endlocal
ren Server_wq.txt Agent.xml
del /q /s Server.txt
pause
复制代码

以上这个代码修改是成功的，可以替换文件内容相应内容。
--------------------------------------------------------------------------------------------------------------
如下代码修改文件内容失败

@echo off
Chcp 65001>nul
::Chcp 936>nul
copy Agent.Config Agent.Config_bak
ren Agent.Config Config.txt
setlocal Enabledelayedexpansion
for /f "tokens=*" %%b in (Config.txt) do (
set var=%%b
set var=!var:<add key="IsLocalLogin" value="False" />=<add key="IsLocalLogin" value="True" />!
echo !var!>>Config_wq.txt
)
endlocal
ren config_wq.txt Agent.Config
del /q /s Config.txt
pause
复制代码

所有文件我打包上传了，请大哥帮助解决一下，不胜感激

Batcher

回复 9# fhplove


    这么多机器，可以考虑试试PowerShell

WHY

如果是标准的 XML 文档可以这样：

var xmlDoc = new ActiveXObject('Microsoft.XMLDOM');
xmlDoc.load('Agent.Config');
var arr = xmlDoc.selectNodes("//add[@key='IsLocalLogin' and @value!='True']");
for(var i=0; i<arr.length; i++){
    arr[i].setAttribute('value', 'True');
}
xmlDoc.save('Agent.Config.txt');
复制代码

xp3000

@set @n=0//&cscript -nologo -e:jscript "%~0"&pause&exit/b
with (new ActiveXObject("ADODB.Stream")){
    Type = 2;
    Mode = 3;
    CharSet = "utf-8";
    Open();
    LoadFromFile("Agent.Config");
    text = ReadText(-1);
    text = text.replace(/(<add key=\"IsLocalLogin\" value=\")False(\" \/>)/,"$1True$2");
    Position = 0;
    WriteText(text);
    SetEOS();
    SaveToFile("Agent.Config",2);
    Close();
};
复制代码

fhplove

回复 10# lifei259


    感谢热心回复，我试了一下，config文件里的false全都变成true了

lifei259

@echo off
copy Agent.Config Agent.Config_bak
ren Agent.Config Config.txt
pause
setlocal Enabledelayedexpansion
for /f "tokens=*" %%b in (Config.txt) do (
set var=%%b
echo,!var!^|findstr /ixr /c:"IsLocalLogin">nul&&set var=!var:False=True!
echo,!var!>>$
)
endlocal
ren $ Agent.Config
pause
复制代码

回复 5# fhplove

fhplove

回复 8# 极品小猫


    1000+台PC其中很分散的400台需要修改，但是后台修改作用于所有PC，就想用小工具去处理，所以才用此方法

极品小猫

回复 6# fhplove


    操作困难繁琐效率低，还不如使用文本工具的宏脚本。
纯P对Unicode不友好，遇到个特殊字符就崩掉。
如果真的要处理纯文本，可以考虑使用第三方命令行工具，sed

fhplove

回复 2# /zhqsystem/zhq


    谢谢大哥热心回复，希望能给指条明路

fhplove

回复 4# WHY


    谢谢大哥热心回复，批处理真的没办法解决吗

fhplove

回复 3# xp3000


    首先谢谢大哥回答，我是想用批处理把文件内的 <add key="IsLocalLogin" value="False" />  替换成  <add key="IsLocalLogin" value="True" />    简单点说就是False 替换成 True ，但是文件内有很多False 和 True 所以想找个方法将这一行给替换掉！

WHY

纯批替换等于符号(=)很麻烦，PowerShell 可以这样

$arr = (type Agent.Config) -replace '(?<=<add key="IsLocalLogin" value=")False(?=" />)','True';
sc Agent.Config -Value $arr -Encoding UTF8
复制代码

xp3000

@set @n=0;/* & echo off
dir /b *.xml|cscript -nologo -e:jscript "%~0" ""
exit/b & rem */
arg = WScript.Arguments(0);
fso = new ActiveXObject("Scripting.FileSystemObject");
while (!WSH.StdIn.AtEndOfStream) {
    f = WSH.StdIn.ReadLine();
    txt = fso.OpenTextFile(f,1).ReadAll().replace(/(<szC>).+(<\/szC>)/,"$1http://10.180.221.151:8081/index.htm$2");
    fso.OpenTextFile(f,2).Write(txt);
}
复制代码

虽然不知道你想干什么，但是第一条效果一样

/zhqsystem/zhq

纯P下就别搞XML应答了，真不适合，一堆的特殊字符【不闪退必出错】，用第三方或是其它语言吧