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! :)

------------------
Say hello to my stinky little friend!

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 :)

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=19" TARGET=_blank>Skulle du äta på restaurang, om det var rökförbud?
</A>Varför blir mina isbitar inte lika klara som i reklamen?

[Redigerat av Brimba den 17 aug 2001]