[REBOL] Re: newlines

From: lmecir:mbox:vol:cz at: 8-Nov-2001 14:15

Hi Joel,

Joel:<<
Ermmm... I don't think so.  What am I missing?

    >>s: copy packnewlines/s
    == {x......x........x.xx......xx........x......x.x....x......
    x..x.........x.x.x....x..x.........xx..............x.x.......
    ......x.....
>>
Simple:

input: s

    while [s: find/tail s "..."] [
        parse s [any #"." t:]
        s: remove/part back s t
    ]
input

>> s: {x......x........x.xx......xx........x......x.x....x......
{        x..x.........x.x.x....x..x.........xx..............x.x.......
{        ......x.....}
== {x......x........x.xx......xx........x......x.x....x......
    x..x.........x.x.x....x..x.........xx..............x.x.......
   ...
>>     while [s: find/tail s "..."] [
[            parse s [any #"." t:]
[            s: remove/part back s t
[        ]
== ""
>> input
== "..a..bcd.s.f.g.k.l.m.n.o.p.."

Cheers
    Ladislav

1 · 2 · 3 · 4 · 5 ... 11 · 12 · [13] · 14 · 15 ... 43 · 44 · 45 · 46 · 47 · See whole thread