CSV Datei in Oracle transferieren

[nahpets]

Hallo,
die Eingabedatei zeilenweise lesen und pro Zeile sowas machen:

Delphi-Quellcode:

sZeile := 'Hans Muster;Musterstraße 11,94385 Muster;[e-mail];;0800844';
iPos   := Pos(';',sZeile);
sName  := Copy(sZeile,1,iPos - 1);
sZeile := Copy(sZeile,iPos + 1,Length(sZeile));
iPos   := Pos(';',sZeile);
sStr   := Copy(sZeile,1,iPos - 1);
sZeile := Copy(sZeile,iPos + 1,Length(sZeile));
iPos   := Pos(';',sZeile);
sOrt   := Copy(sZeile,1,iPos - 1);
sZeile := Copy(sZeile,iPos + 1,Length(sZeile));
iPos   := Pos(';',sZeile);
sMail  := Copy(sZeile,1,iPos - 1);
sZeile := Copy(sZeile,iPos + 1,Length(sZeile));
iPos   := Pos(';',sZeile);
sNix   := Copy(sZeile,1,iPos - 1);
sZeile := Copy(sZeile,iPos + 1,Length(sZeile));
iPos   := Pos(';',sZeile);
sTel   := Copy(sZeile,1,iPos - 1);

tbOracle.Append;
tbOracle.FieldByName('NAME').AsString := sName;
tbOracle.FieldByName('STRASSE').AsString := sStr;
tbOracle.FieldByName('ORT').AsString := sOrt;
tbOracle.FieldByName('MAIL').AsString := sMail;
tbOracle.FieldByName('TELEFON').AsString := sTel;
tbOracle.Post;

Alternativ könntest Du in der Schleife über die Datei auch Insertstatements generieren und die dann zusammen mit einer Query und ExecSQL an die Datenbank geben. Könnte eventuell schneller sein, als satzweise.