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

[REBOL] using parse to extract indexed string

From: rchristiansen::pop::isdfa::sei-it::com at: 13-Nov-2000 14:16

Parsing problem: 1. I want to parse a string and verify a keyword exists. 2. I want to mark the keyword with an index value. 3. I want to return to the marked index value and parse out index value 'x to index value ('x + 100) How do I do this? I'm having trouble understanding the use of index. Here is my search code thus far... directory-contents: read %./ ; --- GET LIST OF FILE NAMES WITH VALID EXTENSIONS FROM HELP DIRECTORY --- file-list: copy [] for file-grab 1 (length? directory-contents) 1 [ file-name: first directory-contents file-ext: find/last file-name "." if file-ext = %.html [ append file-list file-name ] directory-contents: next directory-contents ] ; --- QUERY HELP FILES FOR KEYWORD --- pages-with-keyword: copy [] help-file-titles: copy [] keyword-count: copy [] foreach help-file file-list [ file-contents: read help-file if find file-contents cgi-input/keyword [ append pages-with-keyword help-file parse file-contents [thru <TITLE> copy text to </TITLE> (append help-file-titles text)] keyword: cgi-input/keyword count: 0 parse file-contents [any [thru keyword (count: count + 1)]] append keyword-count count ] ] Thanks. -Ryan