Hallo ihr Lieben,
in meinen Programm lasse ich bisher
CSV-Dateien einlesen, die dann auf eine Datenbank kommen und dort geprüft werden. Ist ja alles schön und gut. Manche Dateien, die eingelesen werden müssen, sind aber XLS-Dateien, die "so einfach" nicht eingelesen werden können. Mein Wunschtraum wäre es nun, dass bei der Auswahl der Datei sie intern(?) in eine
CSV/TXT umgewandelt wird. Die Datei braucht nicht lange zu existieren, da ich in einer Stringlist den Inhalt abspeichere und mir daraus dann die notwendigen Infos nach und nach 'rausziehe.
Damit ihr mal eine Vorstellung bekommt:
Delphi-Quellcode:
procedure ReadFile();
var i:Integer;
aBuffer:String;
begin
if Datenliste<>Nil then FreeAndNil(Datenliste);
Datenliste:=TStringList.Create;
Datenliste.LoadFromFile(Dateiname);
for i:=0 to Datenliste.Count-1 do
begin
aBuffer:=Datenliste.Strings[i];
if (aBuffer[Length(aBuffer)]<>';')
then aBuffer:=aBuffer+';';
aBuffer:=StringReplace(aBuffer, '"', '', [rfReplaceAll]);
Datenliste.Strings[i]:=aBuffer;
end;
end;
Im Netz bin ich bisher nicht wirklich schlau geworden, da ging es immer eher darum, dass man aus Delphi etwas in Excel-Dateien speichern wollte.
Habt ihr einen ultimativen Tipp für mich?
