Hummm o problema se encontra no exemplo que você passou antes:
PALAVRAS DE CHICO XAVIER - (ESPIRITO EMMANUEL) - EDITORA IDE Em todas as linhas a palavra Editora existe? Daí você pode procurar por - Editora e usar as funções de posição e copy... Jaques Dix Desenvolvedor -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo Alex Marchiori Enviada em: quinta-feira, 14 de fevereiro de 2008 07:05 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Separar tirulo de eritora + importação Sim, sempre antes terá um traço sim. Entendi De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br [mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br] Em nome de marcosksb Enviada em: quinta-feira, 14 de fevereiro de 2008 00:12 Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br Assunto: [delphi-br] Re: Separar tirulo de eritora + importação Mais assim antes da editora sempre vai ter um traço ? por que ai vc poderia fazer assim correr o arquivo lendoa s linha e procurando o traço quando achar cria uma linha nova salvando em outro arquivo --- Em HYPERLINK "mailto:delphi-br%40yahoogrupos.com.br"[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br, "Rodrigo Alex Marchiori" <[EMAIL PROTECTED]> escreveu > > 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] > 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] [As partes desta mensagem que não continham texto foram removidas]