Fórum Formatar Arquivo de Texto (*.txt) #155565

[b:7a0fd3a4a8]Para exportar para formato TXT[/b:7a0fd3a4a8]

procedure TForm1.ButExportaClick(Sender: TObject);
var
Arq: TextFile;
begin
if SaveDialog1.Execute then
begin
Screen.Cursor := crHourGlass;
with Table1 do
begin
Open;
First;
if not EOF then
begin
AssignFile(Arq, SaveDialog1.FileName);
ReWrite(Arq);
repeat
WriteLn(Arq,FieldByName(´EmpNo´).AsString + ´|´ +
FieldByName(´LastName´).AsString + ´|´ +
FieldByName(´FirstName´).AsString + ´|´ +
FieldByName(´PhoneExt´).AsString + ´|´ +
FieldByName(´HireDate´).AsString + ´|´ +
FieldByName(´Salary´).AsString + ´*´);
next;
until EOF;
CloseFile(Arq);
end;
close;
end;
Screen.Cursor := crDefault;
end;
end;

[b:7a0fd3a4a8]Para importar de arquivo formato TXT:[/b:7a0fd3a4a8]

procedure TForm1.ButImportaClick(Sender: TObject);
var
Arq: TextFile;
Texto: String;
I: Integer;

function MontaVariavel: String;
var
monta: String;
begin
monta := ´´;
inc(I);
while Texto[I] <> ´*´ do
begin
if Texto[I] = ´|´ then
break;
monta := monta + Texto[I];
inc(I);
end;
result := monta;
end;

begin
if OpenDialog1.Execute then
begin
Screen.Cursor := crHourGlass;
Table1.Open;
AssignFile(Arq, OpenDialog1.FileName);
Reset(Arq);
if not EOF(Arq) then
repeat
ReadLn(Arq,Texto);
with Table1 do
begin
Insert;
i := 0;
FieldByName(´EmpNo´).AsString := MontaVariavel;
FieldByName(´LastName´).AsString := MontaVariavel;
FieldByName(´FirstName´).AsString := MontaVariavel;
FieldByName(´PhoneExt´).AsString := MontaVariavel;
FieldByName(´HireDate´).AsString := MontaVariavel;
FieldByName(´Salary´).AsString := MontaVariavel;
Post;
end;
until EOF(Arq);
CloseFile(Arq);
Table1.Close;
Screen.Cursor := crDefault;
end;
end;

Espero ter ajudado.
Abraços,
[img:7a0fd3a4a8]http://www.ona.hpg.com.br/ona/IsadoraOzeiaOna_10.jpg[/img:7a0fd3a4a8]
Isadora.