Domino 9 und frühere Versionen > ND8: Entwicklung

LotusScript: Zeichen, außer Zahlen, entfernen

<< < (2/2)

dirk_2909:
isNumeric würde auch gehen.

s_Old:

--- Zitat von: dirk_2909 am 15.01.09 - 09:35:23 ---isNumeric würde auch gehen.

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

--- Ende Code ---

Dank an euch. Gruß

Rico.

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

Bernhard

Navigation

[0] Themen-Index

[*] Vorherige Sete