String mit einer Datei abgleichen

[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

[lucy]

vielleicht habe ich sonst noch was falsch gesetzt?

Delphi-Quellcode:

procedure TForm1.EingangTimer(Sender: TObject);
var
  msg, s, s2, s3: String;
       sl, List : TStrings;
              i : integer;
begin
 if IdTcpClient1.Connected then
  begin
   msg := IdTCPClient1.IOHandler.ReadLn('', 5);
    if msg <> '' then
     begin
      zaehler := zaehler +1;
      sl := TStringList.Create;
      sl.delimiter := ':';
      sl.DelimitedText := msg;
      if sl.Strings[0] =  '100' then begin

       end else begin
       if sl.Strings[5] = '' then
        begin
        sl.Strings[5] := 'kein Text';
        end else
         begin
          sl.Strings[5] := 'mit Text';
         end;
        s := sl.Strings[0] + ' | ' + sl.Strings[1] + ' | ' + sl.Strings[2] + ' | ' + sl.Strings[3] + ' | ' + sl.Strings[4] + ' | ' + Format('%.6d',[zaehler]) + ' | ' + trim(sl.Strings[5]);
       Memo1.Lines.Insert(0, 'Log | ' + datetostr(date) + ' | ' + timetostr(time) + ' | ' + ' IdTCPClient1 | ' + s);
      Statusbar1.SimpleText := 'Log | IdTCPClient1 | ' + s;
    if FileExists( ExtractFilePath( ParamStr( 0 ) ) + '\List.dat' ) then
   begin
    s2 := sl.Strings[3];
    ShowMessage(s2);
     List := TStringList.Create;
      try
       List.LoadFromFile( ExtractFilePath( ParamStr( 0 ) ) + '\List.dat' );
      for i := 0 to List.Count - 1 do
       begin
        s3 := StringReplace( List.Strings[i], ',', '', [rfReplaceAll] );
        ShowMessage(s3);
         if s2 = s3 then
          begin
           Shape1.Brush.Color := clgreen;
           Reset_Netz_Id.Enabled := true;
          end else
         begin
        Query_Monitord.Refresh;
       Shape1.Brush.Color := cllime;
      Reset_Alarm.Enabled := true;
     end;
      break;
       end;
        finally
       List.Free;
     end;
    end;
   end;
  end;
 end;
end;

[IMPEGA]

Nur mal so eine Idee.
Kann sein, dass du gar keine Zeilenumbrüche in deiner Datei hast, dein Editor fügt sie in deiner Vorschau automatisch ein, doch in Wirklichkeit deine Datei aus einer Zeile besteht?
Schau dir im debug einfach die Zeilen von Liste an.

[lucy]

nochmal zum Verstädnis!

hier die aktuelle List: siehe Bild!

s2 ist = "12345"

Delphi-Quellcode:

   s3 := StringReplace( List.Strings[i], ',', '', [rfReplaceAll] );
        ShowMessage(s3);

ist = ShowMessage(s3) = "12345 6789"

soll = ShowMessage(s3) ist falsch! es müsste "12345" heißen

[zeras]

Deine Daten sind laut Screenshot mittels Komma getrennt und nicht jeder Wert auf einer Zeile.
Kannst du deine Vergleichsdaten nicht ändern, so dass in jeder Zeile nur ein Wert steht?
Das wurde weiter oben auch schon angemerkt.

[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;