Stuck on Parse - Need Help

Carlos Lorenz (carlos.lorenz)
5-Aug-2008/12:48:53-4:00
#44169
<Back   Thread   Next>
<Back   Index   Next>

Hi list,

I would appreciate some help on this parse matter.

I have the following string:

corpo: {

Evento: Boxe - Preliminares
Início: 09/08/2008 02:30
Fim: 09/08/2008 05:45
Sinopse: Acompanhe ao vivo as preliminares do boxe, categoria médio (até
75kg), direto do Ginásio dos Trabalhadores.

Evento: Handebol Masculino
Início: 09/08/2008 22:00
Fim: 09/08/2008 23:00
Sinopse: Acompanhe ao vivo a estréia de Croácia x Espanha no torneio
masculino, em jogo válido pelo Grupo A, direto do Ginásio do Centro
Olímpico.

Evento: Vôlei de Praia - Masc.
Início: 09/08/2008 23:00
Fim: 10/08/2008 00:00
Sinopse: Xu e Wu, da China, Gosch e Horst, da Áustria, disputam, nas areias
da Arena de Vôlei de Praia, o jogo válido pela 1ª rodada do Grupo A.
}


And I need to have some data out of the string written on a file like this:

------
Boxe - Preliminares
09/08/2008 02:30
09/08/2008 05:45
------
Handebol Masculino
09/08/2008 22:00
 09/08/2008 23:00
------
Vôlei de Praia - Masc.
09/08/2008 23:00
10/08/2008 00:00


Here is the code I am trying to run with no success:


REBOL[]

corpo: {

Evento: Boxe - Preliminares
Início: 09/08/2008 02:30
Fim: 09/08/2008 05:45
Sinopse: Acompanhe ao vivo as preliminares do boxe, categoria médio (até
75kg), direto do Ginásio dos Trabalhadores.

Evento: Handebol Masculino
Início: 09/08/2008 22:00
Fim: 09/08/2008 23:00
Sinopse: Acompanhe ao vivo a estréia de Croácia x Espanha no torneio
masculino, em jogo válido pelo Grupo A, direto do Ginásio do Centro
Olímpico.

Evento: Vôlei de Praia - Masc.
Início: 09/08/2008 23:00
Fim: 10/08/2008 00:00
Sinopse: Xu e Wu, da China, Gosch e Horst, da Áustria, disputam, nas areias
da Arena de Vôlei de Praia, o jogo válido pela 1ª rodada do Grupo A.
}

out-file: to-file "arq.txt"

parse corpo [

                    any

                        [

                           thru "Evento:" copy evt to newline (write/append
out-file rejoin ["------" newline evt newline])  |
                           thru "Início:" copy ini to newline (write/append
out-file rejoin [ini newline])  |
                           thru "Fim:" copy fim to newline (write/append
out-file rejoin [fim newline])  |

                         ]

                           to end

                   ]


Thanks for any help

-- 
Carlos Lorenz

REBOL.com