Udtræk x antal tilfældige (forskellige) imagefiler fra en mappe

Du skal bare holde "ctrl" i bund, og så vælger du med musen vilke filer det...

//gammelgaard_mink

Det skal være et script.

Ja, det er muligt...

Gider ikke skrive et script til dig, men kan hjælpe dig i den rigtige retning.
Hvis du så løber ind i problemer derfra, så kan du skrive her, eller oprette et nyt spørgsmål.

Du skal bruge filescriptingobject (Forkortet FSO) til at rode med filer. Du kan søge efter kode til det her på eksperten.dk eller via google.dk

Held og lykke med det.

dna

Her er script som laver en liste med filer i en bestemt folder i varialben filList. Den laves om til et array som man finder et random billede som vises.:

Det kan der bygges vidre på så den finder flere random filer.


<%
mappenavn = "/images/"    '<---- Angiv hvilekn folder billeder er i
Set fs = CreateObject("Scripting.FileSystemObject")
Set files = fs.GetFolder(server.mappath(mappenavn)).Files

For Each f in files
  if InStr(1,"gif,jpg,jpeg,bmp", LCase(fs.GetExtensionName(f.name))) > 0 then
    filList = filList & "," & f.name
  end if
next
filList = mid(filList,2)
billeder = Split(filList,",")
randomize
billedsrc = mappenavn & billeder(Int(rnd * (Ubound(billeder)+1)))

Response.Write "<img src=""" & billedsrc & """>"

Set fs = Nothing
Set files = Nothing
%>

eagleeye> Tak for svar.
Nu får jeg x antal image filer, men hvad når image filerne skal være forskellig fra hinanden??? Hvordan gøres det???

Så man man lave lidt kode, til det..


Prøv at rette.

filList = mid(filList,2)
billeder = Split(filList,",")
randomize
billedsrc = mappenavn & billeder(Int(rnd * (Ubound(billeder)+1)))

Response.Write "<img src=""" & billedsrc & """>"


Til:

filList = mid(filList,2)
billeder = Split(filList,",")
randomize
billedsrc = mappenavn & billeder(Int(rnd * (Ubound(billeder)+1)))
'Gem billedet i en liste
billedeList = billedsrc

antal = 3
i = 1
do while i < antal AND i < Ubound(billeder)+1
  billedsrc = mappenavn & billeder(Int(rnd * (Ubound(billeder)+1)))
  'Tjek at det ikke er fundet før
  if inStr(1, billedeList, billedsrc) = 0 then
    billedeList = billedeList & "," & billedsrc
    i = i + 1
  end if
loop

'Udskriv billederne
filArr = Split(billedeList,",")
for i = lbound(filArr) to ubound(filArr)
  Response.Write "<img src=""" & filArr(i)""">" & "<br>"
next

eagleeye> Det virker bare for sejt...tusind tak. Du go´.