Importa e Exporta os Arquivos TXT e manipula-los no BD

Delphi

28/10/2004

Tenho uma base de Dados no Interbase e Preciso passar para TXT. Depois que estiver no arquivo TXT passarei este arquivo via internet para uma outra filial. Na filial preciso ler e Gravar os arquivos TXT no Banco de Dados. Minha pergunta e como faço para Importa e Exporta os Arquivos TXT e manipula-los no Banco de Dados.

Base de Dados Utilizadas Interbase e PDB(Palm) :oops: :!:

Agradecimentos

Wendel A. Galvao


Deltakronos

Deltakronos

Curtidas 0

Respostas

Nildo

Nildo

28/10/2004

[color=blue:17faaf88b6] :arrow: Título editado pelo moderador Nildo.
:arrow: Seja claro e objetivo nos seus títulos.[/color:17faaf88b6]
:idea: [color=red:17faaf88b6]Leia as regras de conduta [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]aqui[/url][/color:17faaf88b6]


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

28/10/2004

Colega,

Há um tópico recente que encoraja o uso de tabelas temporárias (CDS) com XML. Utilize o link acima pesquisar e veja se atende suas necessidades.


GOSTEI 0
Beto_martini

Beto_martini

28/10/2004

Olá Wendel.

Se quiser fazer via código segue um exemplo:

para criar um arquivo teste.txt e escrever 4 linhas.

procedure....
var arquivo:textfile;
nomearquivo:string;
begin
nomearquivo:=´teste.txt´;
assignfile(arquivo,nomearquivo);
rewrite(arquivo);
writeln(arquivo,´linha 1´);
writeln(arquivo,´linha 2´);
writeln(arquivo,´linha 3´);
writeln(arquivo,´linha 4´);
closefile(arquivo);
end;

para ler arquivo txt

procedure....
var arquivo:textfile;
nomearquivo,linha:string;
begin
nomearquivo:=´teste.txt´;
assignfile(arquivo,nomearquivo);
reset(arquivo);
while not eof(arquivo) do
begin
readln(arquivo,linha); // le o conteudo da linha atual e atribui a variavel linha
end;
closefile(arquivo);
end;

Espero ter ajudado.

Qualquer coisa: martini378@hotmail.com


GOSTEI 0
POSTAR