CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

apocalyptica_apo Nybegynder

24. januar 2005 - 21:30 Der er 1 kommentar og
1 løsning

Billede index generator udfra parameter i tekst streng

Jeg har en hel del billeder, som jeg gerne vil ha et index over.
Jeg har en input box hvor i jeg angiver "formatet" feks
billede[01-15].jpg og vil der udfra gerne ha genereret en liste med alle billeder.. altså
billede01.jpg
billede02.jpg
....
billede14.jpg
billede15.jpg

Dette er inkl at den tilføjer 0 x antal gange så nummeret passer. dvs [0001-0115]
0001
0002
...
0114
0115

Det punkt har jeg nået, men jeg kan bare ikke få den til at virke med flere parameter feks billede[01-15]_[01-15].jpg dvs den skal tage alle [x-x] og generere en liste med dem.. altså
billede[01-15]_[01-15].jpg =

billede01_01.jpg
billede01_02.jpg
...
billede02_01.jpg
billede02_02.jpg
...
billede15_14.jpg
billede15_15.jpg

TIA

Synes godt om

apocalyptica_apo Nybegynder

24. januar 2005 - 21:32 #1

Her er hvad jeg har fået til at virke. Indtil videre...

<body>
<%
format = trim(request.Form("format"))
%>
<form name="formatform" method="post" action="default.asp">
<span style="font-size:12px;">format: </span><input type="text" name="format" value="<%=format%>" size="50">
</form>
<br>
<br>
<%
if format <> "" then

response.Write "<b>" & format & "</b><br><br>"

set codeExp = new regExp
codeExp.global = true
codeExp.ignoreCase = true

codeExp.pattern = "(.*)\[(.*)\-(.*)\](.*)"
pointerstart = codeExp.replace (format, "$2")
pointerend = codeExp.replace (format , "$3")
outformat1 = codeExp.replace (format , "$1")
outformat2 = codeExp.replace (format , "$4")

set codeExp = nothing

for K = instr(1, pointerstart, "0") to 1 step -1
'response.Write K & "<br>"
C_null = C_null + 1
next

if len(pointerstart) > len(pointerend) then
maxLEN = pointerstart
else
maxLEN = pointerend
end if

for I = pointerstart to pointerend
STR_null = ""
for J = len(I) to len(maxLEN) - 1
'response.Write K & "<br>"
STR_null = STR_null & "0"
next
'C_null = right(C_null,len(C_null)-2)
response.Write outformat1 & STR_null & I & outformat2 & "<br>"

next

end if
%>
</body>

Synes godt om

apocalyptica_apo Nybegynder

01. februar 2005 - 23:17 #2

Ohh well =]

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP Classic fil fra subfolder Af bsn i Andet programmering	3	07/05/202416:14	08/05/202401:00
Session Variable Af bsn i Andet programmering	3	01/05/202409:44	02/05/202409:29
Modifyed Field for all Records in Access Af ingeman i Andet programmering	2	29/04/202416:05	30/04/202407:19
Delphi - Parser JSON Fil Af juzas i Andet programmering	4	25/02/202407:13	28/02/202420:56
Bat fil Af sjass i Andet programmering	5	15/01/202417:45	15/01/202420:35

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS