Removing unknowm number of breaks from string

mat41 · October 15th, 2008, 06:37 PM

Good day

I get a feeling the code I have to remove an unknown number of breaks from the end of a string can be done better. I am using this CuteSoft WYSIWYG editor. Im not a fan of it, all these damn 's keep get thrown on the end every time the form is submitted. Such a pain in the ***

Anyhow the teaxt area may be fairly long in some cases. My code to detect and get rid of the 's is:

 dim runAgain,newStr
 thStr = "The difficulty of launching and recovering seaboats "
 runAgain = true

 do until runAgain = false
 if (right(thStr,3) = "br>" or right(thStr,3) = "BR>") then
 thStr = left(thStr,(len(thStr)-4))
 runAgain = true
 else
 runAgain = false
 end if
 loop

Any suggestions on making this code better would be appriciated.

TYIA

Wind is your friend
Matt
www.elitemarquees.com.au

Old Pedant · October 15th, 2008, 08:00 PM

Code:

<%
...
thStr = "The difficulty of launching and recovering seaboats<br><br><BR>"

Set reZap = New RegExp
reZap.Pattern = "(\<br[^\>]*\>)+$"
reZap.IgnoreCase = True

thStr = reZap.Replace( thStr, "" )
...
%>

That will handle all variants of a tag, including
 
 
 
 
and more.

It says:
( )+ -- one or more times
$ -- at the end of the text
\ ]* -- followed by any number of non-> characters
\> -- and finally a > character
And then the replace zaps all of those, replacing them with a blank string.

If you'd like to provide for spaces and/or newlines mixed in amongst the s, either before or after or between, just change to:

Code:

reZap.Pattern = "(\s*\<br[^\>]*\>)+\s*$"

Completely untested, off the top of my head. Still warranted against all bugs* for 30 picosends or 30 bits, whichever comes first.

*bugs must have 6 or 8 legs to be covered.

mat41 · October 15th, 2008, 08:16 PM

what can I say except for wow, a very powerful couple of lines. As always your code is top shelf!!

I will test further as I not only need to run this for new inserts and updates but on all the currently stored data.

Have a fine day, your time is very much apprciated.

Wind is your friend
Matt
www.elitemarquees.com.au

mat41 · October 15th, 2008, 08:18 PM

Oh and BTW than you for the explanation and breakdown. Im sure:

"(\<br[^\>]*\>)+$"

would be veru confusing to alot of people :o)

Wind is your friend
Matt
www.elitemarquees.com.au