Hallo zusammen,

habe da ein kleines Prob. Wie kann ich eine Textdatei einlesen. Ich habe eine Tabelle aus einer Datenbank die in einer Texdatei abgelegt wurde.Die Felder der Datenbank werden durch "" und , unterteilt.

Hat jemand einen Vorschlag oder gar ein Script mit Beispielen?

Danke

Gruß

Andreas

Die Frage ist wie du die Daten brauchst (in welchem Format). Wenn du sie nur in einem Memo brauchst, so wie sie in der Textdatei stehen, kannst du sie mit

markieren

Code:

Memo1.LoadFromFile(DateiName)

in das Memo laden. Andernfalls musst du Zeile für Zeile durchgehen...

Ich denke, dass du einzelne Datensätze aus Deiner Datei lesen willst.
Dazu musst du erst einmal eine Variable deklarieren, mit welcher du die Textdatei bearbeiten kannst. Dann kannst du mithilfe dieser Variablen die Datei zeilenweise auslesen und in einen String oder eine Stringliste speichern.

Ein Beispielcode:

zusammenfalten · markieren

Delphi-Quellcode:

procedure Readfile (filename: string);
varprocedure TForm1.Readfile(filename: string; var s: string);
var f: Textfile;
    helpstring: string;
begin
  Assignfile(f,filename); //Weist f die Datei zu
  reset (f); //Öffnet die Datei zum lesen
  s := '';
  while not eof (f) do begin
     readln(f,helpstring); //liest eine Zeile in den Helpstring
     s := s + helpstring; //fügt den Helpstring an s hinzu
  end;
  Closefile(f); //Schließt die Datei
  //!!! SEHR WICHTIG, sonst kannst du die Datei an einer
  //anderen Stelle nicht nochmal öffnen
end;

Wenn du nun noch einen Datensatz suchst oder einen Eintrag, würde ich empfehlen, eine Funktion zu schreiben, die dir das erleichtert, d.h., welcher du nur die Nummer des Datensatzes übergeben musst und dann den richtigen Datensatz erhälst.

Falls du in die Textdatei etwas schreiben willst, musst du statt reset(f) append(f) ausführen. Dies alles steht auch in der Hilfe, suche einfach mal nach Assignfile.

[edit=Luckie]Delphi-Tags hinzugefügt. Mfg, Luckie[/edit]

Alles klar werde es so mal versuchen.

Danke für die Antwort

Gruß Andreas

Hallo erstmal,

ich stehe hier vor einem kleinen(großen) Problem.

Ich möchte wie schon beschrieben eine Textdatei, die von einem anderen Programm erstellt wird, in eine andere Datenbank einlesen.

Dies will ich über eine Schnittstell machen die ich selber programmiere. Die daten werden in der Textdatei so dargestellt --> "Name","Vorname","PLZ","Wohnort".

Hier erstmal der Quellcode:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.ReadfileEGUB2;
var F: TextFile;
     hFile,S: string;
begin
  if OpenDialog1.Execute then { Dialog zum Dateiöffnen anzeigen }
  begin
    hFile := OpenDialog1.FileName;
    AssignFile(F, hFile); { Datei ausgewählt }
    Reset(F);
    Readln(F, S); { Erste Zeile der Datei lesen }
    Memo1.Lines.Add(S); { String in ein TMemo schreiben }
    CloseFile(F);
  end;
end;

Aufruf der PROCEDURE:

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var hMemo : string;
begin
  ReadfileEGUB2;
end;

Wie kann ich die Daten aus der Texdatei direkt in ein Query einlesen. Um ein UPDATE auf
eine neue Datenbank zu machen, oder gibt es da einen anderen Weg.

Danke für eure Hilfe

Gruß AS

Hi,

will ja nicht stressen aber könnte mir einer helfen. Wäre nicht schlecht.

Gruß AS

Hab da was gefunden in Visual Basic.

markieren

Delphi-Quellcode:

  DoCmd.TransferText acImportDelim, _
  TableName:="AktuelleDaten", SpecificationName:="AktuelleDaten Importspezifikation", _
  FileName:="c:\Egub.txt", _
  HasFieldNames:=-1

Mein Vorgänger hat das in VB programmiert. Doch jetzt funktioniert es nicht mehr und da ich von VB keine Ahnung hab will ich es in Delphi umsetzten.

Gruß

AS