Hallo alpines,
sorry, jetzt stehe ich gerade voll auf dem Schlauch. Kannst Du mir bitte ein kleines Beispielscript posten (muss nichts mit meinem zu tun haben, nur damit ich verstehe, was du meinst). Danke
Nachtrag um 10:40 Uhr:
Habe es jetzt so gelöst (zwar nicht schön, aber funktioniell)
Spoiler anzeigen
AutoIt
Func _InputAuslesen()
$sReturnInput = GUICtrlRead($sInput01)
ClipPut($sReturnInput)
Local $iInputLaenge = StringLen($sReturnInput)
If $sReturnRadio = 'Übernahmeschein' Then
If StringIsDigit($sReturnInput) = 1 Then
;~ MsgBox(0, "Zahl", $sReturnInput & " ist eine Zahl")
Else
Local $iResponse = MsgBox(16, "Fehler", $sReturnInput & " ist keine Zahl")
Exit Run(@ScriptFullPath)
EndIf
If $iInputLaenge > "14" Then
Local $iResponse = MsgBox(16, "Falsche Eingabe", "Die eingegebene UNS Nummer hat " & $iInputLaenge & " Zahlen!" & @CRLF & "Es sind maximal 14 Zahlen erlaubt.!")
Exit Run(@ScriptFullPath)
EndIf
EndIf
If $sReturnRadio = 'Begleitschein' Then
If StringIsDigit($sReturnInput) = 1 Then
;~ MsgBox(0, "Zahl", $sReturnInput & " ist eine Zahl")
Else
Local $iResponse = MsgBox(16, "Fehler", $sReturnInput & " ist keine Zahl")
Exit Run(@ScriptFullPath)
EndIf
If $iInputLaenge > "14" Then
Local $iResponse = MsgBox(16, "Falsche Eingabe", "Die eingegebene BGS Nummer hat " & $iInputLaenge & " Zahlen!" & @CRLF & "Es sind maximal 14 Zahlen erlaubt.!")
Exit Run(@ScriptFullPath)
EndIf
EndIf
If $sReturnRadio = 'Nachweis' Then
If StringIsAlNum($sReturnInput) Then
;~ MsgBox($MB_SYSTEMMODAL, "", "Gut")
Else
Local $iResponse = MsgBox(16, "Falsche Eingabe", "Die eingegebene Nachweis Nummer " & $sReturnInput & " enthält nicht zugelassene Zeichen!")
Exit Run(@ScriptFullPath)
EndIf
If $iInputLaenge > "12" Then
Local $iResponse = MsgBox(16, "Falsche Eingabe", "Die eingegebene Nachweis Nummer hat " & $iInputLaenge & " Zeichen!" & @CRLF & "Es sind maximal 12 Zeichen erlaubt.!")
Exit Run(@ScriptFullPath)
EndIf
EndIf
EndFunc ;==>_InputAuslesen
Alles anzeigen