[REBOL] Parse Question: html-to-text conversion help.

[alan parman]

I have a working html-to-text converter, but would like to add the links to the text 
as well.
The following parse rule works well to extract only the links...

        link: [some [thru "<a href=" copy lnk to ">" (append text lnk)]]

... but is there any way to add this to the converter below?

I'm having trouble since the html-rules already contain ["<" thru ">"].


*** html-to-text converter ***
The following code is modified from the Core/Parse docs and the %texthtml.r 
text-to-html converter...

html-text-extractor: context [
        text: make string! 256
        html-rules: [
                to "<" some [["<" thru ">"] | copy txt to "<" (append text txt)]
        ]
        symbols: [
                "&amp;" "&"
                "&lt;" "<" 
                "&gt;" ">"
                "&quot;" {"}
        ]
        extract-text: func [
                {Extracts text from an HTML web page. 
                Usage           extract-text read http://www.rebol.com/index.html
                                extract-text read %license.html
                }
                page [string!]
        ][
                clear text
                parse/all page [html-rules]
                foreach [symbol char] symbols [
                        replace/all text :symbol :char
                ]
        ]
]

-- 

_______________________________________________
Sign-up for your own FREE Personalized E-mail at Mail.com
http://www.mail.com/?sr=signup

-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.