Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Re: How to properly parse HTML and XHTML Meta Tags

From: vonja:sbcglobal at: 12-Sep-2008 0:06

Thanks Tom, I kept on plugging away and came up with I believe a working script. It's going to take some time for me to digest what you've written me. I'll play around with yours tomorrow; I really appreciate your help! I've updated note 1 that you had provided me :-) Here's what I came up with right before you sent your reply. page: read ; webpage to be parsed title: copy "" description: copy [] keywords: copy [] parse page [ thru <title> copy title to </title>] print title parse page [ thru "<meta name=^"keywords^" content=" copy keywords to
] either not none? (find/last keywords "/") [ keywords: tail keywords keywords-tail: skip keywords -1 if keywords-tail = "/" [keywords: remove keywords-tail] print head keywords ][if/else empty? keywords [print "blank"][print keywords]] parse page [ thru "<meta name=^"description^" content=" copy description to ">" ] either not none? (find/last description "/") [ description: tail description description-tail: skip description -1 if description-tail = "/" [description: remove description-tail] print head description ][if/else empty? description [print "blank"][print description]]