freshman2017
Goto Top

VBS InputBox Format

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"  

Content-ID: 466081

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

Ausgedruckt am: 06.04.2025 um 07:04 Uhr

emeriks
emeriks 26.06.2019 aktualisiert um 09:57:16 Uhr
Goto Top
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.
freshman2017
freshman2017 26.06.2019 um 15:28:18 Uhr
Goto Top
Hi emeriks,

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

Gruß
emeriks
Lösung emeriks 26.06.2019 um 15:59:20 Uhr
Goto Top
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)
freshman2017
freshman2017 26.06.2019 um 21:01:38 Uhr
Goto Top
Vielen lieben Dank face-smile