importar txt separado por ;

[microupdate 0]

http://forum.imasters.com.br/public/style_emoticons/default/devil.gif pessoal, gostaria de saber como importar dados de um arquivo em TXT separado da seguinte forma:

Alpha Alpha Alpha Alpha MEMO

Nome do cliente ; Endereço ; Telefone ; Celular ; Histórico ;

 

Fulano ; Rua tal ; 0000-00-00 ; 9999-99-99 ; Fez isso ;

Ciclano ; Mora aqui ; 0000-00-00 ; 9999-99-99 ; nao fez nada ;

 

 

ou se souberem como identifico o ";" para que possa separar os campos...

descrobri que posso fazer isso com o componente ADOConnection, mas não tenho idéia de como faze-lo.

 

Uso tabela em Paradox http://forum.imasters.com.br/public/style_emoticons/default/sick.gif

[igorcb 0]

ae beleza... tu tem sorte 0h... vi isso ontem num forum, num lembro qual foi mas da uma olhada aí 0h.

 

coloca um opendialog pra selecionar o arquivo.

 

function TfUtil_ImportaTXT.MontaVariavel: string;

var

monta: string;

begin

monta := '';

inc(I);

while Texto <> '*' do

begin

if Texto = ',' then //c substitui o ',' pelo o ';'

break;

monta := monta + Texto;

inc(I);

end;

result := monta;

end;

 

no on clink do button

 

if OpenDialog1.Execute then

begin

Screen.Cursor := crHourGlass;

AssignFile(Arq, OpenDialog1.FileName);

Reset(Arq);

Memo1.Lines.Clear;

if not EOF(Arq) then

repeat

ReadLn(Arq, Texto);

with Qry do

begin

// aqui você coloca as instruções

insert

FieldByName('campo1') := MontaVariavel;

FieldByName('campo2') := MontaVariavel;

FieldByName('campo3') := MontaVariavel;

FieldByName('campo4') := MontaVariavel;

FieldByName('campo5') := MontaVariavel;

post;

i := 0;

end;

until EOF(Arq);

CloseFile(Arq);

Qry.Close;

Screen.Cursor := crDefault;

end;

[igorcb 0]

achei o link

http://forum.devmedia.com.br/viewtopic.php...19619c556036381