---

Ja, kan godt findu ud af alt det lort med at lave udtræk fra en database om
til <br /> MEN, nu vil jeg egentlig gerne have at man ikke har mulighed for
at lave mere end 2 i træk. :)

Nogle der kan hjælpe med det? For google er sq ikke til megen hjælp :(

---

mELIeha skrev:

> Ja, kan godt findu ud af alt det lort med at lave udtræk fra
> en database om til <br /> MEN, nu vil jeg egentlig gerne have
> at man ikke har mulighed for at lave mere end 2 i træk. :)

Regex er din ven. Prøv følgende funktion:

Function formatTekst(myinput)
Dim test
   Dim rgx, uddata
   
   ' Erstat flere linjeskift med afsnitskoder
   Set rgx = Server.createobject("VBScript.RegExp")
   rgx.global = true
   
   rgx.pattern = "\s*\n\s*\n"
   uddata = rgx.replace(myinput, "</p><p>")
   
   ' Erstat enkelt linjeskift med br:
   uddata = Replace(uddata, vbNewLine, "<br />" & vbNewline)
   
   ' Sæt linjeskift mellem /p og p
   uddata = Replace(uddata, "</p><p>", "</p>" & vbNewline &
"<p>")
   
   ' Sæt første p og sidste /p
   uddata = "<p>" & uddata & "</p>"
   formatTekst = uddata
End Function
%>

Du kan afprøve den her:
<http://gyros.dk/usenet/asp/tekstfunktion.asp>
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Jamen det ser jo ud til at virke perfekt, jeg prøver det selv lige senere i
aften :)

Men jeg takker og bukker for det fine svar.

---

mELIeha skrev:

> Men jeg takker og bukker for det fine svar.

Velbekomme. Hvis du vil gøre lidt til gengæld, må du gerne læse min
signatur.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html