replace multiple linieskift med kun et linieskift

Du kan evt. bare replace to linieskrift - til ingenting
Replace(sTekst, vbCrLf & vbCrLf, "")

Jeg skal ikke have replacet 2 linieskift til ingenting.
Men hvis der er mere end 2 linieskift skal de resterende linieskift ignoreres.

Sorry hvis jeg ikke havde forklaret mig ordentligt.

f.eks her på eksperten kan man heller ikke lave mere end 2 <br>'s efter hinanden


....





....
.






..

lol jo... det kunne man sgu :P

sorry

hmm... det kan vel godt laves... men det er nok lidt omstændigt sådan her...:
<%
str = "Min streng med 3 linieskift" & vbcrlf & vbcrlf & vbcrlf & "Og her er der så 4 liniskift" & vbcrlf & vbcrlf & vbcrlf & vbcrlf

strS = split(str,vbcrlf)
for a=0 to ubound(strS)
if (strS(a) <> "" OR NOT strS(a)=vbcrlf) then
streng=streng & strS(a) & vbcrlf
else
streng=streng
end if
next
%>

- well... denne burde give det rigtigt resultat... men måske skal den modificeres lidt...

\Dan

Cool nok.. Tak dannielsen - så har jeg lidt at lege videre med. :)

Lægger du lige et svar? :)

OK!

- her et svar...

og jeg fik vist ikke lavet det sådan at det virker før... her får du lige en udgave hvor det rent faktisk virker:
<%
str = "Min streng med 3 linieskift" & vbcrlf & vbcrlf & vbcrlf & "Og her er der så 4 liniskift" & vbcrlf & vbcrlf & vbcrlf & vbcrlf
str = replace(str,vbcrlf,"<br>")
strS = split(str,"<br>")
for a=0 to ubound(strS)
    if NOT "" &  strS(a) & ""="" then
streng=streng & strS(a) & "<br>"
    else
streng=streng
    end if
next
response.write streng
%>

\Dan

Hehe tak :)

- det var så lidt... og tak for point!

\Dan