Função em Delphi para transformar txt em Mysql

06/03/2006

0

Caros amigos,

Estou precisando fazer a conversão de um arquivo txt (20 MB de tamanho, com mais de 6000 registros) para MySql e estou utilizando essa função, só que não estou conseguindo fazer a conversão. Alguém temn alguma idéia ou forma mais fácil para fazer esse tipo de conversão??

function importa( ds:Tdataset ; arqtxt:string ):boolean;
Var
campos:TStringList;
txt:TextFile;
s:string
i:integer;
begin
if not fileexists(arqtxt) then begin
result:=false;
exit
end;
try
assignfile( txt , arqtxt );
reset(txt);
except
result:=false;
exit;
end;
readln(txt, s);
campos := TStringList.Create( Nil );
while pos(´;´,s) > 0 do begin
campos.add( copy(s,1,pos(´;´,s)-1 ) );
s:=copy( s , pos(´;´,s)+1, length(s) );
end;
while not eof( txt ) do begin
readln(s);
i:=0;
ds.insert;
while pos(´;´,s) > 0 do begin
ds.fieldbyname( campos.Strings[i] ).AsString := copy(s,1,pos(´;´,s)-1 );
s:=copy( s , pos(´;´,s)+1, length(s) );
i:=i+1;
end;
try
ds.post;
except
result:=false;
exit;
end;
end;
closefile(txt);
result:=true;
campos.free;
end;
---------------
zTable.Open;
Importa( zTable , ´c:\dados.txt´ );


Castor Troy

Castor Troy

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar