Find? Copy/Part?

Hi list, Suppose I have str: "aaa*aaa*aaa*aaa" Wich is the best way to get the position of second "*" at word str? -- *:-.,_,.-:*'``'*:-.,_,.-: Carlos Lorenz *:-.,_,.-:*'``'*:-.,_,.-:

On Tue, 18 Jan 2005 11:13:57 -0200, Carlos Lorenz <carlos.lorenz-gmail.com> wrote:

> Hi list, > > Suppose I have str: "aaa*aaa*aaa*aaa" > > Wich is the best way to get the position of second "*" at word str? >

> -- > *:-.,_,.-:*'``'*:-.,_,.-: > To unsubscribe from the list, just send an email to rebol-request > at rebol.com with unsubscribe as the subject.

Hi Carlos, here are the first 4 ideas I got

>> profiler/test [index? find next find str #"*" #"*"] 100000

>> profiler/test [parse str [2 [thru "*"] here: (pos: subtract index?

>> profiler/test [parse str [2 [thru #"*"] here: (pos: subtract index?

>> profiler/test [parse str [thru #"*" to #"*" here: (pos: index? here

Ingo, Thanks for you reply. I dir not think about parse though I can see you solve it using it. Parse yet has a not so confortable sintax to me so I try to avoid the use of it most part of the time. I'd like to have something just like I get in Visual Fox Pro. See below: * ------------------------------------------ a = "aaa*aaa*aaa*aaa" * gets the second ocurrence of "*" in the string from left to right pos = at( "*" , a , 2) * then asking VFP to grab a piece of the string up to the * second "*" in the string a ? left(a,pos) * gives the result aaa*aaa* * ------------------------------------------- Would it be very nice to have an AT-like native function in REBOL/Core, don't you think so? On Tue, 18 Jan 2005 23:38:43 +0900, Ingo Hohmann <[ingo--2b1--de]> wrote:

> Hi Carlos, > here are the first 4 ideas I got > To unsubscribe from the list, just send an email to rebol-request > at rebol.com with unsubscribe as the subject.

Hi Carlos, On Tuesday, January 18, 2005, 6:05:40 PM, you wrote: CL> Would it be very nice to have an AT-like native function in CL> REBOL/Core, don't you think so? And what would it do, that FIND doesn't do already? Regards, Gabriele. -- Gabriele Santilli <[g--santilli--tiscalinet--it]> -- REBOL Programmer Amiga Group Italia sez. L'Aquila --- SOON: http://www.rebol.it/

Gabriele, The question is that I cannot figure out how to do it using find. Would you mind to give a help? On Tue, 18 Jan 2005 18:18:19 +0100, Gabriele Santilli <gabriele-colellachiara.com> wrote:

> Hi Carlos, > On Tuesday, January 18, 2005, 6:05:40 PM, you wrote: > To unsubscribe from the list, just send an email to rebol-request > at rebol.com with unsubscribe as the subject.

Tuesday, January 18, 2005, 6:05:40 PM, Carlos wrote:

> Parse yet has a not so confortable sintax to me so I try to avoid > the use of it most part of the time.

Something like this? find-position: func [ series [series!] value [series!] count [integer!] /local cur-pos ][ cur-pos: copy series for i 1 count 1 [ cur-pos: find cur-pos value ] either none? cur-pos [ Print "The value does not exist in the series that many times." ][ return index? cur-pos ] ] I didn't test this, but it should at least give you an idea or two... Enjoy!! ~~Ammon ;~> On Tue, 18 Jan 2005 16:14:57 -0200, Carlos Lorenz <[carlos--lorenz--gmail--com]> wrote:

> Gabriele, > The question is that I cannot figure out how to do it using find. > To unsubscribe from the list, just send an email to rebol-request > at rebol.com with unsubscribe as the subject.

Hi Carlos, CL> Would it be very nice to have an AT-like native function in CL> REBOL/Core, don't you think so? Submit a wish request to RAMBO for a refinement on FIND. It could be very useful at times. I have to admit that I haven't found a deep need for it myself, because REBOL has different ways of dealing with things, but it could be a nice thing to make people more comfortable (and productive) when they move to REBOL from another language. I did the following to test the new PARSE feature that allows you to return from a parse action, so it will only work under the newest releases, but the idea could be adapted for the official releases. find-Nth: func [ "Returns the series at occurrence N of value or none." series [series!] value n [integer!] /local count pos ][ count: 0 parse series [ some [ to value pos: ( count: count + 1 if count = n [return pos] ) skip ] ] none ] test-Nth: func [ser val occ] [print mold find-Nth ser val occ] repeat i 6 [ test-Nth "aaa*bbb*ccc*ddd*eee*fff" #"*" i ] test-Nth "aaa bbb ccc ddd eee fff" #"*" 2 repeat i 5 [ test-Nth [aaa 0 bbb 1 ccc 0.0 ddd 2 eee 1.1 fff 3] integer! i ] repeat i 3 [ test-Nth [aaa 0 bbb 1 ccc 0.0 ddd 2 eee 1.1 fff 3] decimal! i ] repeat i 7 [ test-Nth [aaa 0 bbb 1 ccc 0.0 ddd 2 eee 1.1 fff 3] number! i ] test-Nth [aaa 0 bbb 1 ccc 0.0 ddd 2 eee 1.1 fff 3 x] number! 7 test-Nth [aaa 0 bbb 1 ccc 0.0 ddd 2 eee 1.1 fff 3 x] issue! 1 Then you can easily emulate what you want from Fox.

>> s: "aaa*bbb*ccc*ddd*eee*fff" >> left: func [series pos] [copy/part series pos] >> left s find-Nth s #"*" 2

>> up-to-Nth: func [series value n] [left series find-Nth series value n] >> up-to-Nth s #"*" 2

Gregg, Thanks for your example and advice on the topic.

str: "aaa*aaa*aaa*aaa" myfunc: func [string section /mod][ mod: copy str loop section [mod: find next mod "*"] return mod ] Now you can get to any section you want not just the second one.

>> myfunc str 2

>> myfunc str 3

>>

On Tue, 18 Jan 2005 15:05:40 -0200, Carlos Lorenz <[carlos--lorenz--gmail--com]> wrote:

> Ingo, > Thanks for you reply. > aaa*aaa* > * -------------------------------------------

> Would it be very nice to have an AT-like native function in > REBOL/Core, don't you think so? >

Hi Carlos Ingo's first example used find: Index? find next find str #"*" #"*" If you insert ( )s it helps to see what's going on (though it would slow Rebol down) Index? (find (next (find str #"*")) #"*") Working from the inner parentheses (brackets) outward : 1. Find str #"*" sets the index of str at the first * found 2. Next ( ) sets the index of str to the next character 3. Find (( )) #"*" sets the index of str at the next * found 4. index? ((( ))) returns the value of the index as an integer. Hope this explanation helps. Peter

Carlos you might also consider converting your delimited string into a block (yes... with parse) and using the items in the block (more rebolish) does seem like what you ultimatly want to do with your string anyway

>> str: "aaa*bbb*ccc*ddd"

>> blk: parse/all str "*"

>> second blk

>> skip blk 2

>> select blk "ccc"

Volker, As Gregg said earlier there are many ways of doing the same thing with REBOL and for sure they are all very interesting as the one you showed us Thanks On Tue, 18 Jan 2005 14:57:45 +0100, Volker Nitsch <volker.nitsch-gmail.com> wrote:

> On Tue, 18 Jan 2005 11:13:57 -0200, Carlos Lorenz > <carlos.lorenz-gmail.com> wrote: > To unsubscribe from the list, just send an email to rebol-request > at rebol.com with unsubscribe as the subject.