String mit einer Datei abgleichen

[ringli]

Ersetze s3 := StringReplace( List.Strings[i], ',', '', [rfReplaceAll] ); doch mal durch s3 := StringReplace( List.Strings[i], ',', sLineBreak, [rfReplaceAll] ); Wie sieht es jetzt aus?

if s2 = s3 then würde ich auch noch durch if Trim(s2) = Trim(s3) then ersetzen um bei dem Vergleich mögliche Leerzeichen zu ignorieren.

[juergen]

Ich bin jetzt etwas verwirrt. Im Post #1 und #7 hast du Zahlen untereinander stehen.
Jetzt im Post #13 auf einmal nebeneinander. Ich deute das Ergebnis aus Showmessage nun so, dass die Zahlen kommagetrennt nebeneinander in den Zeilen stehen.
Dann könnte man das so umsetzen.

Delphi-Quellcode:

VAR
  s, s2: STRING;
  List: TStringList;
  i, i2: Integer;
  arr: TArray<STRING>;
BEGIN
  IF FileExists( ExtractFilePath( ParamStr( 0 ) ) + '\List.dat' ) THEN
  BEGIN
    List := TStringList.Create;
    TRY
      List.LoadFromFile( ExtractFilePath( ParamStr( 0 ) ) + '\List.dat' );
      s := sl.Strings[0];
      FOR i := 0 TO List.Count - 1 DO
      BEGIN
        arr := { uses System.StrUtils } SplitString( List.Strings[i], ',' );
        FOR i2 := 0 TO HIGH( arr ) DO
        BEGIN
          s2 := ( arr[i2] );
          IF s = s2 THEN
          BEGIN
            ShowMessage( 'OK' );
            break;
          END;
        END;
      END;
    FINALLY
      List.Free;
    END;
  END;
END;

[lucy]

Delphi-Quellcode:

Ersetze s3 := StringReplace( List.Strings[i], ',', '', [rfReplaceAll] ); doch mal durch s3 := StringReplace( List.Strings[i], ',', sLineBreak, [rfReplaceAll] ); Wie sieht es jetzt aus?

if s2 = s3 then würde ich auch noch durch if Trim(s2) = Trim(s3) then ersetzen um bei dem Vergleich mögliche Leerzeichen zu ignorieren.

jetzt werden die Zahlen im ShowMessage(s3) aus der Liste untereinandergeschrieben (aber alle Zahlen) das möchte ich auch nicht.

ich habe eine Liste:

12345,
67891,
98765,
32165

wenn jetzt zum Beispiel : s2 = "67891" ist, soll in der Liste geprüft werden ob diese Zahl vorhanden ist?

ja die Zahl : "67891" ist vorhanden! (ShowMessage (s3) = "67891")

[lucy]

Zitat:

Ich bin jetzt etwas verwirrt. Im Post #1 und #7 hast du Zahlen untereinander stehen.
Jetzt im Post #13 auf einmal nebeneinander. Ich deute das Ergebnis aus Showmessage nun so, dass die Zahlen kommagetrennt nebeneinander in den Zeilen stehen.
Dann könnte man das so umsetzen.

ich habe immer beide Varianten getestet! ist natürlich verwirrend

die Liste sollte eigentlich so aussehen:

12345,
67891,
98756,
32656,
usw.

[blawen]

Wenn ich es richtig verstanden habe, suchst Du in der Liste einen einmaligen und daher eindeutigen String.
Wieso benutzt Du nicht .find oder .IndexOf?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Liste     : TStringList;
  Index     : Integer;
  bGefunden : Boolean;
begin
  Liste := TStringList.Create;
  try
    if OpenDialog1.Execute
    then begin
      Liste.LoadFromFile(OpenDialog1.FileName);
    end;

    // Findet den Eintrag nur mit dem Trennzeichen
    Label1.Caption := 'Der Suchstring ist in der Zeile: ' + IntToStr(Liste.IndexOf(Edit1.Text));

    // Findet den Eintrag nur mit dem Trennzeichen
    bGefunden := Liste.Find(edit1.text,Index);
    if bGefunden
      then Label2.Caption := 'Der Suchstring ist in der Zeile: ' + IntToStr(Index)
      else Label2.Caption := 'Nicht gefunden';

    // Meldet das erste gefundene Resultat
    // Findet auch Einträge, wenn das Trennzeichen nicht vorkommt
    // -> auch Teilstringe werden gefunden ('ab' -> 'abc,')
    // Allerdings musst Du hier mit einer Schleife arbeiten um sämtliche Einträge zu finden
    Liste.Find(edit1.text,Index);
    Label3.Caption := 'Der Suchstring ist in der Zeile: ' + IntToStr(Index);

  finally
    Liste.Free;
  end;
end;

[lucy]

Zitat:

Wenn ich es richtig verstanden habe, suchst Du in der Liste einen einmaligen und daher eindeutigen String.

Ja!

Schaue mir gleich mal Deinen Quelltext an.

[juergen]

Habe mal beide Varianten (pro Zahl eine Zeile mit Komma am Ende und alle Zahlen kommagetrennt in 1 Zeile) in ein hier Testprojekt angehangen.

Was ist bei dir nun anders, dass es bei dir nicht funktioniert?
Beachte List1.dat und List2.dat

[lucy]

Zitat:

Habe mal beide Varianten (pro Zahl eine Zeile mit Komma am Ende und alle Zahlen kommagetrennt in 1 Zeile) in ein hier Testprojekt angehangen.

Was ist bei dir nun anders, dass es bei dir nicht funktioniert?
Beachte List1.dat und List2.dat

hat die Fehlermeldung was mit meiner Delphi - Version XE7 zu tun?

[hhcm]

Ist es nicht einfacher mit DelimitedText bzw. Commatext zu arbeiten?

Delphi-Quellcode:

 
  Liste := TStringList.Create;
  try
    // Entweder DelimitedText
    Liste.Delimiter := ',';
    Liste.DelimitedText := TFile.ReadAllText('List.dat');

    // Oder in diesem Fall noch einfacher CommaText
    Liste.CommaText := TFile.ReadAllText('List.dat');     

    // Mach was mit Liste
  finally
    Liste.Free;
  end;

Da sollte es egal sein, ob die Datei

So
---
12345,
4711,
0815

Oder so
---
12345,4711,0815

aufgebaut ist.
Ob es TFile bzw. ioutils bereits in XE7 gab weiss ich nicht.
Falls nicht, es gibt genügend Möglichkeiten eine Datei auszulesen.

[himitsu]

Bei DelimitedText unbedingt auf StrictDelimiter=True achten, denn Leerzeichen, Tabs und so werden sonst ebnfalls als Delimiter angesehn. (war wieder mal 'ne saublöde Idee das so zu "reparieren", anstatt es richtig zu machen, bzw. dieses "kaputte" Verhalten standardmäßig abzuschalten)