[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
这样行不 (运行前请先备份文件)
  1. @if(0)==(0) ECHO OFF
  2. CScript.exe //NoLogo //E:JScript "%~f0" "1.txt"
  3. PAUSE&GOTO :EOF
  4. @end
  5. var fso = new ActiveXObject('Scripting.Filesystemobject');
  6. var text = fso.OpenTextFile(WScript.Arguments(0),1);
  7. var arr = text.ReadAll().split(/\n/);
  8. text = fso.OpenTextFile(WScript.Arguments(0),2,true)
  9. WScript.StdOut.Write("行号:");
  10. var len = WScript.StdIn.ReadLine();
  11. WScript.StdOut.Write("旧字符串:");
  12. var oldstr = WScript.StdIn.ReadLine();
  13. WScript.StdOut.Write("新字符串:");
  14. var newstr = WScript.StdIn.ReadLine();
  15. arr[len-1] = arr[len-1].replace(new RegExp("\\b"+oldstr+"\\b",'gi'),newstr);
  16. text.Write(arr.join('\n'));
  17. text.Close()
复制代码

TOP

返回列表