Thanks Tom, Brett, Ingo, I have a browser/viewer that reads HTML and views it as VID.
The code in question is an update of an auto-identifier script that gives general ID references to HTML-to-VID code. After the HTML is loaded, the ID's are added to the HTML and VID in block form which then is layed out and viewed These variable ID's allow the HTML and viewed VID to be updated/changed as soon as it's created in the browser even if no ID's are found in the HTML tag. It's a part of the browser's DOM. The DOM and HTML are changed with either in-line rebol/script, or xmlnode parsing. ....<p id=p1 bgcolor=red color=blue onclick="p1/text({Now i'm changed}).show.p1"> watch me change</p> <p id=p1 bgcolor=red color=blue onclick="getattribute.{p1}.setnodevalue.{Now i'm changed} </p> So thanks for helping with this simple but testy piece of code, it either would endless-loop or not catch all the objects. ----- Original Message ----- From: Tom Conlin <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, February 17, 2004 2:38 AM Subject: [REBOL] Re: auto id's for vid objects > > > > 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: > > > Hey ML, > > > > I spoke too soon. > > > > If any know how to make this code work, > > or demo some code that does the same thing, > > it would be well appreciated. > > > > code: ------------------------------------------- > > x: {button "one" button "two" text "browser"} > > {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] > > > > parse x [any [ > > to "button" mark:( > > remove/part mark 6 insert mark reduce [btn button_count: button_count + 1 > > ":"{ }"button"]) > > :mark > > > > to "text" mark:( > > remove/part mark 4 insert mark reduce [txt txt_count: txt_count + 1 > > ":"{ }"text"]) > > :mark > > > > ] > > ] > > > > > > > > > > ----- Original Message ----- > > From: iNetW3 <[EMAIL PROTECTED]> > > To: <[EMAIL PROTECTED]> > > Sent: Monday, February 16, 2004 1:15 AM > > Subject: [REBOL] Re: auto id's for vid objects > > > > > > > > > > -- > > To unsubscribe from this list, just send an email to > > [EMAIL PROTECTED] with unsubscribe as the subject. > > > -- > To unsubscribe from this list, just send an email to > [EMAIL PROTECTED] with unsubscribe as the subject. > -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.