找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 25754|回复: 3

[其他] [已解决]批处理如何替换文本中第一次出现的字符串?

[复制链接]
发表于 2011-12-2 22:26:38 | 显示全部楼层 |阅读模式
劳烦大大教我,    要把    "ExtDownload.xml" 文件
里面第一次出现的         "D:\桌面"  词组
替换成                   "D:\电影"  词组

评分

参与人数 1PB +2 收起 理由
CrLf + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2011-12-2 23:58:35 | 显示全部楼层
这个XML文件是UTF-8格式,批处理命令不方面直接处理。

评分

参与人数 1PB +3 收起 理由
CrLf + 3 乐于助人

查看全部评分

发表于 2011-12-3 00:12:47 | 显示全部楼层

  1. @set @n=0//&cscript.exe -e:jscript "%~f0"&exit /b

  2. file = "ExtDownload.xml";
  3. writetext( "#"+file, readtext(file).replace("D:\\桌面", "D:\\电影") );

  4. function readtext(file, charset)
  5. {
  6.     var text;
  7.     var aso = new ActiveXObject('ADODB.Stream');
  8.     aso.Mode = 3;
  9.     aso.Type = 2;
  10.     if (charset) aso.Charset = charset;
  11.     else aso.Charset = 'utf-8';
  12.     aso.Open();
  13.     aso.LoadFromFile(file);
  14.     text = aso.ReadText(-1);
  15.     aso.Close();
  16.     aso = null;
  17.     return text;
  18. }

  19. function writetext(file, text, charset)
  20. {
  21.     var aso = new ActiveXObject('ADODB.Stream');
  22.     aso.Mode = 3;
  23.     aso.Type = 2;
  24.     if (charset) aso.Charset = charset;
  25.     else aso.Charset = 'utf-8';
  26.     aso.Open();
  27.     aso.WriteText(text);
  28.     aso.SaveToFile(file, 2);
  29.     aso.Close();
  30.     aso = null;
  31. }
复制代码

评分

参与人数 1技术 +1 收起 理由
hwhai + 1 牛牛,昨晚太晚不能评分,今天赶早来

查看全部评分

 楼主| 发表于 2011-12-3 00:21:54 | 显示全部楼层
本帖最后由 hwhai 于 2011-12-3 00:39 编辑

我碰到你们这些大牛真是无话可说了,哎.两眼泪汪汪,好人长寿呀.我得好好看看代码,学习下.
真是心有灵犀一点通呀,我一直刷新就是为了等哥您.

嗯了,好啦.能够直接覆盖了再次感谢,!  
      
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-20 05:32 , Processed in 0.032213 second(s), 14 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表