Alle nicht Ziffern entfernen...

[KeyKon]

Wie kann ich am schnellsten alle nicht Ziffern aus einem String entfernen?
Jede NichtZiffer mit ReplaceString() zu entfernen dauert einfach zu lang...
Evtl. hat ja jemand hier sowas schon gemacht.

MFG KeyKon

[HeX0R]

So in der Art:

Code: Alles auswählen

Procedure.s RemoveNonDigits(String.s)
	Protected *C.CHARACTER = @String, Result.s

	While *C\c
		If *C\c >= '0' And *C\c <= '9'
			Result + Chr(*C\c)
		EndIf
		*C + SizeOf(CHARACTER)
	Wend
	
	ProcedureReturn Result
EndProcedure

Debug RemoveNonDigits("td ztg1jfdiou2h iuiu3 j /)(/ 45 hljh6h 7l8 lkj j90")

[KeyKon]

Perfekt THX

[AND51]

Genau für Fälle wie diesen bieten sich Reguläre Ausdrücke geradezu an.
Um zu zeigen wie es geht:

Code: Alles auswählen

Procedure.s RemoveNonDigits(String.s)
	Protected exp=CreateRegularExpression(#PB_Any, "\D")
	String=ReplaceRegularExpression(exp, String, "")
	FreeRegularExpression(exp)
	ProcedureReturn String
EndProcedure

Debug RemoveNonDigits("td ztg1jfdiou2h iuiu3 j /)(/ 45 hljh6h 7l8 lkj j90") 

\D steht für "Nicht-Ziffern", diese werden entfernt. Übrig bleiben also nur Zahlen.

\D steht für alle Nicht-Ziffern, \d umgekehrt für alle Ziffern.

[ts-soft]

Ich finde Tipps zu regulären Ausdrücken immer nett, will dies ja auch irgend-
wann mal verstehen, aber anbieten tun sie sich aber nicht unbedingt:
1. langsamer
2. bläht Exe auf

es sei denn man benötigt das noch wesentlich öfter im Programm

[AND51]

Ja, da gebe ich dir Recht.
Ich habe gerade extra gestestet:

Bei 10.000 Durchläufen

• RegExp ca 3500 ms
  Pointer 530 ms

Die EXE bläht es aber nicht wesentlich auf:
..................89 KB (RegExp)
..5 KB (Pointer)
Es wurde bereits vielfach diskutiert, dass ein Größenzuwachs von einigen KB nicht der Rede wert ist. ich beziehe mich hierbei auf zahlreiche Außerungen wie "im Zeitalter großer Festplatten", "riesiger Arbeitsspeicher" und "schneller DSL-Anschlüsse", die zu Hauf in Diskussionen zum Thema Dateigrößen in diesem Forum zu finden sind.