Avanceret String og Replace

Du kan da godt bruge replace se eksempel

<%
HTMLString = "<br><br> Tekst 1 <br><br> Tekst 2 <br><br> Tekst 3 <br><br> Tekst 4"
Response.Write (HTMLString)

HTMLString = Replace(HTMLString, "<br><br>", "<h1>",1,1)
HTMLString = Replace(HTMLString, "<br><br>", "<h2>",1,1)
HTMLString = Replace(HTMLString, "<br><br>", "<h3>",1,1)
HTMLString = Replace(HTMLString, "<br><br>", "<h4>",1,1)

Response.Write "<br><br><br><br>"

Response.Write (HTMLString)
%>

Jeg går ud fra at der en eller anden form for system i det du skal udskifte, og så kan man via 1 eller flere løkker, få udskiftet "<br><br>"

En lille twist på problemet er at jeg gerne vil udskifte "<br><br>" med "<br><br>xxxx". Så vidt jeg kan se vil det give problemer med ovenstående løsning.

Håber at der er en der vil hjælpe...

Ok der skal lige tilføjes at xxxx i "<br><br>xxxx" er en eller anden form for tekst eller html...

Her er lige et eksempel på hvad jeg mener:
Replace "<br><br>" med "<br><br><b><%=strHead1%></b>"
Den næste næste gang at "<br><br>" optræder skal den f.eks. erstattes med "<br><br><%=strHead2%>"

Din strHeadx bør nok laves som et array så man kan kalde det med strhead(x)

for så kan man jo gøre følgende:

<%
' Bare for at ha noget i strHead(x) og HTMLString
DIM strHead(4)
FOR i = 1 TO 4
strHead(i) = "Head"&i
NEXT
HTMLString = "<br><br> Tekst 1 <br><br> Tekst 2 <br><br> Tekst 3 <br><br> Tekst 4"

' Her begynder selve koden
SearchChar = "<br><br>"

tempHTML = Split(HTMLString, SearchChar, -1, 1)
position=1
b=1

DO While Instr(position, HTMLString, SearchChar, 0)<>0
    position=Instr(position, HTMLString, SearchChar, 0)+1
    tempHTML2 = tempHTML2 & "<BR><BR>"&strHead(b)& tempHTML(b)
    b=b+1
LOOP
HTMLString = tempHTML2
%>
<P>
Kode
</p>
<%=HTMLString%>

Det var sandt ingen brug af replace :)

Kanon, så kan jeg komme igang med mit lille projekt :0)

Hilsen Fuxi