Pos und Delete

[youuu]

Hi,

Ich habe einen String z.B.:

S:= 'Umsatz: 88€'

und ich möchte nun nur den Betrag filtern.

S2:= '88';

Wie kann ich das am besten realisieren.

Ich hab an Pos und delete gedacht, allerdings hab ich damit noch nicht wirklich gearbeitet.

[Klaus01]

Guten Abend,

ist der String immer so aufgebaut?
Also vor dem Betrag ein Leerzeichen und nach dem Betrag
ein € Zeichen?

Grüße
Klaus

[Satty67]

Als erstes prüfen, ob der Such-String identifiziert werden kann (in deinem Fall nicht, Beträge sind immer anders), dann also immer gültige Begrenzung ermitteln:

Betrag folgt (hoffentlich) immer nach einem Doppelpunkt. Also alles bis zum Doppelpunkt löschen:

Delphi-Quellcode:

S := 'Umsatz: 88€' 
Delete(S, 1, Pos(':', S));

Jetzt hast Du " 88€" als Rest-String. Sofern es immer €-Beträge sind:

Delphi-Quellcode:

Delete(S, Pos('€', S), 1024);

Die 1024 ist hier nur, um nicht die Länge des String ermitteln zu müssen.

Rest-String ist jetzt " 88", also noch Leerzeichen weg:

Delphi-Quellcode:

S := Trim(S);

Die vorgehensweise hat einen Haken... Abweichungen beim Ausgangsstring werden nicht so leicht weggesteckt. Also sicherstellen, dass : und € vorhanden sind, ist schonmal Pflicht.

[Mithrandir]

Zitat:

Zitat von Satty67

Die 1024 ist hier nur, um nicht die Länge des String ermitteln zu müssen.

Was bedeutet, das Beträge mit mehr als 1023 Stellen falsch wiedergegeben werden. :mrgreen:

Ganz ehrlich: Was spricht hier gegen eine Verwendung von Length? Die zusätzliche CPU-Zeit dürfte kaum der Grund sein.

//Nachtrag: Eine Alternative wäre die Verwendung von TPerlRegEx mit einer Regex, die nur auf numerische Zeichen anspringt, evtl. noch auf ".,-"...

[Andreas L.]

Zitat:

Zitat von Daniel G

Zitat:

Zitat von Satty67

Die 1024 ist hier nur, um nicht die Länge des String ermitteln zu müssen.

Was bedeutet, das Beträge mit mehr als 1023 Stellen falsch wiedergegeben werden. :mrgreen:

MaxInt verwenden :mrgreen: Ist bestimmt auch schneller als Length, oder?

[youuu]

Ja String ist definitive immer gleich.

Danke euch ;)