fastslz

VBS

Dim Fso,File
Set Fso = CreateObject("Scripting.FileSystemObject")
Set File = Fso.OpenTextFile("Test.txt")
File.ReadAll
B=File.Line
File.Close
Randomize
N=Fix(Rnd*B)

Set File = Fso.OpenTextFile("Test.txt")
For i = 1 to N - 1
    File.ReadLine
Next
aLine = File.ReadLine
File.Close
Wscript.Echo "随机第" & N &"行" & vbCrLf & vbCrLf & aLine
Set Fso=Nothing
Set File=Nothing
复制代码

pusofalse

随机？ 提取前10行算随机吗？~

随风

1、允许任何人回帖吗？
2、允许创建临时文件吗？
3、文本中有空行吗？

[ 本帖最后由 随风 于 2009-3-21 18:19 编辑 ]