String auseinander nehmen

[kingflo]

Hallo!
Vielleicht könnt ihr mir helfen.

Also ich habe ein String mit dem Namen Text.

Dieser Text ist bei der Rückgabe immer unterschiedlich lang. Aber am ende des Strings steht immer eine Zahl z.b 1 oder 12 oder eine andere.

So und diese Zahl möchte ich jetzt in der integer variable wert haben.

Weiß aber nicht wie ich das machen soll, da ich nie weiß wie groß der String ist und wie viele Stellen die Zahl hat.

Kann mir da jemand helfen?

[bttb930]

die länge des strings bekommst du mit Length(s) und das n-te Zeichen mit Copy(s, n, 1)

siehe auch online-Hilfe

mit StrToInt(Copy(s, n, 1)) machst du aus der ziffer an der n-ten stelle im string s eine zahl

[sniper_w]

Oder auch so:

Delphi-Quellcode:

var str : string = '12345';
    i:integer;
begin
 i:= StrToInt(str[2]); // i := 2;
end;

[SubData]

Zitat:

Zitat von sniper_w

Oder auch so:

Delphi-Quellcode:

var str : string = '12345';
    i:integer;
begin
 i:= StrToInt(str[2]); // i := 2;
end;

Wäre das in dem Fall nich i := 3?

[sniper_w]

Nein.
Strings beginnen mit index 1. Sind halt nicht 0 "based".

[Nikolas]

Für beliebig lange Zahlen am Stringende:

Delphi-Quellcode:

i:= length(str)-1;

// String wird von hinten durchgegangen und geschaut, wann die erste nicht-Zahl auftaucht. 
while str[i] in ['0'..'9'] do
dec(i);

result:= strtoint(copy(str,i,length(str)-i));

Das ist eher als Idee als als fertiger Code gedacht, aber (+/-) 1 müsste er funktionieren.

[MarcusB]

Wenn Du nicht weisst, wielang der String ist und wieviele Stellen die Zahl hat, dann könnte ein regulärer Ausruck eine gute Lösung sein.

Für Deinen Fall etwa :

Code:

/^.*(\d*)$/

Allerdings setzt das voraus, das Du eine entsprechende Library installiert hast, wie z.B. TRegExpr.

:hi:

[kingflo]

Also irgendwie hab ichs noch nicht richtig hinbekommen.


Habs bis jetzt so:
Und es geht halt nur bei einem einstelligem wert am Ende logisch ist halt fest gesetzt.

Code:

str:=PHPOutPut.Items.Strings[PHPOutPut.Itemindex];

i:= StrToInt(str[length(str)]);

kann man nicht rausbekommen, was bei einem String nach dem Wort Line: für Zahlen kommen?
Denn das Letzte Wort vor den Zahlen ist Line: (bzw wenn es nicht line ist soll die aktion gar nicht durchgeführt werden)

[Nikolas]

Wenn du die Buchstaben vor der Zahl kennst, kannst du auch mit pos arbeiten.
per int:=pos(str,'line'); kommst du an die Position von line im String. Danach kannst du per copy die Buchstaben rausholen.

[Binärbaum]

Zitat:

Zitat von kingflo

kann man nicht rausbekommen, was bei einem String nach dem Wort Line: für Zahlen kommen?
Denn das Letzte Wort vor den Zahlen ist Line: (bzw wenn es nicht line ist soll die aktion gar nicht durchgeführt werden)

Nimm doch pos:

Delphi-Quellcode:

var myStr: string;
...
p:= pos('line:', myStr);
if p >0 then begin
  ShowMessage('"line:" ist in myStr enthalten');
  //mach irgendwas
end
else //'line:' ist nicht im myStr vorhanden

MfG
Binärbaum

[sniper_w]

Zitat:

Nimm doch Schau in die Delphi-Hilfepos:

Beachte dabei nur, dass POS CaseSensitive ist.

[Jasocul]

Und wenn du Grundlagen-Kenntnisse bei Stringverarbeitung benötigst, schaust du einfach auf meiner Homepage vorbei. Da gibts auch dokumentierte Sourcen. Die zeigen dann genau, wie die Funktionen und Prozeduren reagieren.

[kingflo]

Wie mache ich das denn genau mit Copy?

Also er soll nach line alles bis zum ende nehmen.

Hatte es so aber so gehts net

Delphi-Quellcode:

p:= pos('line',str);
if p >0 then begin
i:= StrToInt(str[length(str)]);
result:=Copy(str,p,i);
showmessage(result);

end ;

und result sollte eigentlich die Zahl nach Line sein.
Aber result ist so li von line

[Jasocul]

Delphi-Quellcode:

str := 'xxxline555';
p:= pos('line',str); 
if p >0 then begin 
  result:=Copy(str,p+4,length(str)); 
showmessage(result);

Habe gerade kein Delphi zum Prüfen hier.

[kingflo]

Das hatte ich gerade auch hinbekommen lustiger zufall.

Aber danke es geht natürlich man bin ich doof.

hab das mit p+4 und den echt dummen fehler in i auch gerade gefunden aber trotzdem Danke.

Also thema abgeschlossen

DANKE AN ALLE