Vis indholdet af en mappe

skjul kendte filtypenave under mappeindstillinger ??

radeonfreak> jeg tror han mener via asp script.. du kan jo vise filerne med FileSystemObject..

du prøver på at filtrere filerne og fjerne de sidste 4 tegn i filnavnet ?

<%
str = "min tekst"
if (str <> "") and (len(str) > 3) then
    str = left(str, len(str) - 4)
    response.write str
else
    response.write "strengen indeholder intet, eller også er den for kort (mindre end 4 tegn)"
end if
%>

Ved ikke lige hvordan jeg skal få det placeret korrekt, det er i scriptet herunder det skal bruges:

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set folderObject = fso.GetFolder(Server.MapPath("image"))
Set filer = FolderObject.Files

response.write "<SELECT NAME='image'>"

response.write "<option selected>Ingen billeder</option>"

For Each File In filer
  Response.Write "<option value=" & File.name & ">" & File.name & "</option value>"
Next

respose.write "</select>"
%>

jeg arbejder lige på en funktion der gør det automatisk.. hang on..

option explicit
dim i

function fjern4(mystring)
if mystring <> "" then
    response.write left(mystring, len(mystring) -4)
end if
end function

response.write "<select>" & vbcrlf
for i = 0 to 5
    response.write "<option value='filnavn" & i & ".jpg'>"
    response.write fjern4("filnavn" & i & ".jpg")
    response.write "</option value>" & vbcrlf
next
response.write "</select>"

du erstatter så bare:

"<option value='filnavn" & i & ".jpg'>"  med    "<option value=" & File.name & ">"

og

">" & File.name med  ">" & fjern4("filnavn" & i & ".jpg")

husk at det skal stå på de 3 linier jeg har lavet (ved ikke hvorfor, men ellers virker det ikke..)

altså:

funktionen fjern4 sætter du i toppen under Option Explicit og dim i:

option explicit
dim i

function fjern4(mystring)
if mystring <> "" then
    response.write left(mystring, len(mystring) -4)
end if
end function


og så kan du bruge funktionen med: fjern4(file.name):


response.write "<select>" & vbcrlf
for i = 0 to 5
    response.write "<option value='" & File.Name & "'>"
    response.write fjern4(File.Name)
    response.write "</option value>" & vbcrlf
next
response.write "</select>"

jeg har brugt "for i = 0 to 5" til at simulere 6 filer: filnavn(0 til 6).jpg
du bruger bare "For Each File In filer" i stedet

demo: http://frip.dk/thesurfer/e/q/406789/

Jeg tror ikke jeg er med på hvad du mener, jeg har prøvet dette, men giver ingen forskel

<%       
               
Set fso = CreateObject("Scripting.FileSystemObject")
Set folderObject = fso.GetFolder(Server.MapPath("image"))
Set filer = FolderObject.Files


function fjern4(mystring)
if mystring <> "" then
    response.write left(mystring, len(mystring) -4)
end if
end function


response.write "<SELECT NAME='image'>"

response.write "<option selected>Ingen billede</option>"

For Each File In filer
  Response.Write "<option value=" & File.name & ">" & File.name & "</option value>"
  response.write fjern4(File.Name)
Next


respose.write "</select>"
%>

<%       
               
Set fso = CreateObject("Scripting.FileSystemObject")
Set folderObject = fso.GetFolder(Server.MapPath("image"))
Set filer = FolderObject.Files


function fjern4(mystring)
if mystring <> "" then
    response.write left(mystring, len(mystring) -4)
end if
end function


response.write "<SELECT NAME='image'>"

response.write "<option selected>Ingen billede</option>"

For Each File In filer
    response.write "<option value='" & File.Name & "'>"
    response.write fjern4(File.Name)
    response.write "</option value>" & vbcrlf
Next

respose.write "</select>"
%>

Virker fint, tak for hjælpen :-)

var så lidt.. takker for points..

Hey forresten, ville egenlig også gerne ha fjernet stregen i titel mellem sommer og 2002 eks. sommer_2002.jpg
Er det muligt?

få kommer fjern4 funktionen til at se sådan ud:

function fjern4(mystring)
if mystring <> "" then
    mystring = Replace(mystring,"_","")
    response.write left(mystring, len(mystring) -4)
end if
end function

Meget fint :-) tak skal du ha

var så lidt