LotusScript Prompt - Elegante Validierung gesucht

[HarryB]

Hallo zusammen,

innerhalb einer LotusScript Routine erfrage ich mittels einer Prompt Box eine Zahl ab. Die Zahl soll zu einer Integer Zahl konvertiert werden. Hierbei sollen Eingabefehler abgefangen werden. Zum Beispiel können Textstrings ja nicht konvertiert werden, außerdem gibt es ein Maxmimum und ein Minimum. Derzeit fange ich das mit einer On Error... Routine ab, damit das Script nicht anhält, wenn CInt() die Eingabe nicht konvertieren kann. Das sieht dann so aus:

On Error 13 Resume Next
   
   Do
      
      result = UIWs.Prompt(PROMPT_OKCANCELEDIT, "Zahl eingeben",_
      "Bitte geben Sie die Zahl der ein (max. " +_
      + Cstr(max) + "):", Cstr(max))
      
      newNumber = Cint(result)
      
   Loop Until (((newNumber > 0) And (newNumber <= max)) Or Isempty(result))

Hierbei entsteht natürlich das Problem, dass nach dem On Error... Statement auch keine anderen "Type Mismatch" Fehler mehr abgefangen werden.

Gibt es vielleicht eine elegantere Methode, abzufragen ob der eingegebene Wert eine Zahl und gültig ist? Oder habe ich die Möglichkeit nach der Validierung die normale Fehlerbehandlung wieder zu aktivieren?

Viele Grüße
Harry

[ZaLudtske]

Versuch doch mal die Prüfung mit 'isnumeric'.

Rainer

[HarryB]

Danke, das war's, was ich gesucht, aber nicht gefunden habe...

Viele Grüße
Harry