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"

Please also mark the comments that contributed to the solution of the article

Content-Key: 466081

Url: https://administrator.de/contentid/466081

Printed on: April 25, 2024 at 06:04 o'clock

4 Comments

Latest comment

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)

Vielen lieben Dank

German solved Question VB for Applications Development

Hotly discussed

Check of ZFW Firewallgleixnerd - 5 Comments

Wireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments