Just nu i M3-nätverket
Gå till innehåll

slumpvis rad i textfil


Patric Johansson

Rekommendera Poster

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”
Länk till kommentar
Dela på andra webbplatser

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

 

Länk till kommentar
Dela på andra webbplatser

Patric Johansson

vore jättesjysst om du kunde fixa det, om då ingen annan hinner före :)

 

tack!

 

Länk till kommentar
Dela på andra webbplatser

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
%>

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...