[REBOL] Re: [FIND] [FoxPro] Re: Find? Copy/Part?
From: lmecir:mbox:vol:cz at: 19-Jan-2005 12:01
Gabriele Santilli napsal(a):
>Hi Gregg,
>
>On Tuesday, January 18, 2005, 9:02:32 PM, you wrote:
>
>GI> find-Nth: func [
>GI> "Returns the series at occurrence N of value or none."
>GI> series [series!]
>GI> value
>GI> n [integer!]
>GI> /local count pos
>GI> ][
>GI> count: 0
>GI> parse series [
>GI> some [
>GI> to value pos: (
>GI> count: count + 1
>GI> if count = n [return pos]
>GI> ) skip
>GI> ]
>GI> ]
>GI> none
>GI> ]
>
....
> find-nth: func [
> "Returns the series at occurrence N of value or none."
> series [series!]
> value
> n [integer!]
>
> /local pos
> ] [
> if n = 1 [return find series :value]
> n: n - 1
> parse series [
> n thru value to value pos:
> ]
> pos
> ]
>
....
another option:
find-nth: func [
"Returns the series at occurrence N of value or none."
series [series!]
value
n [integer!]
/local pos
] [
parse series [n [to value pos: value] to end]
pos
]
