SID Nachfrage? Vorausetzungen fehlen.

Kyrlo

ich habe 2 wahrscheinlich total simple Fragen.

Ich brauche eine SID abfrage mithilfe einer InputBox
Jedoch darf die Antwort höchstens 3 Ziffern haben
So weit so gut

Leider brauch ich dazu auch noch:
1. die erste Ziffer muss ein Buchstabe sein
2. wenn entweder zu wenig lettern angegeben sind oder die 1. Ziffer kein Buchstabe ist soll eine Fehler meldung kommen und nach der Meldung soll sich das eingabefenster neu öffnen

ich hab es bissher so es kann aber auch komplett falsch sein :

[autoit]

Func FindSID()
Do
$FindSID_SID = InputBox ("SID", "Bitte füge hier die SID der Instanz/en ein", "", " 3")
Until StringLen ($FindSID_SID) = 3
EndFunc

[/autoit]

ich hoffe ich konnte mein Prooblem VERSTÄNDLICH erklären und hoffe auf euer Feedback
(ich hab erst am Mittwoch mit AutoIT angefangen)
Danke schonmal im Voraus!

**Schnitzel**

Hallo Kyrlo und Herzlich Willkommen im Forum

Eine einfache Möglichkeit für dich wäre folgende:

Spoiler anzeigen

[autoit]

Func FindSID()
Local $error = True
Do
$FindSID_SID = InputBox ("SID", "Bitte füge hier die SID der Instanz/en ein", "", " 3")
Select
Case StringLen($FindSID_SID) <> 3 ; Wenn die Eingabe nicht dreistellig ist
MsgBox(0,"", "Die Eingabe muss drei stellen haben")
Case Not StringIsAlpha(StringLeft($FindSID_SID, 1)) ; Wenn das erste Zeichen von links kein Buchstabe ist
MsgBox(0,"", "Die Eingabe muss mit einem Buchstaben beginnen")
Case Not StringIsDigit( StringRight($FindSID_SID, 2) ) ; Wenn die beiden hinteren Zeichen keine Ziffern sind
MsgBox(0,"", "Die Eingabe mit zwei Ziffern enden")
Case Else ; Wenn keiner der anderen Fälle zutrifft
$error = False
EndSelect
Until $error = False
EndFunc

[/autoit]

Das Problem lässt sich natürlich auf viele Weisen lösen. Aber ich denke so ist es für dich als Anfänger am verständlichsten.

Später einmal könntest du z.B. es mit dieser UDF verbessern RestrictControlRegExp-UDF - Fehleingaben direkt verhindern, Eingabentypen festlegen

**Xenobiologist**

oder sowas

Spoiler anzeigen

[autoit]

#Region ;************ Includes ************
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#EndRegion ;************ Includes ************

[/autoit] [autoit][/autoit] [autoit]

$GUI = GUICreate(" My GUI", 150, 100)
$hInput = GUICtrlCreateLabel("SID", 10, 10, 20, 20)
$hInput = GUICtrlCreateInput("", 40, 5, 50, 20, 0x0008)
GUICtrlSetLimit(-1, 3, 3)
GUISetState()
GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func MY_WM_COMMAND($hWnd, $msg, $wParam, $lParam)
Local $controlID = _WinAPI_LoWord($wParam)
Local $txt = GUICtrlRead($hInput)

[/autoit] [autoit][/autoit] [autoit]

If $controlID = $hInput Then
If StringLen($txt) = 3 And StringRegExp($txt, '(?i)[a-z]\d\d', 0) = 0 Then
DllCall("user32.dll", "int", "MessageBeep", "int", 0xFFFFFFFF) ;Beep
Local $tooltipPos = WinGetPos($GUI)
ToolTip("Bitte einen Buchstaben und zwei Zahlen eingeben:" & @LF & _
' S12 oder S35', $tooltipPos[0] + 160, $tooltipPos[1] + 60, Default, Default, 3)
Else
ToolTip("")
EndIf
;hier jegliche Logik rein.
EndIf
EndFunc ;==>MY_WM_COMMAND

[/autoit]

Kyrlo

Danke erstmal!
Funktioniert bei mir beides super, aber ich hab es jetzt ein wenig umgeschrieben..
ich würde mich über Feddback freuen! Auch über negatives ich will schließlich noch lernen!

Spoiler anzeigen

[autoit]

Func FindSID()
$FindSID_flag_lenght = False
$FindSID_flag_notnumber = False

[/autoit] [autoit][/autoit] [autoit]

Do
$FindSID_SID = InputBox ("SID", "Bitte füge hier die SID der Instanz/en ein", "", " 3")
$laenge_SID = StringLen ($FindSID_SID)
If $laenge_SID <> 3 Then
MsgBox (48, "Error", "Die SID muss aus 3 Zeichen Bestehen")
Else
$FindSID_flag_lenght = True
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $FindSID_flag_lenght = false Then
Else
$first_digit = StringLeft ($FindSID_SID,1)
$FindSID_is_first_digit_number = StringIsDigit ($first_digit)
If $FindSID_is_first_digit_number = 1 Then
MsgBox (48, "ERROR", "Eine SID beginnt niemals mit einer Zahl")
Else
$FindSID_flag_notnumber = True
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

Until $FindSID_flag_lenght = True And $FindSID_flag_notnumber = True
$FindSID_SID = StringUpper ($FindSID_SID)
MsgBox (0, "d", $FindSID_SID)
Return $FindSID_SID
EndFunc

[/autoit]

TheLuBu

Auch wenn du es schon gelöst hast, aber peethebee hat mal eine UDF für solche Zwecke geschrieben,
die direkt bei der Eingabe überprüft, ob die Eingabe gültig ist
RestrictControlRegExp-UDF - Fehleingaben direkt verhindern, Eingabentypen festlegen

**Schnitzel**

Auch wenns schon gelöst ist:
scroll mal 3 Beiträge hoch

TheLuBu

siehste mal, deinen Beitrag hab ich glatt überlesen