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: ingo:2b1 at: 17-Feb-2004 10:34

Hi iNetW3, maybe the following does what you want, but beware: it's not elegant, I just parse the whole string for all buttons first, and then restart to find all texts. x: {button "one" button "two" text "browser"} ;x: {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] parse x [ home-mark: any [ to "button" mark:( remove/part mark 6 insert mark reduce [btn button_count: button_count + 1 ":"{ }"button"]) :mark 12 skip ] :home-mark any [ to "text" mark:( remove/part mark 4 insert mark reduce [txt txt_count: txt_count + 1 ":"{ }"text"]) :mark 12 skip ] ] I hope that helps, Ingo iNetW3 wrote: