[REBOL] Stuck on Parse - Need Help
From: carlos:lorenz:gm:ail at: 5-Aug-2008 13:49
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