Board logo

标题: [文件操作] bat转exe报错 [打印本页]

作者: kissbzm    时间: 2018-5-10 14:14     标题: bat转exe报错

  1. /*&cls
  2. @echo off
  3. dir /a-d/b *.rar *.zip|cscript -nologo -e:jscript "%~f0" "字符库.txt">"1.log"
  4. pause & exit
  5. */
  6. var fso=new ActiveXObject('Scripting.FileSystemObject');
  7. var chars=fso.OpenTextFile(WSH.Arguments(0), 1).ReadAll().replace(/[\r\n]/g,'').split('');
  8. while(!WSH.StdIn.AtEndOfStream) {
  9.     var file = WSH.StdIn.ReadLine();
  10.     var fn=fso.GetBaseName(file);
  11.     var tfn=fn.replace(/[^\u4e00-\u9fa5]/g,'');
  12.     var s='';
  13.     if(/[\u4e00-\u9fa5]/.test(fn) && tfn.length !=0){
  14.         for(i=0;i<tfn.length;i++){
  15.             var c = chars[Math.floor(Math.random()*chars.length)];
  16.             s+=tfn.charAt(i)+c;
  17.         }
  18.         var c = chars[Math.floor(Math.random()*chars.length)];
  19.         var newn=c+s+'.'+fso.GetExtensionName(file);
  20.         WSH.echo(file+' --> '+newn);
  21.         var file=fso.GetFile(file);
  22.         try{file.Name=newn;}catch(e){WSH.echo('存在非法字符')}
  23.     }
  24. }
复制代码





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