Formatar campo TXT

Delphi

16/07/2010

Olá pessoal, estou lendo um arquivo txt e gostaria de formatar ele antes de gravar no banco, o campo no banco sql é text. Vou mostrar como o arquivo vem.....       Primeira Entrância Rio Negro Rio Negro - Rochedo
CORREIÇÃO NAS
SERVENTIAS
EXTRAJUDICIAIS.
30/03/10 0,3 184,20 066.206.0201/2010
ALEXSANDRO MOTTA Total 0,3 184,20
ALUIZIO PEREIRA DOS SANTOS Juiz de Direito -
Entrância Especial Campo Grande Campo Grande
- Ponta Porã
    Será que tem jeito de aplicar uma função para deixa-lo assim....       Primeira Entrância Rio Negro Rio Negro - Rochedo CORREIÇÃO NAS SERVENTIAS EXTRAJUDICIAIS.
30/03/10 0,3 184,20 066.206.0201/2010 ALEXSANDRO MOTTA Total 0,3 184,20 LUIZIO PEREIRA DOS SANTOS Juiz de Direito - Entrância Especial Campo Grande Campo Grande- Ponta Porã
  Muito obrigado...
Marcelo

Marcelo

Curtidas 0

Respostas

Douglas Fernandes

Douglas Fernandes

16/07/2010

Marcelo,
Na verdade o que você fala referente a formatar seria coloca-lo em menas linhas?
GOSTEI 0
Marco Salles

Marco Salles

16/07/2010

Olá pessoal, estou lendo um arquivo txt e gostaria de formatar ele antes de gravar no banco, o campo no banco sql é text. Vou mostrar como o arquivo vem.....       Primeira Entrância Rio Negro Rio Negro - Rochedo
CORREIÇÃO NAS
SERVENTIAS
EXTRAJUDICIAIS.
30/03/10 0,3 184,20 066.206.0201/2010
ALEXSANDRO MOTTA Total 0,3 184,20
ALUIZIO PEREIRA DOS SANTOS Juiz de Direito -
Entrância Especial Campo Grande Campo Grande
- Ponta Porã
    Será que tem jeito de aplicar uma função para deixa-lo assim....       Primeira Entrância Rio Negro Rio Negro - Rochedo CORREIÇÃO NAS SERVENTIAS EXTRAJUDICIAIS.
30/03/10 0,3 184,20 066.206.0201/2010 ALEXSANDRO MOTTA Total 0,3 184,20 LUIZIO PEREIRA DOS SANTOS Juiz de Direito - Entrância Especial Campo Grande Campo Grande- Ponta Porã
  Muito obrigado...
Ola Marcelo Jeito Tem , mas nada Nativo do Delphi Tem que combinar a Função Pos com a Função Copy do Delphi para Modificar este Txt do Jeito que vc necessita
GOSTEI 0
Marcelo

Marcelo

16/07/2010

É eu estou precisando organizar um texto. Muito obrigado pessoal.
GOSTEI 0
Marco Salles

Marco Salles

16/07/2010

É eu estou precisando organizar um texto. Muito obrigado pessoal.
para formatar vc precisa de uma regra E qual a regra ????   
var
Str:String;
begin
str:='Primeira Entrância Rio Negro Rio Negro - Rochedo '+sLineBreak+
'CORREIÇÃO NAS'+sLineBreak+
'SERVENTIAS'+sLineBreak+
'EXTRAJUDICIAIS.'+sLineBreak+
'30/03/10 0,3 184,20 066.206.0201/2010'+sLineBreak+
'ALEXSANDRO MOTTA Total 0,3 184,20'+sLineBreak+
'ALUIZIO PEREIRA DOS SANTOS Juiz de Direito -'+sLineBreak+
'Entrância Especial Campo Grande Campo Grande'+sLineBreak+
'- Ponta Porã';
 Showmessage(str);
  Primeira Linha 'EXTRAJUDICIAIS.  >>>> Termina sempre com Ponto '.' Nunca tera Ponto Antes de Terminar ???   Segunda Linha '30/' Inicia duas Posiçoes antes da Barra ??? /2010' Temina quatro Posiçoes depois da Barra ???   terceira Linha 'ALEXSANDRO ' Começa sempre depois das quatro Posiçoes Barra '/' ..   Veja , tem que ter Regra... Tem que ter Leis . Essas regras tem que ser obedecidas A Codificação depende das Regras Entende ?????????    
GOSTEI 0
Marcelo

Marcelo

16/07/2010

Estes textos não tem regras, podemos quebrar a linha em 150 caracteres, assim podemos unir até chegar em 150 caracteres. Eu já tentei fazer isso más não consegui.   Muito obrigado..
GOSTEI 0
Marco Salles

Marco Salles

16/07/2010

Estes textos não tem regras, podemos quebrar a linha em 150 caracteres, assim podemos unir até chegar em 150 caracteres. Eu já tentei fazer isso más não consegui.   Muito obrigado..
A quantidade não Importa A regra Sim Sem Regra não dá Vc tem que criar uma
GOSTEI 0
POSTAR