Søg
Avatar billede thefatman Nybegynder
12. februar 2004 - 13:26 Der er 6 kommentarer og
1 løsning

RegEXP - Replace og gentagelser

Hej folkens

Jeg har nu lavet mig et forum, hvor man kan quote andres indlæg, det fungerer perfekt, men lige så snart man vil lave quote i quote, så bliver der ballade....

Her et et eks:
[Quote=TheFatMan]
[quote=Navn her]test[quote]
test2
[/Quote]

Når det sker, så bliver de yderste Quote tags replaced, mens de inderst ikke bliver rørt..

Her er min funktion:
<%
Function RegEXPMaker(strInput)
    Set regex = New RegExp
        regex.Global = True
        regex.IgnoreCase = True
        regex.Pattern = \[QUOTE=(.*?)\](.*?)\[/QUOTE\]"
        RegEXPMaker = regex.Replace(strInput,<fieldset><LEGEND style=padding-bottom:5px>$1 skrev følgende:</LEGEND>$2</fieldset> )
    Set regex = nothing
End Function
%>

Jeg ville jo gerne have at den replacede begge quote tags, så jeg fik følgende resultet:
<fieldset>
<LEGEND style=padding-bottom:5px>TheFatMan skrev følgende:</LEGEND>
<br>
<fieldset>
<LEGEND style=padding-bottom:5px=Navn her skrev følgende:</LEGEND>
test2<br>
</fieldset>
</fieldset>

Håber I kan hjælpe mig med at læse problemet..
Avatar billede ellebaek Nybegynder
12. februar 2004 - 14:31 #1
<%
Function RegEXPMaker(strInput)
    Set regex = New RegExp
        regex.Global = True
        regex.IgnoreCase = True
        regex.Pattern = \[QUOTE=(.*?)\](.*?)\[/QUOTE\]"
        RegEXPMaker = regex.Replace(strInput,<fieldset><LEGEND style=padding-bottom:5px>$1 skrev følgende:</LEGEND>RegEXPMaker($2)</fieldset> )
    Set regex = nothing
End Function
%>

Ved ikke helt om det kan lade sig gøre det her, men det skal jo være noget med at du laver et rekursivt kald, så den inderste del også bliver rørt.
Avatar billede thefatman Nybegynder
12. februar 2004 - 15:09 #2
#ellebaek

It won't work...hehe...

http://www.thefatman.dk/test.asp

Er der nogle andre som har nogle idéer`?
Avatar billede eagleeye Praktikant
12. februar 2004 - 15:15 #3
Prøv sådan her:

<%
Function RegEXPMaker(strInput)
    dim tempStr
    Set regex = New RegExp
    regex.Global = True
    regex.IgnoreCase = True
    regex.Pattern = \[QUOTE=(.*?)\](.*?)\[/QUOTE\]"
    tempStr = regex.Replace(strInput,<fieldset><LEGEND style=padding-bottom:5px>$1 skrev følgende:</LEGEND>$2</fieldset> )
    if regex.test(tempStr) then tempStr = RegEXPMaker(tempStr)
    RegEXPMaker = tempStr
    Set regex = nothing
End Function
%>
Avatar billede thefatman Nybegynder
12. februar 2004 - 15:27 #4
#Eagle

Ventede på dig :)

Men desværre virker din kode ikke.

Her er sourcen til test.asp:
<%
Function RegEXPMaker(strInput)
    dim tempStr
    Set regex = New RegExp
    regex.Global = True
    regex.IgnoreCase = True
    regex.Pattern = "\[QUOTE=(.*?)\](.*?)\[/QUOTE\]"
    tempStr = regex.Replace(strInput,"<fieldset><LEGEND style=padding-bottom:5px>$1 skrev følgende:</LEGEND>$2</fieldset>" )
    if regex.test(tempStr) then tempStr = RegEXPMaker(tempStr)
    RegEXPMaker = tempStr
    Set regex = nothing
End Function

http://www.thefatman.dk/test.asp


strTest = "[Quote=TheFatMan][quote=Navn her]test[quote]test2[/Quote]"

response.write "<strong>Orginal String:</strong><br>" + strTest + "<br>"
response.write "<br><br>"
response.write "<strong>After String:</strong><br>" + RegEXPMaker(strTest )+ "<br>"

%>
Avatar billede eagleeye Praktikant
12. februar 2004 - 15:31 #5
der mangler en / i den anden quote
[quote=Navn her]test[quote]
Skal være:
[quote=Navn her]test[/quote]

men jeg tror den så tager slut [/quote] for den forkerte..
Avatar billede thefatman Nybegynder
12. februar 2004 - 16:35 #6
eagle.

Hvad kan jeg mere sige end - MANGE TAK

Du reddede mig igen - igen - igen :) hehe
Avatar billede eagleeye Praktikant
12. februar 2004 - 16:39 #7
hehe ok, det ser ud som om den tager den rigtige slut /quote :)
et svar fra mig så :))
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
22/0821:38 webui_forge_cu121_torch231 med AMD Grafikkort. Af jonpet i Andet software
22/0820:06 email adresse Af Malm i Forslag til ændringer
22/0819:54 problem med google crome Af Malm i Andet software
22/0809:36 Alternativ holder til to skærme... Af Don G i Skærme
20/0815:01 Samsung smart TV Af postpeter@outlook.dk i Fri debat
White papers
Flere white papers »