Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Stuck on Parse - Need Help

From: carlos:lorenz:g:mail 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