Gerar arquivo texto
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?
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
Curtidas 0
Respostas
Reginaldo174
06/07/2004
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;
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;
GOSTEI 0
Gandalf.nho
06/07/2004
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]
[url]http://delphi.icm.edu.pl/[/url]
GOSTEI 0
Guima001
06/07/2004
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;
GOSTEI 0
Flaviosan
06/07/2004
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?
GOSTEI 0