[REBOL] Message Archive - Quotes - Left() Function Re:

[Petr . Krenzelok]

[EMAIL PROTECTED] wrote:

>

str: "This is string"
str1: {"And this is quoted string"}

left:     func [series num-of-chars][copy/part series num-of-chars]
right:   func [series num-of-chars][copy skip tail series negate
num-of-chars]
mid:    func [series pos num-of-chars] [left skip series (pos - 1)
num-of-chars]                ; :-))

There are surely many other ways how to do it :-) The Rebol way :-)

e.g.

mid:    func [series pos num-of-chars] [copy/part at series pos
num-of-chars]

Regards,

-pekr-