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

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

劳烦大大教我,    要把    "ExtDownload.xml" 文件
里面第一次出现的         "D:\桌面"  词组
替换成                   "D:\电影"  词组
1

评分人数

    • CrLf: 感谢给帖子标题标注[已解决]字样PB + 2

本帖最后由 hwhai 于 2011-12-3 00:39 编辑

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

嗯了,好啦.能够直接覆盖了再次感谢,!  
      

TOP

  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

评分人数

    • hwhai: 牛牛,昨晚太晚不能评分,今天赶早来技术 + 1

TOP

这个XML文件是UTF-8格式,批处理命令不方面直接处理。
1

评分人数

    • CrLf: 乐于助人PB + 3

TOP

返回列表