Board logo

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

作者: hwhai    时间: 2011-12-2 22:26     标题: [已解决]批处理如何替换文本中第一次出现的字符串?

劳烦大大教我,    要把    "ExtDownload.xml" 文件
里面第一次出现的         "D:\桌面"  词组
替换成                   "D:\电影"  词组
作者: awk    时间: 2011-12-2 23:58

这个XML文件是UTF-8格式,批处理命令不方面直接处理。
作者: powerbat    时间: 2011-12-3 00:12

  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. }
复制代码

作者: hwhai    时间: 2011-12-3 00:21

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

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

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





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2