.txt Datei einlesen (CommaSeperated)

[DoctorCox]

Morgen ,
ich habe gestern Abend mal angefangen, mir en kleines, einfaches Programm zum ordnen meiner Filme zu schreiben, da alles fertige, was ich gefunden habe mir nie wirklich zugesagt hat. Zur besseren Vorstellung mal ein Bild: s. Anhang "prog"

Es gibt also ne Klasse Film, mit den zu sehenden Attributen und in der create-Methode(der Klasse Film) werden die Daten halt abgefragt und dann in die Memos geschrieben-->primitiv, aber läuft... Dann gibt halt noch ne Procedur savelist, die mir alle Filme aus den Memos raus in ne .txt Datei schreibt und die einzelnen Werte durch Kommata und den Begin einer neuen Zeile durch nen Punkt trennt--> läuft auch. In der .txt Datei siehts also bspw. so aus: " 1,Babylon AD,Action,1:45,2006,Jason Statham. "

ICh hänge jetzt da fest, wo ich bei Programmstart(formcreate) diese .txt Datei eben wieder einlesen will. Bin bis jetzt soweit:
---------------------------------------------------------
procedure TForm1.readlist(FileName:string; var s:string);
VAR i,x:integer;
VAR t:TEXTfile;
VAR helpstring:string;
begin
assignfile(t, FileName);
reset(t);
s:= '';

while not eof (t) do begin


end;
---------------------------------------------------------
Mir fehlt also im prinzip der Teil, der das Dokument durchläuft und dann die Worte nach Komma getrennt bspw. in ne VAriable schreibt, die ich dann in die Memos einfügen kann.
Ich hoffe ihr könnt mir da helfen

Gruß DoctorCox

[mkinzler]

Am Einfachsten mit einer StringListe (Delimiter, StrictDelimiter, DelimitedText)

[RWarnecke]

Eine andere Variante wäre die String-Funktionen aus PHP nutzen : Einige Array-Funktionen wie in PHP nutzen

[DoctorCox]

Das mit der STringlist und dem Delimiter hatte ich auch schonmal gelesen, aber nicht verstande... Gibt's da vielleicht irgendwie ne Anleitung für?

[DeddyH]

Code:

Stringlist.Delimiter: ';' //Trennzeichen
Stringlist.DelimitedText: '1;2;3;42'

--> Inhalt der Liste:
1
2
3
42

[Bummi]

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var
 slAll, slRow:TStringList;
 i,c:Integer;
 s:String;
begin
    slAll := TStringList.Create;
    slRow := TStringList.Create;
    slRow.Delimiter := ',';
    slRow.StrictDelimiter := true;
    try
      slAll.LoadFromFile('C:\temp\lst.txt');
      for I := 0 to slAll.Count - 1 do
          begin
            slRow.DelimitedText := slAll[i];
            s := 'Zeile: ' + IntToStr(i) + ' > ';// nur für Demo
            for c := 0 to slRow.Count - 1 do
                begin
                  s := s + IntToStr(c) +' Spalte : ' + slRow[c]+ ', ';
                end;
             s := Copy(s,1,length(s)-2);
             Memo1.Lines.Add(s);
          end;
    finally
      slAll.Free;
      slRow.Free;
    end;
end;

[DeddyH]

Delphi 5 kennt noch keinen StrictDelimiter, das kann bei Leerzeichen zu falschen Daten führen. Hier muss man sich dann mit Tricks behelfen. Und auch wenn ich mich wiederhole:

Delphi-Quellcode:

Dings := TDings.Create;
Bums := TBums.Create;
try
  ...
finally
  Dings.Free;
  Bums.Free;
end;

kann im worst case zu Folgefehlern führen. Das kann man vermeiden, indem man 2 try-finally-Blöcke verschachtelt oder die Objekte erst mit nil initialisiert.

[Bummi]

Delphi-Quellcode:

Procedure Split(DestStringList:TStringList;Const s:String;Separator:Char);
var
 i:Integer;
 bf:String;
 lf:Integer;
  begin
    Assert(Assigned(DestStringList));
    DestStringList.Clear;
    lf := 1;
    for i := 1 to length(s) do
      begin
         if s[i] = Separator then
           begin
             DestStringList.Add(Copy(s,lf,i - lf));
             lf := i + 1;
           end;
      end;
      DestStringList.Add(Copy(s,lf,i - lf));
  end;

procedure TForm5.Button1Click(Sender: TObject);
var
 slAll, slRow:TStringList;
 i,c:Integer;
 s:String;
begin
    slAll := TStringList.Create;
    try
      slRow := TStringList.Create;
      try
        slAll.LoadFromFile('C:\temp\lst.txt');
        for I := 0 to slAll.Count - 1 do
            begin
              Split(slRow, slAll[i],',');
              s := 'Zeile: ' + IntToStr(i) + ' > ';// nur für Demo
              for c := 0 to slRow.Count - 1 do
                  begin
                    s := s + IntToStr(c) +' Spalte : ' + slRow[c]+ ', ';
                  end;
               s := Copy(s,1,length(s)-2);
               Memo1.Lines.Add(s);
            end;
      finally
        slRow.Free;
      end;
    finally
        slAll.Free;
    end;
end;

[DoctorCox]

Hey, vielen Dank schonmal für die ganzen Antworten hier , auch wenn ich zugegebenermaßen nicht alles davon verstanden habe ;D
Deswegen habe ich jetzt auch eine andere Lösung gefunden, die wir so im Info-Unterricht hatten! Da Hätte ich allerdings auch ne Frage zu.

Ich habe mir jetzt ne function gesschrieben, die mir die Wörter einzeln aus dem Textfile beim einlesen ausgibt (ausgeben sollte):

Code:

function TForm1.cutwords(s:string): string;
VAR p:integer;
BEGIN
p:=pos(',' , s);           //sucht mir die Kommaposition
result:=COPY(s, 1, p-1);   //gibt mir den string bis zum Komma aus
                             (den ich dann ins Memo schreibe)
DELETE(s, 1, p);           //hier sollte jetzt das bereits 
                           //gelöscht werden, damit die funtion mir
                           //mir den nächsten string ausgeben kann
END;

Am löschen hapert es aber glaube ich, denn wenn ich die Datei einlesen bekomme ich in den Memos nur jwls. "1" oder "2" ausgegeben. 1 und 2 sind halt auc die ersten stellen in dem .txt file, weshalb ich denke, dass dort nicht richtig gelöscht wird...
Weiß evtl. jemand wo der Fehler liegt?

Gruß Cox

[DeddyH]

Wie ist es so?
function TForm1.cutwords(var s:string): string; Den Parameter als Variablenparameter übergeben.