Ler arquivo txt

Delphi

08/09/2008

Pessoal eu tenho que ler um arquivo TXT nesse formato abaixo e jogar para dentro de um banco de dados para fazer uma mala direta.
Como fazer para ler esse arquivo? será que é melhor ler em posições fixas?

1)  Código: 52080870    Nome: ABRIGO NOSSO LAR
Endereço: RUA ANAPOLISNúmero: 376
Complemento: Bairro: JD NOVO MUNDOCaixa Postal: 
CEP: 74715040Município: GOIANIAUF: GO - Goias
Localização: UrbanaDep. Administrativa: Particular
Fax: Telefone: (62)2840118E-mail: 
"Níveis/Modalidades de Ensino que a escola atua: Creche; Pre-Escola; Educacao Especial (Integracao, sem Sala de Recursos);


São aproximadamente 1.000 registros todos com esse formato e uma linha separando um do outro.


Yallebr

Yallebr

Curtidas 0

Respostas

Rodrigo_koga

Rodrigo_koga

08/09/2008

Se estiver todas as linhas na mesma posição voce usa o comando: ´Copy´

E um exemplo basico...

var
Texto: String;
ArquivoTexto: TextFile; {handle do arquivo texto}
begin
AssignFile(ArquivoTexto,´C:\teste\arqtexto.txt´); {Associa o arquivo a uma variável do tipo TextFile}
Reset(ArquivoTexto); {Abre o arquivo texto}
Readln(ArquivoTexto,Texto); {Armazena a linha atual do arquivo na string Texto e salta para a próxima linha}
Copy(Texto,1,1); {Na variavel que leu a linha voce usa o Copy para copiar apenas uma parte do texo}
CloseFile(ArquivoTexto); {Fecha o arquivo texto}
end;


Caso seu texto seja apenas 1 linha voce pode usar o POS.


GOSTEI 0
Yallebr

Yallebr

08/09/2008

Como sei se está no fim do arquivo para parar de sar insert no banco de dados?


GOSTEI 0
Wdrocha

Wdrocha

08/09/2008

Para complementar a ajuda do colega....vc pod fazer assim...

Var Texto: String;
         ArquivoTexto: TextFile; {handle do arquivo texto}
   Begin

      While Not (Eof (ArquivoTexto)) Do //Enquanto não for o fim do ArquivoTexto faça

          Begin

            AssignFile(ArquivoTexto,´C:\teste\arqtexto.txt´); {Associa o arquivo a uma variável do tipo TextFile}

            Reset(ArquivoTexto); {Abre o arquivo texto}

            Readln(ArquivoTexto,Texto); {Armazena a linha atual do arquivo na string Texto e salta para a próxima linha}

            Copy(Texto,1,1); {Na variavel que leu a linha voce usa o Copy para copiar apenas uma parte do texo}

            CloseFile(ArquivoTexto); {Fecha o arquivo texto}

         End;
   End;


Espero ter ajudado....qualquer coisa....posta aew...


Flw


GOSTEI 0
POSTAR