Anyone got one of these? [correction-typo]

[Jim Ault]

Obviously
>     put item 2 of LNN & cr after newHtmlStr
should be 
     put item 2 to -1 of LNN & cr after newHtmlStr

Jim

On 1/26/07 1:20 PM, "Jim Ault" <JimAultWins at yahoo.com> wrote:

> On 1/26/07 10:56 AM, "Chipp Walters" <chipp at chipp.com> wrote:
> 
>> function stripAllTagsBut pHtml,pTagsList
>>   --> pTagsList IS A LIST OF TAGS NOT TO EXCLUDE FROM PARSING
>>   --> EX. LINE 1 OF pTagsList CAN BE "img" AND LINE 2 CAN BE "b", etc..
>> It's used to strip all tags from HTML but those in the pTagsList parameter.
>> 
>> IOW, it can be used to grab the HTML of a page, and strip everything but the
>> img tags.
>> 
> Do you need them in the sequencial order?
> assuming Yes
> 
> I would start with the idea of making the 'un-naughty bits' a list to be
> used in an optional repeat loop below, then
> 
> ---------------  start copy here
> --Short, fast, sweet.
> on test
>   put fld 1 into htmlStr --assumes sorce is in fld 1
>   replace Null with empty in htmlStr --clean out
>   --numtochar(3) works just as well
>   replace cr with "†" in htmlStr --preserve
> 
>   --repeat for each tag you want to preserve
>   replace "<img" with cr&"img" in htmlStr
>   
>   set the itemDel to ">"
>   repeat for each line LNN in (line 2 to -1 of htmlStr)
>     put item 1 of LNN & null after newHtmlStr
>     put item 2 of LNN & cr after newHtmlStr
>   end repeat
>   put newHtmlstr into line 2 to -1 of htmlStr
>   --end repeat for each tag you want to preserve
>   -------------
>   --  Now line 2 to last start with "img" and have a null char as the end
> tag
>   --  You can strip all <tags> then restore the html by
>   -------
> --Now restore all the protected tags
>   replace cr with "<" in htmlStr
>   replace null with ">" in htmlStr
>   replace "†" with cr in htmlStr
>   put htmlStr into fld 2
> end test
> 
>  -- although this last replace step may not make any sense since HTML pages
> don't use cr to format or delimit anything.
> 
> This is very fast and protects/restores the targeted tags.
> 
> Jim Ault
> Las Vegas
> 
> 
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your subscription
> preferences:
> http://lists.runrev.com/mailman/listinfo/use-revolution