Jag gör en sida där besökare kan skriva in text och lägga in bild. Typ: Johannes: det fungerade inte som avsett... Ta bort blankrad i slutet av text
Varje gång de trycker på enter/retur skapas en <br> i texten.
Nu vill jag kunna, av estetiska skäl, rensa bort alla <br> som av en eller annan anledning hamnat sist i texten och därför skapar en massa onödigt och fullt tomutrymme på min sida.
Hur löser jag detta på enklaste sätt?Sv: Ta bort blankrad i slutet av text
<code>
if Right(strText,4) = "<br>"
strText = Left(strText,Len(strText)-4)
end if
</code>
kanske?
Om du dessutom vill fjäska lite för W3C och följa XHTML standard så
borde väl <br> ersättas med <br /> och isf så blir ju koden:
<code>
if Right(strText,6) = "<br />"
strText = Left(strText,Len(strText)-6)
end if
</code>
//JohannesSv:Ta bort blankrad i slutet av text
Jag har knåpat ihop en funktion
Function TrimText(tmpText)
if InStrRev(tmpText,"<br>") then
tmpText = replace(tmptext,"<br>","")
TrimText = tmpText
end if
end function
Men naturligtvis tar den bort samtliga <br>.
Hur får jag den att ta bort bara de i slutet på texten?