[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. //@echo off & setlocal enabledelayedexpansion
  2. //&cls & pushd c:\23\123 & dir /b *.txt|cscript -nologo -e:jscript "%~0" & pause & exit/b
  3. var fso,ws,f,txt,arr=[],a=[],i;
  4. fso=new ActiveXObject("Scripting.filesystemObject")
  5. ws=new ActiveXObject("Wscript.shell")
  6. while (!WSH.StdIn.AtEndOfStream){
  7. f=WSH.StdIn.Readline();
  8. txt=fso.OpentextFile(f,1).readall();
  9. arr=txt.split("");
  10. for(i=0;i<3;i++){
  11. a.push(parseInt(Math.random()*txt.length)+i);
  12. }
  13. a.sort(function(a,b){return a-b;});
  14. for(i=0;i<3;i++){
  15. arr.splice(a[i],0,f.replace(/\..+$/,""))
  16. }
  17. fso.OpentextFile(f,2).write(arr.join(""));
  18. }
复制代码

TOP

你连个测试文本也没有,我反正是测试成功才发上来的

TOP

回复 5# qazplm
哈哈,说的也是.所以这样的伸手党就回复一次,剩下的自己思考去吧

TOP

返回列表