Array
(
)

Função em Delphi para transformar txt em Mysql

Castor Troy
   - 06 mar 2006

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´ );