[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. var fso=new ActiveXObject("scripting.filesystemobject")
  2. var ftext=[]
  3. var f=fso.OpenTextFile("1.txt",1)
  4. while(!f.AtEndOfStream){
  5. ftext.push(f.ReadLine())
  6. }
  7. var newstr=''
  8. for(var i=0;i<20;i++){
  9. r=Math.floor(Math.random()*(50-i))
  10. newstr+=ftext[r]+"\n"
  11. ftext[r]=ftext[50-i]
  12. }
  13. var f=fso.CreateTextFile("2.txt")
  14. f.Write(newstr)
  15. f.close
复制代码
保存为js文件
把输入文件保存为同一文件夹下的1.txt

TOP

返回列表