|
@@ -9,17 +9,18 @@
|
|
|
! example:
|
|
|
! *pl func('cleanHTML', $HTMLString)
|
|
|
|
|
|
-$HTMLString = $ARGS[0]
|
|
|
-:cleanHTMLloop
|
|
|
-!$BadStr = STRFIND($HTMLString, '\>\s+\<', 0)
|
|
|
-!if $BadStr ! "":
|
|
|
-! $HTMLString = REPLACE( $HTMLString , $BadStr , "><" )
|
|
|
-! jump 'cleanHTMLloop'
|
|
|
-!end
|
|
|
+$cleanHTML['Input'] = trim($ARGS[0])
|
|
|
+$cleanHTML['ReturnStr'] = ""
|
|
|
+$cleanHTML['tab'] = " "
|
|
|
+$cleanHTML['newline'] = "
|
|
|
+"
|
|
|
+!Strip out newlines and tabs, which should not be in the string
|
|
|
+$cleanHTML['ReturnStr'] = replace($cleanHTML['Input'],$cleanHTML['newline'],"")
|
|
|
+$cleanHTML['ReturnStr'] = replace($cleanHTML['ReturnStr'],$cleanHTML['tab'],"")
|
|
|
|
|
|
-$result = $HTMLString
|
|
|
+$result = $cleanHTML['ReturnStr']
|
|
|
|
|
|
-killvar '$HTMLString'
|
|
|
-killvar '$BadStr'
|
|
|
+killvar '$cleanHTML'
|
|
|
+killvar 'i'
|
|
|
|
|
|
--- cleanHTML ---------------------------------
|