Textfile in DB einlesen

[hacki]

Hallo Christian,

bei deinem Problem ist es völlig egal, welche Trennzeichen deine Datensätze trennen. Du möchtest ja ohnehin die gesamte Textdate in die Datenbank schreiben - und nicht die Textdatei nach Datensätzen parsen. Paradox ist da ziemlich easy.

Du richtest Dir zunächst eine Table-Komponente (ich nenne sie "TextTable") ein und verbindest sie mit deiner Zieltabelle. Die Tabelle muß ein Feld (ich nenne es kurzerhand einmal "dbtextfeld") enthalten, in dem der Text zukünftig gespeichert wird. Dieses Feld ist vom Typ BLOB(240,1).

Delphi-Quellcode:

 TextFileDataLines := TStringList.Create;

 TextFileDataLines.LoadFromFile('C:\Datei.TXT');

 try
  TextTable.Edit;
  TextTable.FieldbyName('dbtextfeld').AsString := TextFileDataLines.Text;
  TextTable.Post;
 except
 end;

 TextFileDataLines.Free;

So, das war's

übrigens lesen klappt dann wieder genau so einfach:

Delphi-Quellcode:

 TextFileDataLines := TStringList.Create;

 try
  TextFileDataLines.Text := TextTable.FieldbyName('dbtextfeld').AsString;
 except
 end;

 // verwende hier deine Stringliste, zb. zum parsen...

 TextFileDataLines.Free;

Ich hoffe, ich konnte dir helfen.

Bis denn
hacki