Fórum Importa e Exporta os Arquivos TXT e manipula-los no BD #256429

[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]

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.

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