MsgBox Ok und Abbrechen
17.04.2019 08:31:51
KJ
ich versuche gerade ein vbs zusammen zu basteln, der eine Textdatei mit random nummern erstellt. Nun möchte ich, dass wenn der User den Wert "0" eingibt, eine Fehlermeldung kommt, dass dieser Wert ungültig ist. Wenn dann der User auf OK klickt, soll wieder die Anzahl der zu generierenden Nummern abgefragt werden und bei abbrechen soll das script beendet werden.
Ich habe es versucht, folgendermaßen umzusetzen:
=============
Set user = CreateObject("WScript.Network")
userkurz = left(user.UserName ,2)
user = ucase(userkurz)
Anzahl = CInt (Inputbox ("Bitte Anzahl der zu generierenden RNG(s) eingeben"))
BorderRNG ="===================="
RNG = 0
Zahl = 1000
Jahr = Year(now())
Monat = 0
Tag = 0
Stunde = 0
Minut = Minute (now())
if Month(now()) if Day(now()) if Hour(now()) if Minute(now()) Datum = Jahr &Monat &Tag &Stunde &Minut
If Anzahl InfoMessage()
Else
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(fso.GetParentFolderName(WScript.ScriptFullName) &"\RNG_" & user & "_230415_" & Datum & ".txt", True)
MyFile.WriteLine vbCrLf & BorderRNG
Do Until RNG = Anzahl or RNG > 10000
ausgabe = "00" &Datum&"00"&Zahl
MyFile.WriteLine ausgabe
RNG = RNG + 1
Zahl = Zahl +1
Loop
MyFile.WriteLine BorderRN
MsgBox RNG & " RNG(s) wurden erfolgreich generiert!", vbOKOnly , "Erfolgreich:"
d = vbGeneralDate
DatumLog = now
MyFile.WriteLine vbCrLf & "--------------------" & vbCrLf &DatumLog & " : " & RNG & " RNG(s) wurden generiert." & vbCrLf & "--------------------"
MyFile.WriteLine VBDetailV
MyFile.close
Set MyFile = nothing
Set fso = nothing
end If
Sub InfoMessage()
If MsgBox "'" & Anzahl & "'" & " ist ein ungueltiger Wert!", vbOKCancel , "Fehler:" = vbOK _
Then
Anzahl = CInt (Inputbox ("Bitte Anzahl eingeben"))
Else
WScript.Quit
end If
End Sub
=============
Bei mir kommt jetzt immer die Fehlermeldung, dass das Then fehlen würde, aber da ist doch ein Then angegeben? Ich blicke es leider nicht mehr durch.
