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
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>
