Le Arquivo Retorno
:lol: Alguém sabe me dizer como faço para ler um arquivo retorno.
Ex. Tenho um formulario com os Campos CGC, INSC. ESTADUAL, RAZAOSOCIAL.
e o meu arquivo retorno vem
NOMEDAEMPRESA1 99.999.9999/0000100 99.999.999-99
NOMEEMPRESA2 91.999.999/00000202 99.999.999-87
.
.
.
.
E tenho que fazer com que apareca nos seus respectiovos campos como faço isso :( :( :(
Valeu
Ex. Tenho um formulario com os Campos CGC, INSC. ESTADUAL, RAZAOSOCIAL.
e o meu arquivo retorno vem
NOMEDAEMPRESA1 99.999.9999/0000100 99.999.999-99
NOMEEMPRESA2 91.999.999/00000202 99.999.999-87
.
.
.
.
E tenho que fazer com que apareca nos seus respectiovos campos como faço isso :( :( :(
Valeu
Silvio
Curtidas 0
Respostas
Anonymous
18/02/2003
Você pode ler o arquivo usando os Comandos e AssignFile(Arquivo, ´NomeArquivo´) e Reset (Arquivo) depois usar o readln para ler cada uma das linhas do arquivo texto e retirar o conteúdo usando copy(linha,posInicial, posFinal).
Exemplo:
AssignFile(fArquivo,´Retorno.txt´);
{$i-}
Reset(fArquivo);
{$i+}
if (IOResult <> 0) then begin
Application.MessageBox(´Arquivo não Encontrado´,Erro´,MB_OK+MB_ICONSTOP);
end else begin
while not Eoln(fArquivo) do begin
Readln(fArquivo,fReg);
cNomeEmpresa := Copy(fReg,1,40); // Tamanho 40
end;
end;
Exemplo:
AssignFile(fArquivo,´Retorno.txt´);
{$i-}
Reset(fArquivo);
{$i+}
if (IOResult <> 0) then begin
Application.MessageBox(´Arquivo não Encontrado´,Erro´,MB_OK+MB_ICONSTOP);
end else begin
while not Eoln(fArquivo) do begin
Readln(fArquivo,fReg);
cNomeEmpresa := Copy(fReg,1,40); // Tamanho 40
end;
end;
GOSTEI 0