Läsa random rad i txt-fil?

Hmmm...
Vad jag kom på...
Jag antar att du har skapat ett FileSystemObject och öppnat filen och så.

Filen innehåller typ... 50 rader.. ok
Kör då:

Set FSO = Server.Create("Script.FileSystemObject")

Set Read = FSO.OpenTextFile("FIL.Txt", 1, 1, False)

Randomize()
Tal = Round(Rnd() * 49)

For cLoop = 0 To Tal 
Read.ReadLine
Next

Response.Write Read.ReadLine

Kanske går att hoppa till en rad så man slipper min loop, men det funkar nog!

Lycka till!

Set FSO = Server.Create("Script.FileSystemObject")
Set Read = FSO.OpenTextFile("FIL.Txt", 1, 1, False)
strText = Read.ReadAll
numRows = ubound(split(strText,vbcrlf))+1

Randomize()
Tal = Round(Rnd() * (numRows-1))

For cLoop = 0 To Tal
Read.SkipLine
Next

Response.Write Read.ReadLine

Kanske