Just nu i M3-nätverket
Jump to content

slumpvis rad i textfil


Patric Johansson

Recommended Posts

Patric Johansson

Jag har försökt själv med alla olika metoder men jag får inget att fungera.

Jag har sökt i forumet men hittar inget så nu undrar jag om någon skulle kunna hjälpa mig göra en kod som skriver ut en slumpvis vald rad från en textfil oavsett hur många rader textfilen innehåller.

 

Tack på förhand!

 

/ProTeuS

Resistance is futile. You will be assimilated.

- citat från ”Star Trek - First Contact”
Link to comment
Share on other sites

Jaha, du ville ha en helt klar kod och inte bara en skiss på hur ungefär man kan göra ? ;)

Jag fixar det ikväll... (om ingen annan kranar upp det)

 

/TN

 

Link to comment
Share on other sites

Patric Johansson

jag hittade en kod till slut, så du behöver inte skriva någon kod, tack ändå!

<% 
Dim objFSO, objTS, i, value
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objTS = objFSO.OpenTextFile(Server.MapPath("ads_banners.txt"))

'Now, read the contents of the file into a string
Dim s
s = objTS.ReadAll

'Now, use split to load the contents of the file into an array
Dim aFile
aFile = split(s, vbCrLf)

Randomize Timer

'How many random elements from the array do we want?
Const n = 1

For i = 1 to n
value = aFile(Rnd * Int(ubound(aFile)))

'Now do something with value
Next

Response.Write value
%>

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...