GARANTIR DESCONTO

Fórum Gerar arquivo texto #241782

06/07/2004

0

Alguem poderia me dar um exemplo de como ler um arquivo texto e gravar na tabela, por ex.:

Vou receber do meu cliente um arquivo texto com os seguintes dados
codpedido, destinatario, endereço, numero, cep, estado, valor, data_pagamento.

Como posso fazer para ler e gravar corretamente?

Como poderei também gerar um arquivo texto para enviar ao cliente?


Guima001

Guima001

Responder

Posts

06/07/2004

Reginaldo174

Var
F:TextFile;
Begin
AssignFile(f,´c:\arquivo_qualquer.txt´);
Rewrite(f); //abre o arquivo para escrita
Writeln(f,´Testando´); escreve no arquivo e desce uma linha
Write(f,´Clube Delphi´); //escreve no arquivo sem descer a linha
Closefile(f); //fecha o handle de arquivo
End;
///Rotina para ler de um arquivo texto:
var
f:TextFile;
linha:String;
begin
AssignFile(f,´c:\arquivo_qualquer.txt´);
Reset(f); //abre o arquivo para leitura;
While not eof(f) do begin
Readln(f,linha); //le do arquivo e desce uma linha. O conteúdo lido
é transferido para a variável linha
Memo1.lines.add(linha);
End;
Closefile(f);
end;


Responder

Gostei + 0

06/07/2004

Gandalf.nho

Se o arquivo texto for do tipo delimitado e não fixo eu aconselho o uso do componente PGCSV, é FREE e muito bom. Pegue-o no Delphi Super Page:

[url]http://delphi.icm.edu.pl/[/url]


Responder

Gostei + 0

07/07/2004

Guima001

Não entendi como gravar cada informação no devido campo da tabela.


Var F:TextFile; Begin AssignFile(f,´c:\arquivo_qualquer.txt´); Rewrite(f); //abre o arquivo para escrita Writeln(f,´Testando´); escreve no arquivo e desce uma linha Write(f,´Clube Delphi´); //escreve no arquivo sem descer a linha Closefile(f); //fecha o handle de arquivo End; ///Rotina para ler de um arquivo texto: var f:TextFile; linha:String; begin AssignFile(f,´c:\arquivo_qualquer.txt´); Reset(f); //abre o arquivo para leitura; While not eof(f) do begin Readln(f,linha); //le do arquivo e desce uma linha. O conteúdo lido é transferido para a variável linha Memo1.lines.add(linha); End; Closefile(f); end;



Responder

Gostei + 0

07/10/2004

Flaviosan

Se o arquivo texto for do tipo delimitado e não fixo eu aconselho o uso do componente PGCSV, é FREE e muito bom. Pegue-o no Delphi Super Page: [url]http://delphi.icm.edu.pl/[/url]


Gandalf, Me explica uma coisa, qual a diferença de arquivo texto fixo e delimitado?


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar