Hjælp til replace funktion

Jamen, det kan man godt i gammeldags ASP/VBScript. Behold de to replace du har, og tilføj een med et regulært udtryk. Her er et testscript, du skal selvfølgelig ikke bruge response.write.

  s = "Der er

"øl"

i " &  vbcrlf &  " [citat=vodka]flasken[/citat]"
  Set r = New RegExp
  With r
  .Pattern = "\[citat=([^]]+)\]"
  .IgnoreCase = True
  .Global = True
  End With
  response.write server.htmlencode(r.Replace(s,"<div class=""citat""><b>$1:</b></citat>"))

Den udskriver:

Der er

"øl"

i <div class="citat"><b>vodka:</b></citat>flasken[/citat]

Det er faktisk ikke helt klart hvad du ønsker - hvor blev 123 af? Og der er ikke noget i HTML, der hedder "</citat>".

Sorry

[citat=Lund]123[/citat]
skal blive til

<div class="citat"><b>Lund:</b>123</div>

:)

Jeg har mine nuværende replaces som ser sådan her ud

    strContent = replace(strContent,"","<strong>",1,-1,1)
    strContent = replace(strContent,"","</strong>",1,-1,1)
    strContent = replace(strContent,"","<i>",1,-1,1)
    strContent = replace(strContent,"","</i>",1,-1,1)
    strContent = replace(strContent,"","<u>",1,-1,1)
    strContent = replace(strContent,"","</u>",1,-1,1)
    strContent = replace(strContent, vbcrlf, "<br>")
    strContent = replace(strContent,"[citat]","<div class=""citat"">",1,-1,1)
    strContent = replace(strContent,"[/citat]","</div>",1,-1,1)

Jeg har sat den op sådan her

    strContent = replace(strContent,"","<strong>",1,-1,1)
    strContent = replace(strContent,"","</strong>",1,-1,1)
    strContent = replace(strContent,"","<i>",1,-1,1)
    strContent = replace(strContent,"","</i>",1,-1,1)
    strContent = replace(strContent,"","<u>",1,-1,1)
    strContent = replace(strContent,"","</u>",1,-1,1)
    strContent = replace(strContent, vbcrlf, "<br>")
    strContent = replace(strContent,"[citat]","<div class=""citat"">",1,-1,1)
    strContent = replace(strContent,"[/citat]","</div>",1,-1,1)
      Set r = New RegExp
      With r
      .Pattern = "\[citat=([^]]+)\]"
      .IgnoreCase = True
      .Global = True
      End With
      strContent = r.Replace(strContent,"<div class=""citat""><b>$1:</b></div>")



Men den ændrer desværre ikke det ønskede, kun

""

ikke [citat=Lund][/citat]

Får egentlig også et problem hvis man kun skriver [citat], så får jeg ikke lukket mit div :/

Kan man også der tjekke om der også er afsluttet? og kun hvis taq er afsluttet skal den lave en replace?

Så skal du jo ikke have "</div>" med i sidste linie. Hvad kommer der ud af dine replacer med [citat=Lund]?

Dette

  s = "Der er

"øl"

i " &  vbcrlf &  " [citat=vodka]flasken[/citat]"
  Set r = New RegExp
  With r
  .Pattern = "\[citat=([^]]+)\](.*?)\[/citat\]"
  .IgnoreCase = True
  .Global = True
  End With
  Set q = New RegExp
  With q
  .Pattern = "\[citat\](.*?)\[/citat\]"
  .IgnoreCase = True
  .Global = True
  End With
  s=r.Replace(s,"<div class=""citat""><b>$1:</b>$2</div>")
  s=q.Replace(s,"<div class=""citat"">$1</div>")
  response.write server.htmlencode(s)

giver

  Der er <div class="citat">øl</div> i <div class="citat"><b>vodka:</b>flasken</div>

Men hvis

  s = "Der er

"øl"

i " &  vbcrlf &  " [citat=vodka]flasken"

giver det

  Der er <div class="citat">øl</div> i [citat=vodka]flasken

med [citat=Lund]
<div class="citat"><b>Lund:</b></div>1234<br>sdsad<br>a&nbsp; sd asd</div>

Den lukker 2xdiv, men det må være en kombination af den de 2 citat replace

Så kig på mit sidste udkast. Den er ikke perfekt, hvis man glemmer en [/citat], men der sker i hvert fald noget ;)

s = "Der er

"øl"

i " &  vbcrlf &  " [citat=vodka]flasken[/citat]"
  Set r = New RegExp
  With r
  .Pattern = "\[citat=([^]]+)\](.*?)\[/citat\]"
  .IgnoreCase = True
  .Global = True
  End With
  Set q = New RegExp
  With q
  .Pattern = "\[citat\](.*?)\[/citat\]"
  .IgnoreCase = True
  .Global = True
  End With
  s=r.Replace(s,"<div class=""citat""><b>$1:</b>$2</div>")
  s=q.Replace(s,"<div class=""citat"">$1</div>")
  response.write server.htmlencode(s)

syntes jeg faktisk virker udemærket.. :)

og dog, den fejler en del hvis nu jeg har

citat inde i citat

Så prøv den på

  s = "Der er

"øl i " &  vbcrlf &  " [citat=vodka]flasken"

"

Der vil du kunne se hvorfor jeg ikke synes den er perfekt. Det er også ligemeget, bare den er go' nok.

Og citat i citat fejler også. Det kan du bare forbyde, ik' ?

Du skal, groft sagt, vælge mellem at
1) Håndtere manglende [/citat]
2) Håndtere indlejrede

"..."

blokke.

Alt kan løses hvis man parser sig igennem teksten, tegn for tegn, symbol for symbol, men så snakker vi ikke regulære udtræk længere.

udtræk, udtryk, .... mon tandlæger snakker om "regulære udtræk", når de trækker tænder ud ... :)

Okai, så jeg må vælge mellem pest eller kolera, eller finde på en anden løsning.. Hmm..

Måske man bare i stedet skulle lave en form for linie-break med

----------------------------------------------------
Lund:
teksten
----------------------------------------------------
fremfor de dumme divs der vil fucke designet og alt muligt andet op på et tidspunkt..


smidt et svar for nogle gode bud :)

Nej tak.

Lukker