28. september 2003 - 10:58
Der er
17 kommentarer og 1 løsning
Vis indholdet af en mappe
Jeg fik svar på spørgsmålet om vis indholdet af en mappe, men jeg kunne godt tænke mig at fjerne de sidste 4 tegn i option, så ".jpg" ikke vises, er det muligt?
Annonceindlæg tema
Cloud & AI
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
28. september 2003 - 11:00
#1
skjul kendte filtypenave under mappeindstillinger ??
28. september 2003 - 11:36
#2
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 ?
28. september 2003 - 11:43
#3
<% 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 %>
28. september 2003 - 11:52
#4
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>" %>
28. september 2003 - 12:07
#5
jeg arbejder lige på en funktion der gør det automatisk.. hang on..
28. september 2003 - 12:28
#6
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>"
28. september 2003 - 12:31
#7
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..)
28. september 2003 - 12:33
#8
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>"
28. september 2003 - 12:36
#9
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
28. september 2003 - 12:41
#10
28. september 2003 - 12:49
#11
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>" %>
28. september 2003 - 13:06
#12
<% 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>" %>
28. september 2003 - 13:31
#13
Virker fint, tak for hjælpen :-)
28. september 2003 - 13:45
#14
var så lidt.. takker for points..
29. september 2003 - 00:12
#15
Hey forresten, ville egenlig også gerne ha fjernet stregen i titel mellem sommer og 2002 eks. sommer_2002.jpg Er det muligt?
29. september 2003 - 16:48
#16
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
29. september 2003 - 17:49
#17
Meget fint :-) tak skal du ha
29. september 2003 - 17:54
#18
var så lidt
Kurser inden for grundlæggende programmering