|
|
@@ -10,11 +10,12 @@
|
|
|
! *pl func('cleanHTML', $HTMLString)
|
|
|
|
|
|
$HTMLString = $ARGS[0]
|
|
|
-
|
|
|
+Limiter4Loop = 0
|
|
|
:cleanHTMLloop
|
|
|
$BadStr = STRFIND($HTMLString, '\>\s+\<', 0)
|
|
|
-if $BadStr ! "":
|
|
|
+if $BadStr ! "" and Limiter4Loop < 10:
|
|
|
$HTMLString = REPLACE( $HTMLString , $BadStr , "><" )
|
|
|
+ Limiter4Loop += 1
|
|
|
jump 'cleanHTMLloop'
|
|
|
end
|
|
|
|
|
|
@@ -22,5 +23,6 @@ $result = $HTMLString
|
|
|
|
|
|
killvar '$HTMLString'
|
|
|
killvar '$BadStr'
|
|
|
+killvar 'Limiter4Loop'
|
|
|
|
|
|
--- cleanHTML ---------------------------------
|
