Strings vergleichen

[woody]

moin,

habe folgendes problem:

ich erhalte eine antwort über die schnittstelle, die inhaltlich wie folgt aussieht:

Delphi-Quellcode:

login
Username: 
Username:

jedoch is diese nicht mit enter formatiert, sondern steht in einer zeile mit sonderzeichen(vierecke) verknüpft.
"login..Username:..Username:" (.=viereck)


nun möchte ich dieses ausdruck überprüfen:

Delphi-Quellcode:

  Msg := Trim(Msg);
          if  Copy(Msg,Length(Msg),10)  = ('login'+#$0d#$0a+'Username:'+#$0d#$0a+'Username:') then
            begin
              messagedlg('is angekommen', mtInformation, [mbOk], 0);
              //TrailState := tsUsername;
              exit;
            end
          else
            begin
            //TrailState := tsErrATOK;
            messagedlg('is nicht angekommen', mtInformation, [mbOk], 0);
            done := TRUE;
            end;
          end;

dies funzt jedoch nicht - kann mir da einer helfen?

[Assarbad]

Schau dir doch mal in einem Hexeditor an, ob das Zeichen (Viereck) nicht vielleicht einfach nur eins von beiden #10 oder #13 oder gar was ganz anderes ist.

[Christian Seehase]

Moin Woody,

oder setz einen Breakpoint auf diese Zeile

Msg := Trim(Msg); geh' mit dem Cursor auf Msg.
Dann zeigt Dir die IDE als Hint den Inhalt an, wobei Steuerzeichen im Format #xx angezeigt werden (xx = Dezimalwert des Steuerzeichens)

[woody]

ich dank dir Christian

'login'#$D'Username:'#$D'Username:' grüße
woody

[Assarbad]

*schnarch*

[Robert Marquardt]

$D = #13 = Carriage Return
Typisch Unix wo die Zeilenenden nur aus Carriage Returns bestehen.
Der Macintosh nimmt #10 = Line Feed und DOS und Windows nehmen #13#10.

[woody]

hm klappt doch nicht so richtig - hab ich mich wohl zu früh gefreut...

bin deshalb jetz umgestiegen auf die suche nach einem bestimmten wort in der Msg:

kann mir einer sagen wie ich in der Msg jetz nach 'Username' suche. wenn der enthalten is, soll sich ein messagedlg öffnen.

danke schon mal im voraus!

grüße
woody

[Alexander]

Kuck dir mal POS an.

[woody]

habs mal so probiert:

Delphi-Quellcode:

          if pos(ansilowercase(Msg), 'Username') <> 0 then
            begin
              messagedlg('Login is angekommen', mtInformation, [mbOk], 0);
              exit;
            end
          else
            begin
            messagedlg('Login is nicht angekommen', mtInformation, [mbOk], 0);
            end;
          end;

wo liegt da mein fehler?

[mirage228]

Moin,

es muss

Pos('username', ansilowercase(msg)) heissen!

mfG
mirage228