Dobbelt linieskift i formularer

strBeskrivelse = Replace(strBeskrivelse, vbCrLf, "<br>")

//>Rune

fx.:

strBeskrivelse = rs("Beskrivelse")
strBeskrivelse = Replace(strBeskrivelse, vbCrLf, "<br>")

//>Rune

Ja, men så replace's alle konstanterne med et <br>, hvilket giver mere end ét linieskift.

Et dobbelt linieskift må jo være angivet med vbCrlfvbCrlf...

sådan her:

strBeskrivelse = Replace(rs("Beskrivelse"), vbCrlf & vbCrlf, "<BR>")

Men hvis der så er 3 linie skift så bliver det til to linie skift når man ændre til <br>.

Så du skal nok lavet noget loop som ændre to vbCrLF til en vbCrLf:

strBeskrivelse = Replace(rs("Beskrivelse"), vbCrlf & vbCrlf,vbCrlf)

do while (inStr(1,strBeskrivelse,vbCrLf) > 0)
  strBeskrivelse = Replace(strBeskrivelse, vbCrlf & vbCrlf,vbCrlf)
loop

Så skulle der gerne kun være en vbCrLf imellem hver linie som så kan laves om til <br>:

strBeskrivelse = Replace(strBeskrivelse, vbCrLf, "<br>")

hov.. do while skal være denne !!:

do while (inStr(1,strBeskrivelse,vbCrLf & vbCrlf) > 0)
  strBeskrivelse = Replace(strBeskrivelse, vbCrlf & vbCrlf,vbCrlf)
loop

Ahh... det var et "&", jeg manglede - tak :)