LotusScript: Zeichen, außer Zahlen, entfernen

[magic_halli]

Guten Morgen,

ich habe einen String, bspw.: +49-37908/701113
Hieraus möchte ich jetzt noch alle Zeichen, außer Zahlen, entfernen. Es könnten wirklich, neben Zahlen, noch sämtliche Buchstaben/Sonderzeichen etc. vorkommen.

Wie kann ich mit LotusScript da herangehen?

Danke und Gruß

Rico.

[dirk_2909]

mit einer Schleife über jedes Zeichen der Zeichenkette und abfragen, ob das aktuelle Zeichen eine Zahl ist. Wenn ja, diese Zeichen an einer Variablen anhängen.

[magic_halli]

mit einer Schleife über jedes Zeichen der Zeichenkette und abfragen, ob das aktuelle Zeichen eine Zahl ist. Wenn ja, diese Zeichen an einer Variablen anhängen.

Ok, klingt sehr gut.

Wie frage ich aber in LS ab, ob ein Zeichen eine Zahl ist?

Rico.

[s_Old]

Auf die Schnelle & nicht getestet:

Code

	Dim szPhone As String
	Dim szPhoneClear As String
	Dim i As Integer
	Dim iChar As Integer
	Dim szChar As String
	
	szPhone = +49-37908/701113
	Err = 0
	On Error Resume Next
	
	For i = 1 To Len(szPhone)
		szChar = Mid(szPhone, i, 1)
		iChar = Cint(szChar)
		If ( Err = 0 ) Then
			szPhoneClear = szPhoneClear & Cstr(iChar)
		Else
			Err = 0
		End If
	Next i

[magic_halli]

Alles klar... Cint ist das Zauberwort. 

Ich versuch mich mal. Danke.

Rico.

[dirk_2909]

isNumeric würde auch gehen.

[s_Old]

isNumeric würde auch gehen.

Jo, es gibt sicherlich noch 10 andere Wege das zu erledigen, das war mein erster Ansatz.

[dirk_2909]

Ich wollte ja auch nur eine weitere Möglichkeit aufzeigen.
Ich persönlich halte nicht viel davon einen Fehler zu erzwingen.

[magic_halli]

So, ich habs gelöst - mittels isNumeric, da hier kein Fehler erzeugt/ausgewertet wird. (@dirk_2909 Danke.  )

Code

Dim faxnrClear As String
Dim sChar As String
Dim i As Integer
For i=1 To Len(faxnr)
   sChar = Mid(faxnr,i,1)
   If Isnumeric(sChar) Then
      faxnrClear = faxnrClear + sChar
   End If
Next

Dank an euch. Gruß

Rico.

[koehlerbv]

Möglichkeiten gibt es wirklich noch etliche mehr:
>= "0" And <= "9"
Instr ("0123456789")
Besonders performant Evaluate (@Matches ...)

Bernhard