[文本处理] 批处理怎样从文本里随机选取20行文本组成一个新文件？

呵呵丶很无聊

有个问题需要处理，一个50行的文本文件，从里面随机选取20行文本组成一个新文件，该如何处理，求助！！！
问题描述：
先有一个50行的文本文件，想要从中随机选取20行，组成一个新的文本文件。求助大神！！！！
1.随机挑选指定数量的行文本。
2.挑选的行的内容（该行原来的文字顺序）不变。
3.可自定义随机选取的行的数量（不是不指定行）。

Batcher

回复 1# 呵呵丶很无聊


    自定义随机选取的行的数量大于50的时候，希望得到什么结果？

jyswjjgdwtdtj

var fso=new ActiveXObject("scripting.filesystemobject")
var ftext=[]
var f=fso.OpenTextFile("1.txt",1)
while(!f.AtEndOfStream){
ftext.push(f.ReadLine())
}
var newstr=''
for(var i=0;i<20;i++){
r=Math.floor(Math.random()*(50-i))
newstr+=ftext[r]+"\n"
ftext[r]=ftext[50-i]
}
var f=fso.CreateTextFile("2.txt")
f.Write(newstr)
f.close
复制代码

保存为js文件
把输入文件保存为同一文件夹下的1.txt

ly88888

回复 3# jyswjjgdwtdtj


    感谢大佬，拿走了，谢谢