Rubem fiz o teste e retornou cada linha com uma palavra.
LIVRO DOS ESPIRITAS EDITORA IDA/BOA NOA E estava dando uma olhada no arquivo e também tem texto compostos por mais de um sinal - : PALAVRAS DE CHICO XAVIER - (ESPIRITO EMMANUEL) - EDITORA IDE Att Rodrigo De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: quinta-feira, 14 de fevereiro de 2008 00:11 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Separar tirulo de eritora + importação Prioridade: Alta Cria uma nova aplicação console e faça um copy-and-paste (copiar e colar) do código a seguir, depois execute-o. Nele, vc terá um bom exemplo de uso de TStringList e suas propriedades Delimiter e DelimitedText. Isso pode resolver muito bem, e de forma bem elegante o seu problema. <> program TestDelimiters; {$APPTYPE CONSOLE} uses Classes, SysUtils; begin with TStringList.Create do try Delimiter := '-'; DelimitedText := 'LIVRO DOS ESPIRITOS - EDITORA IDE/BOA NOVA'; repeat WriteLn(Strings[0]); Delete(0); until Count = 0; finally Free; end; WriteLn('Pressione ENTER...'); WriteLn(Eoln); end. <> Maiores detalhes pra entender este pequeno exemplo, consulte o help do Delphi sobre as propriedades de TStringList usadas neste exemplo. Sds. ________________________________ To: HYPERLINK "mailto:delphi-br%40yahoogrupos.com.br"delphi-br@yahoogrupos.com.br From: HYPERLINK "mailto:r.marchiori%40uol.com.br"[EMAIL PROTECTED] Date: Wed, 13 Feb 2008 23:54:23 -0200 Subject: [delphi-br] Separar tirulo de eritora + importação Olá pessoal, estou com um pequeno problema aqui, tenho um arquivo texto com 4 mil registros de livros e os campos titulo e editora estão juntos exemplo: O LIVRO DOS ESPIRITOS - EDITORA IDE/BOA NOVA. Gostaria de saber se tem como criar uma função ou procedure para retornar os dois separados? O LIVRO DOS ESPIRITOS EDITORA IDE/BOA NOVA Agradeço desde já; Att Rodrigo Skype rodrigo_marchiori No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas] __________________________________________________________ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! HYPERLINK "http://www.livemaps.com.br/index.aspx?tr=true"http://www.livemaps.com.br/in dex.aspx?tr=true No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas]
