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:
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:
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 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.

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 von Daniel G:

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.

MaxInt verwenden Ist bestimmt auch schneller als Length, oder?

[youuu]

Ja String ist definitive immer gleich.

Danke euch