Ler arquivo txt

Question

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 fi...

Rodrigo_koga · Answer

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.

Yallebr · Answer

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

Wdrocha · Answer

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

F�rum Ler arquivo txt #363590