Einzelnen Beitrag anzeigen

Ghostwalker

Registriert seit: 16. Jun 2003
Ort: Schönwald
1.299 Beiträge
 
Delphi 10.3 Rio
 
#4

Re: Hilfe bei Textdatei auslesen

  Alt 31. Mär 2004, 11:58
also am einfachsten dürfte sein, wenn du dir die Datei erstmal in den Speicher holst



Code:
   Stringlist := TStringlist.create;
   Stringlist.LoadFromFile('Text.txt');
Damit hast du schon mal alle Zeilen im Speicher.

Jetzt brauchst du nur noch die Zeilen in einer Schleife durchgehen und die benötigten infos
rauskopieren (pos,copy)

Beispiel:

Code:
   //Alle Zeilen der Liste durchgehen
   for I := 0 to Stringlist.count -1 do
   Begin
     //Schauen wir mal ob wir eine Titel-Zeile haben
     P := pos('TITLE',Stringlist.strings[i]);
     if (p > 0) then
     begin
       //Wir haben eine Titelzeile und kopieren den Titel der zwischen den "" steht raus
       P := pos ('"',Stringlist.strings[i]);
       MeinTitel := copy(Stringlist.strings[i],p,length(stringlist.strings[i])-p);
     end
   end;
Uwe
e=mc² or energy = milk * coffee²
  Mit Zitat antworten Zitat