Avatar billede 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
Avatar billede 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>
Avatar billede apocalyptica_apo Nybegynder
01. februar 2005 - 23:17 #2
Ohh well =]
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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