VBS InputBox Format

gelöstFrage VB for Applications Entwicklung

Guten Morgen,

ist es möglich, nachfolgende Abfrage so zu gestalten, dass bei der Eingabe eines falschen Formats eine weitere Meldung auftaucht?
Es ist gewünscht, dass hier nur Zahlen im Format: Zahlen..Zahlen eingeben werden dürfen.

ZielDatei= "C:\ProgramData\TESTt\test.txt"  
username=InputBox ("Bitte Daten eingeben:" & vbcrlf & "" & vbcrlf & "Es ist wichtig, dass Sie die Daten im folgenden Format eingeben: [...]","TEST","")  
CreateObject("Scripting.FileSystemObject").CreateTextFile(ZielDatei, True).WriteLine username  

MsgBox"Inhalt der Messagebox",0 + 16,"Name der Box"

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 466081

Url: https://administrator.de/forum/vbs-inputbox-format-466081.html

Ausgedruckt am: 29.04.2025 um 09:04 Uhr

4 Kommentare

Neuester Kommentar

Hi,
meinst Du echt Zahlen oder etwa Ziffern?

Do...Loop sollte hier helfen.

do
   ...  hier das Input ...

  InputOK = .... hier die Eingabe prüfen, wenn OK dann "true" wenn nicht OK dann "false"  

loop  until InputOK

E.

Edit:
Do solltest den Text der Frage ändern. Dir geht es doch um das Format einer Eingabe mit InputBox und nicht MsgBox.

Hi emeriks,

danke für Deine Rückmeldung. Ich meine hier Ziffern getrennt mit 2 Punkten (..).
Wie müsste ich das oben einbauen?

Gruß

Na z.B. mit RegEx

etwa so

Set oRex = New RegExp
oRex.Pattern = "[0-9]\.\.[0-9]$"  

do 
  username=InputBox ("Bitte Daten eingeben:" & vbcrlf & "" & vbcrlf & "Es ist wichtig, dass Sie die Daten im folgenden Format eingeben: [...]","TEST","")  
loop until oRex.Test(username)