Ich habe ein Input feld in meiner selbs gemachten GUI. Dieses soll überprüft werden auf min 3 buchstaben inclusive leerer Inhalt.
Doch wie? Welche befehle sind zu verwenden?
Hir mal der Code haber code für die die danach fragen:
Spoiler anzeigen
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=d:\jagtskript.exe\sicherung der forms mit koda\formcharanlegen.kxf
$Form1_1 = GUICreate("Menü zum Char Anlegen", 493, 509, 193, 125)
GUISetBkColor(0x3D95FF)
$Label1 = GUICtrlCreateLabel("Willkommen bei dem Einstigs-Tool des JagdSkriptes!", 32, 16, 425, 24)
GUICtrlSetFont(-1, 12, 800, 4, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("1. Name:", 32, 70, 65, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 112, 70, 209, 21)
GUICtrlSetCursor (-1, 5)
GUISetState(@SW_SHOW)
$Label3 = GUICtrlCreateLabel("zb. Findecano (keine Titel und Orte)", 112, 104, 173, 17)
$Label4 = GUICtrlCreateLabel("Nur ein einzigen Teil des Namens Eintragen!", 112, 128, 213, 17)
$Speichern = GUICtrlCreateButton("Speichern", 400, 432, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Speichern
$Name = GuiCtrlRead($Input1 )
Dim $ifname = "if " & $Name & " in #CHARNAME"
;If $Input = "" Then Exit
;If InputBox ( "Frage", "Wie ist ihr Name?") = "" Then
;If Guictrlread(StringRegExp($Input1," ","")) < 3 Then
;StringRegExp()
;MsgBox(64,"Achtung! :)", "Sie haben vergessen etwas einzutragen!")
;If StringLen(StringReplace($Input1," ","")) < 3 Then
;MsgBox(0,"","Kleiner als 3")
;If $Input1 = "" Then
StringRegExpReplace($Input1, '\w', '')
If @extended < 3 Then
MsgBox(16,"Warnung" , "Es wurde kein Name eingetragen min 3 Zeichen benuzen!", 10 )
Else
If FileExists(@ScriptDir & '\Charsammlung.txt') Then
$file = FileOpen ( "Charsammlung.txt", 1 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
Dim $zu = "{"
(........)
EndIf
EndIf
Else
MsgBox(16,"Warnung" , "SkriptPathangaben.txt does NOT exists" , 5)
EndIf
EndIf
EndSwitch
WEnd