Script Library: 1219 scripts
 

websplit.r

REBOL [ Title: "Web HTML Tag Extractor" Date: 20-May-1999 File: %websplit.r Purpose: {Separate the HTML tags from the body text of a document.} library: [ level: 'intermediate platform: 'all type: [Demo Tool] domain: [web other-net text-processing] tested-under: none support: none license: none see-also: none ] Version: 1.0.0 Author: "Anonymous" ] tags: make block! 100 text: make string! 8000 html-code: [ copy tag ["<" thru ">"] (append tags tag) | copy txt to "<" (append text txt) ] page: read http://www.rebol.com parse page [to "<" some html-code] foreach tag tags [print tag] print text
halt ;; to terminate script if DO'ne from webpage
Notes