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

保存为test.bat ,放在Test文件夹所在目录下,双击运行即可。
  1. 0<1/*,:
  2. @echo off
  3. cscript -nologo -e:jscript %0
  4. pause
  5. exit /b
  6. */
  7. ;
  8. var fso = new ActiveXObject('Scripting.FileSystemObject');
  9. var wshell = new ActiveXObject('WScript.Shell');
  10. wshell.CurrentDirectory = fso.GetParentFolderName(WScript.ScriptFullName);
  11. var srcfile = 'Test\\src';
  12. var dstfile = 'Test\\dst';
  13. var tsread = fso.openTextFile(srcfile, 1, false, -2);
  14. while (!tsread.AtEndOfStream) {
  15.   var strsrc = tsread.ReadAll();
  16. }
  17. tsread.close();
  18. var re = /(\.method\s+.+)[\s\S]*?\.end\s+method/g;
  19. var arrsrc, objsrc = {};
  20. while (arrsrc = re.exec(strsrc)) {
  21.   objsrc[arrsrc[1]] = arrsrc[0];
  22. }
  23. tsread = fso.openTextFile(dstfile, 1, false, -2);
  24. while (!tsread.AtEndOfStream) {
  25.   var strdst = tsread.ReadAll();
  26. }
  27. tsread.close();
  28. var tswrite = fso.openTextFile(dstfile, 2, false, -2);
  29. tswrite.Write(strdst.replace(re, function ($0, $1) {
  30.   return objsrc.hasOwnProperty($1) ? objsrc[$1] : $0;
  31. }));
  32. tswrite.close();
  33. WScript.Echo('Done.');
  34. WScript.Quit();
复制代码
微信:flashercs
QQ:49908356

TOP

返回列表