String mit einer Datei abgleichen

[lucy]

Hallo,

würde gernen einen String mit einer Datei (Inhalt) vergleichen.

Delphi-Quellcode:

 List:= TStringList.Create;
      List.LoadFromFile(ExtractFilePath(ParamStr( 0 )) + '\List.dat');
       for i := 0 to List.Count - 1 do begin
       if sl.Strings[0] = List[i] then begin

ich habe eine Datei mit Zahlen zum Beispiel:

758,
326,
569

kommt einer diese drei Zahlen im String (sl.String[0]) vor dann ....

[himitsu]

Was ist deine Frage?


Einträge der Liste mit der ersten Zeile der Datei zu vergleichen und wenn gefunden, dann was machen, das macht du doch schon?

Willst du andersrum, etwas machen, wenn nicht drin, in einem Boolean merken wenn gefunden und nach der Schleife (nach allen Vergleichen) dann das auswerten,
oder, wie gesagt ... IndexOf.






Oder nicht nur mit der ersten Zeile vergleichen?

Wenn die Zahlen nicht in den selben Zeilen wie in der Liste stehen,
dann brauchst du per se zwei Schleifen, um jeden String in der Liste mit jeder Zeile der Datei zu vergleichen.

Oder eine Schleife und IndexOf (was den Wert mit jeder Zeile vergleicht).



Was ist "dann"?

Wenn neue Werte in Liste einfügen/angängen und "doppelte" ignorieren,
dann kennt eine StringList such etwas bezüglich "Duplicate ignore" und man kann somit einfach ALLES per Add/AddStrings hinzufügen, weil Doppeltes automatisch wegfliegt.

[lucy]

ach ja mein Problem richtig in der Datei wird nur die erste Zeile gelesen.
brauche eine Schleife um alle Zeilen zu lesen.

wie könnte so eine Schleife aussehen?

[blawen]

Zitat von lucy:

ach ja mein Problem richtig in der Datei wird nur die erste Zeile gelesen.
brauche eine Schleife um alle Zeilen zu lesen.

wie könnte so eine Schleife aussehen?

Kommen die Werte auch Mehrfach vor?

Grundsätzlich sollte Dir
List.find('Suchstring', Index) weiterhelfen.

Zitat:

function Find(const S: string; var Index: Integer): Boolean; virtual;

Sucht in einer sortierten Liste den Index eines Strings und gibt an, ob bereits ein String mit diesem Wert vorhanden ist.

[lucy]

Zitat:

Kommen die Werte auch Mehrfach vor?

nein, die Werte sind einmalig in der Datei.

bin noch am experimentieren

habe noch keine Lösung, dass ist auch falsch, glaube ich

Delphi-Quellcode:

     List:= TStringList.Create;
       List.LoadFromFile(ExtractFilePath(ParamStr( 0 )) + '\List.dat');
        for i := 0 to List.Count - 1 do begin
         if Index = List.IndexOf(sl.Strings[0]) then begin

[juergen]

Der Code sollte doch funktionieren. Daher vermute ich, dass in der List.dat-Datei ein Komma ist und in sl.Strings[0] nicht?

Probiere mal folgendes.

Delphi-Quellcode:

  
VAR
  s, s2: STRING;
  List: TStringList;
  i: Integer;
BEGIN
IF FileExists( ExtractFilePath( ParamStr( 0 ) ) + '\List.dat' ) THEN
  BEGIN
    s := sl.Strings[0];
    ShowMessage( s );    
    List := TStringList.Create;
    TRY
      List.LoadFromFile( ExtractFilePath( ParamStr( 0 ) ) + '\List.dat' );
      FOR i := 0 TO List.Count - 1 DO
      BEGIN
        s2 := StringReplace( List.Strings[i], ',', '', [rfReplaceAll] );
        ShowMessage( s2 );
        IF s = s2 THEN
        BEGIN
          // hier das was du machen willst
          break;
        END;
      END;
    FINALLY
      List.Free;
    END;
  END;
END;

Aber eigentlich sollte das alles beim debuggen ersichtlich sein.

[lucy]

die Zahlen stehen untereinander, es wird immer nur die erste Zeile gelesen warum????

[zeras]

Das Komma gehört auch zum String. Ist das vielleicht dein Problem?

[juergen]

Da ich das Komma als Problem vermutet hatte, hatte ich StringReplace() vorgeschlagen.
Wenn du meinen Code anwendest:
Wie oft erscheint die Showmessage mit s2 ?
Und was genau steht eigentlich in s?

[lucy]

Zitat:

Da ich das Komma als Problem vermutet hatte, hatte ich StringReplace() vorgeschlagen.
Wenn du meinen Code anwendest:
Wie oft erscheint die Showmessage mit s2 ?
Und was genau steht eigentlich in s?

zu (1) habe beide Varianten mit und ohne [,] ausprobiert

zu (2) Showmessage s2 wird einmal angezeigt

zu (3) es wird immer nur eine Zahl angezeigt zum Beispiel : 1234

habe das Gefühl, als würde aus der Datei immer nur die erste Zeile gelesen