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

[REBOL] Re: auto id's for vid objects

From: tomc:darkwing:uoregon at: 17-Feb-2004 0:38

maybe if this is not what you expect you could give examples of what output you expect from your input. this is the same rule as I sent yesterday with the resy of the program wrapped around it. rebol[] x: {button "one" button "two" text "browser"} y: {then try this: button "one" text "browser" button "two"} button_count: 0 txt_count: 0 btn: to-string reduce [to-set-word 'id ": " to-set-word 'btn] txt: to-string reduce [to-set-word 'id ": " to-set-word 'txt] rule: [ any[ to "button" mark: (insert :mark reduce [btn button_count: button_count + 1":"{ }] mark: skip mark 16):mark ] any[ to "text" mark: (insert :mark reduce [txt txt_count: txt_count + 1":"{ }] mark: skip mark 14) :mark ] ] parse/all x rule probe x button_count: txt_count: 0 parse/all y rule probe y halt On Mon, 16 Feb 2004, iNetW3 wrote: