[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
fhplove

Rank: 2

帖子
14 
积分
136 
技术
0  
捐助
0  
注册时间
2009-3-28 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2018-11-5 18:02 | 只看该作者

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

  1. @echo off

  2. Chcp 65001>nul

  3. copy Agent.xml Agent.xml_bak

  4. ren Agent.xml Server.txt

  5. setlocal Enabledelayedexpansion

  6. for /f "tokens=*" %%a in (Server.txt) do (

  7. set var=%%a

  8. set var=!var:http://www.baidu.com/ss/avvin.doc=http://10.180.221.151:8081/index.htm!

  9. echo !var!>>Server_wq.txt

  10. )

  11. endlocal

  12. ren Server_wq.txt Agent.xml

  13. del /q /s Server.txt

  14. pause
复制代码
以上这个代码修改是成功的，可以替换文件内容相应内容。
--------------------------------------------------------------------------------------------------------------
如下代码修改文件内容失败
  1. @echo off

  2. Chcp 65001>nul

  3. ::Chcp 936>nul

  4. copy Agent.Config Agent.Config_bak

  5. ren Agent.Config Config.txt

  6. setlocal Enabledelayedexpansion

  7. for /f "tokens=*" %%b in (Config.txt) do (

  8. set var=%%b

  9. set var=!var:<add key="IsLocalLogin" value="False" />=<add key="IsLocalLogin" value="True" />!

  10. echo !var!>>Config_wq.txt

  11. )

  12. endlocal

  13. ren config_wq.txt Agent.Config

  14. del /q /s Config.txt

  15. pause
复制代码
所有文件我打包上传了，请大哥帮助解决一下，不胜感激
收藏 分享

/zhqsystem/zhq

Rank: 5Rank: 5

帖子
545 
积分
761 
技术
62  
捐助
0  
注册时间
2014-10-9 
2楼
发表于 2018-11-5 19:36 | 只看该作者
纯P下就别搞XML应答了，真不适合，一堆的特殊字符【不闪退必出错】，用第三方或是其它语言吧
这么好的论坛你上哪找，运行测试环境为6.1.7601-64
注:请遵守互联网信息安全,勿用于非法用途

TOP

xp3000

Rank: 5Rank: 5

帖子
441 
积分
618 
技术
37  
捐助
0  
注册时间
2013-4-25 
3楼
发表于 2018-11-5 19:59 | 只看该作者 
  1. @set @n=0;/* & echo off

  2. dir /b *.xml|cscript -nologo -e:jscript "%~0" ""

  3. exit/b & rem */

  4. arg = WScript.Arguments(0);

  5. fso = new ActiveXObject("Scripting.FileSystemObject");

  6. while (!WSH.StdIn.AtEndOfStream) {

  7.     f = WSH.StdIn.ReadLine();

  8.     txt = fso.OpenTextFile(f,1).ReadAll().replace(/(<szC>).+(<\/szC>)/,"$1http://10.180.221.151:8081/index.htm$2");

  9.     fso.OpenTextFile(f,2).Write(txt);

  10. }
复制代码
虽然不知道你想干什么，但是第一条效果一样

TOP

WHY

Rank: 6Rank: 6

帖子
1482 
积分
3266 
技术
567  
捐助
0  
注册时间
2015-7-19 
4楼
发表于 2018-11-5 20:43 | 只看该作者
纯批替换等于符号(=)很麻烦，PowerShell 可以这样
  1. $arr = (type Agent.Config) -replace '(?<=<add key="IsLocalLogin" value=")False(?=" />)','True';

  2. sc Agent.Config -Value $arr -Encoding UTF8
复制代码

TOP

fhplove

Rank: 2

帖子
14 
积分
136 
技术
0  
捐助
0  
注册时间
2009-3-28 
5楼
发表于 2018-11-6 09:34 | 只看该作者
回复 3# xp3000


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

TOP

fhplove

Rank: 2

帖子
14 
积分
136 
技术
0  
捐助
0  
注册时间
2009-3-28 
6楼
发表于 2018-11-6 09:34 | 只看该作者
回复 4# WHY


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

TOP

fhplove

Rank: 2

帖子
14 
积分
136 
技术
0  
捐助
0  
注册时间
2009-3-28 
7楼
发表于 2018-11-6 09:35 | 只看该作者
回复 2# /zhqsystem/zhq


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

TOP

极品小猫

Rank: 2

帖子
72 
积分
103 
技术
3  
捐助
0  
注册时间
2011-3-31 
8楼
发表于 2018-11-6 09:36 | 只看该作者
本帖最后由 极品小猫 于 2018-11-6 09:43 编辑

回复 6# fhplove


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

TOP

fhplove

Rank: 2

帖子
14 
积分
136 
技术
0  
捐助
0  
注册时间
2009-3-28 
9楼
发表于 2018-11-6 10:19 | 只看该作者
回复 8# 极品小猫


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

TOP

lifei259

Rank: 2

帖子
131 
积分
194 
技术
17  
捐助
0  
注册时间
2013-11-29 
10楼
发表于 2018-11-6 11:36 | 只看该作者 
  1. @echo off

  2. copy Agent.Config Agent.Config_bak

  3. ren Agent.Config Config.txt

  4. pause

  5. setlocal Enabledelayedexpansion

  6. for /f "tokens=*" %%b in (Config.txt) do (

  7. set var=%%b

  8. echo,!var!^|findstr /ixr /c:"IsLocalLogin">nul&&set var=!var:False=True!

  9. echo,!var!>>$

  10. )

  11. endlocal

  12. ren $ Agent.Config

  13. pause
复制代码
回复 5# fhplove
智慧是，利用最简单的代码替代复杂事情的处理过程。
付款请扫头像二维码码，谢谢

TOP

fhplove

Rank: 2

帖子
14 
积分
136 
技术
0  
捐助
0  
注册时间
2009-3-28 
11楼
发表于 2018-11-7 11:32 | 只看该作者
回复 10# lifei259


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

TOP

xp3000

Rank: 5Rank: 5

帖子
441 
积分
618 
技术
37  
捐助
0  
注册时间
2013-4-25 
12楼
发表于 2018-11-7 12:48 | 只看该作者 
  1. @set @n=0//&cscript -nologo -e:jscript "%~0"&pause&exit/b

  2. with (new ActiveXObject("ADODB.Stream")){

  3.     Type = 2;

  4.     Mode = 3;

  5.     CharSet = "utf-8";

  6.     Open();

  7.     LoadFromFile("Agent.Config");

  8.     text = ReadText(-1);

  9.     text = text.replace(/(<add key=\"IsLocalLogin\" value=\")False(\" \/>)/,"$1True$2");

  10.     Position = 0;

  11.     WriteText(text);

  12.     SetEOS();

  13.     SaveToFile("Agent.Config",2);

  14.     Close();

  15. };
复制代码

TOP

WHY

Rank: 6Rank: 6

帖子
1482 
积分
3266 
技术
567  
捐助
0  
注册时间
2015-7-19 
13楼
发表于 2018-11-7 21:09 | 只看该作者
如果是标准的 XML 文档可以这样：
  1. var xmlDoc = new ActiveXObject('Microsoft.XMLDOM');

  2. xmlDoc.load('Agent.Config');

  3. var arr = xmlDoc.selectNodes("//add[@key='IsLocalLogin' and @value!='True']");

  4. for(var i=0; i<arr.length; i++){

  5.     arr[i].setAttribute('value', 'True');

  6. }

  7. xmlDoc.save('Agent.Config.txt');
复制代码

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
14楼
发表于 2018-11-8 21:35 | 只看该作者
回复 9# fhplove


    这么多机器，可以考虑试试PowerShell
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表