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?