Domino 9 und frühere Versionen > ND8: Entwicklung

LotusScript: Zeichen, außer Zahlen, entfernen

(1/2) > >>

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:

--- Zitat von: dirk_2909 am 15.01.09 - 09:18:06 ---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.

--- Ende Zitat ---
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
--- Ende Code ---

magic_halli:
Alles klar... Cint ist das Zauberwort.  ;)

Ich versuch mich mal. Danke.

Rico.

Navigation

[0] Themen-Index

[#] Nächste Seite