Beiträge von Skar

Skar

Ich habe ein Text document voller Text. Wie sage ich dem AutoIT "Suche eine Zeile mit dem Inhalt "N". Wenn gefunden dann Überschreibe die ganze Zeile mit "Y""?

Skar

Wie schreibe ich eine Funktion und wwomit wird sie aufgerufen? Welches Schema hat AutoIT?

Alles was den wehrt 1 hat soll soll in eine Funktion gelangen wo die dann ein EasyUO Skript aufrufen um weiterverarbeitet zu werden.

Spoiler anzeigen

[autoit]

Case $Speichern
$Name = GuiCtrlRead($Input1 )
Dim $ifname = "if " & $Name & " in #CHARNAME"
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 = "{"
FileWrite($file, @CRLF)
FileWrite($file, $ifname & @CRLF & $zu & @CRLF )
If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
Dim $ifname1 = " set %mitBoden 1"
FileWrite($file, $ifname1 & @CRLF)
Else
Dim $ifname1 = " set %mitBoden 0"
FileWrite($file, $ifname1 & @CRLF)
EndIf
If BitAnd(GUICtrlRead($Checkbox3), $GUI_CHECKED) Then
Dim $ifname1 = " set %mitHaeuten 1"
FileWrite($file, $ifname1 & @CRLF)
Else
Dim $ifname1 = " set %mitHaeuten 0"
FileWrite($file, $ifname1 & @CRLF)
EndIf
If BitAnd(GUICtrlRead($Checkbox2), $GUI_CHECKED) Then
Dim $ifname1 = " set %mitZapfen 1"
FileWrite($file, $ifname1 & @CRLF)
Else
Dim $ifname1 = " set %mitZapfen 0"
FileWrite($file, $ifname1 & @CRLF)
EndIf
If BitAnd(GUICtrlRead($Checkbox4), $GUI_CHECKED) Then
Dim $ifname1 = " set %mitSortieren 1"
FileWrite($file, $ifname1 & @CRLF)
Else
Dim $ifname1 = " set %mitSortieren 0"
FileWrite($file, $ifname1 & @CRLF)
EndIf
If BitAnd(GUICtrlRead($Sammelack), $GUI_CHECKED) Then
Dim $ifname1 = " set %SammelsackBenutzung 1"
FileWrite($file, $ifname1 & @CRLF)
Else
Dim $ifname1 = " set %SammelsackBenutzung 0"
FileWrite($file, $ifname1 & @CRLF)
EndIf
If BitAnd(GUICtrlRead($Regs), $GUI_CHECKED) Then
Dim $ifname1 = " set %RegssackBenutzung 1"
FileWrite($file, $ifname1 & @CRLF)
Else
Dim $ifname1 = " set %RegssackBenutzung 0"
FileWrite($file, $ifname1 & @CRLF)
EndIf
If BitAnd(GUICtrlRead($Samen), $GUI_CHECKED) Then
Dim $ifname1 = " set %SamensackBenutzung 1"
FileWrite($file, $ifname1 & @CRLF)
Else
Dim $ifname1 = " set %SamensackBenutzung 0"
FileWrite($file, $ifname1 & @CRLF)
EndIf
If BitAnd(GUICtrlRead($Edelsteine), $GUI_CHECKED) Then
Dim $ifname1 = " set %EdelsteinsackBenutzung 1"
FileWrite($file, $ifname1 & @CRLF)
Else
Dim $ifname1 = " set %EdelsteinsackBenutzung 0"
FileWrite($file, $ifname1 & @CRLF)
EndIf
If BitAnd(GUICtrlRead($Felle), $GUI_CHECKED) Then
Dim $ifname1 = " set %FellsackBenutzung 1"
FileWrite($file, $ifname1 & @CRLF)
Else
Dim $ifname1 = " set %FellsackBenutzung 0"
FileWrite($file, $ifname1 & @CRLF)
EndIf
If BitAnd(GUICtrlRead($Nahrung), $GUI_CHECKED) Then
Dim $ifname1 = " set %NahrungsackBenutzung 1"
FileWrite($file, $ifname1 & @CRLF)
Else
Dim $ifname1 = " set %NahrungsackBenutzung 0"
FileWrite($file, $ifname1 & @CRLF)
EndIf
If BitAnd(GUICtrlRead($Pilze), $GUI_CHECKED) Then
Dim $ifname1 = " set %PilzesackBenutzung 1"
FileWrite($file, $ifname1 & @CRLF)
Else
Dim $ifname1 = " set %PilzesackBenutzungn 0"
FileWrite($file, $ifname1 & @CRLF)
EndIf
If BitAnd(GUICtrlRead($Zauberspruche), $GUI_CHECKED) Then
Dim $ifname1 = " set %ZauberspruecheBenutzung 1"
FileWrite($file, $ifname1 & @CRLF)
Else
Dim $ifname1 = " set %ZauberspruecheBenutzung 0"
FileWrite($file, $ifname1 & @CRLF)
EndIf
If BitAnd(GUICtrlRead($Sonstiges), $GUI_CHECKED) Then
Dim $ifname1 = " set %SonstigebagBenutzung 1"
FileWrite($file, $ifname1 & @CRLF)
Else
Dim $ifname1 = " set %SonstigebagBenutzung 0"
FileWrite($file, $ifname1 & @CRLF)
EndIf
Dim $zu1 = "}"
FileWrite($file, $zu1 & @CRLF)
FileClose($file)

Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf

[/autoit]

Skar

Ich habe eine Oberfläche gebastelt GUI. Dort gibt es ein Hauptmenue und ein Untermenue.
Wenn ich auch den Buttom "zurück" des untermnues clicke will ich im HauptMenue Landen, dabei sollte dan auch das untermenue verschwinden bis es wider ausgerufen wird.

Das ist mein Ziel.

Skar

Was für befehle oder Funktionen lassen mich zu einem Vorherigen Menu wechsln?

Für den Button " Zurück"

Skar

Das sollte Zeilen Zählen aber tut es nicht. Ist das _FileCountLines nur ein name einer Funktion die ich noch schreiben muss?
Funktion _FileCountLines
{

}

oder wo ist mein fehler?

[autoit]

$sFilePath = FileOpen(@ScriptDir & '\Monsterbibo.txt', 0)
$CountLines = _FileCountLines($sFilePath )
MsgBox(64, "Error log recordcount", "There are " & $CountLines & " in the error.log.")
Exit

[/autoit]

Skar

Jetzt bin ich wider Happy. Wider was gelernt. Danke für die gedult, die ich nicht hatte heute.

Skar

Ich haaaaabbbbba. endlich. Ich hab viel zu viel rundherum gehabt.

Skar

Kann ich Links bekommen wo man GUI Elemente versteckt hat und wider einblenden lies?

Skar

Doch leider weiß ich nicht warum es so wild blinket. Und beim Deaktivieren geht es auch nicht wider zu verstecken. Warum?

Spoiler anzeigen

[autoit]

While 1
$nMsg = GUIGetMsg()

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

Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $nMsg = $Checkbox4
If BitAnd(GUICtrlRead($Checkbox4), $GUI_CHECKED) Then
$Group1 = GUICtrlCreateGroup("Zur Funktion Sortieren ! ", 120, 304, 265, 193)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Sammelack = GUICtrlCreateCheckbox("Sack für´s Loot", 190, 329, 97, 17)
$Nahrung = GUICtrlCreateCheckbox("Nahrungssack", 256, 354, 97, 17)
$Regs = GUICtrlCreateCheckbox("Reagenziensack", 136, 354, 97, 17)
$Pilze = GUICtrlCreateCheckbox("Pilzsack", 256, 374, 97, 17)
$Samen = GUICtrlCreateCheckbox("Samensack", 136, 374, 97, 17)
$Zauberspruche = GUICtrlCreateCheckbox("Zauberspruchsack", 256, 394, 97, 17)
$Edelsteine = GUICtrlCreateCheckbox("Edelsteinsack", 136, 394, 97, 17)
$Sonstiges = GUICtrlCreateCheckbox("Sonstiges", 256, 414, 97, 17)
$Felle = GUICtrlCreateCheckbox("Fellsack", 136, 414, 97, 17)
EndIf
If BitAnd(GUICtrlRead($Checkbox4), $GUI_UNCHECKED) Then
GUICtrlSetState($Group1 ,$GUI_HIDE)
GUICtrlSetState($Sammelack,$GUI_HIDE)
GUICtrlSetState($Nahrung,$GUI_HIDE)
GUICtrlSetState($Regs,$GUI_HIDE)
GUICtrlSetState($Pilze,$GUI_HIDE)
GUICtrlSetState($Samen,$GUI_HIDE)
GUICtrlSetState($Zauberspruche,$GUI_HIDE)
GUICtrlSetState($Edelsteine,$GUI_HIDE)
GUICtrlSetState($Sonstiges,$GUI_HIDE)
GUICtrlSetState($Felle,$GUI_HIDE)
EndIf

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

Case $Speichern
$Name = GuiCtrlRead($Input1 )
Dim $ifname = "if " & $Name & " in #CHARNAME"
If FileExists(@ScriptDir & '\(Ver.1.2)Charsammlung.txt') Then
$file = FileOpen ( "(Ver.1.2)Charsammlung.txt", 1 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
Dim $zu = "{"
FileWrite($file, @CRLF)
FileWrite($file, $ifname & @CRLF & $zu & @CRLF )
If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
Dim $ifname1 = " set %mitBoden 1"
FileWrite($file, $ifname1 )
EndIf
If BitAnd(GUICtrlRead($Checkbox1), $GUI_UNCHECKED ) Then
Dim $ifname1 = " set %mitBoden 0"
FileWrite($file, $ifname1 )
EndIf
If BitAnd(GUICtrlRead($Checkbox3), $GUI_CHECKED) Then
Dim $ifname1 = " set %mitHaeuten 1"
FileWrite($file, $ifname1 )
EndIf
If BitAnd(GUICtrlRead($Checkbox3), $GUI_UNCHECKED ) Then
Dim $ifname1 = " set %mitHaeuten 0"
FileWrite($file, $ifname1 )
EndIf
;FileWrite($file, )
FileClose($file)

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

Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf
MsgBox(0, "Test", $Checkbox4 )

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

EndSwitch
WEnd

[/autoit]

Skar

Case hat so funktioniert:

[autoit]

Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $nMsg = $Checkbox4

[/autoit]

Skar

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

#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(0xB9D1EA)
$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)
$Label5 = GUICtrlCreateLabel("2. Welche Funktionen wollt ihr nutzen?", 32, 176, 263, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Checkbox1 = GUICtrlCreateCheckbox("Bodensuche", 48, 220, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Obduktion/Zapfen", 280, 220, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Haeuten", 168, 220, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Sortieren", 48, 280, 97, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("_______________________________________________________", 48, 248, 334, 17)
$Label7 = GUICtrlCreateLabel(">>>>>>>>>>", 48, 304, 64, 17)
$Group1 = GUICtrlCreateGroup("Zur Funktion Sortieren ! ", 120, 304, 265, 193)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Sammelack = GUICtrlCreateCheckbox("Sack für´s Loot", 190, 329, 97, 17)
$Nahrung = GUICtrlCreateCheckbox("Nahrungssack", 256, 354, 97, 17)
$Regs = GUICtrlCreateCheckbox("Reagenziensack", 136, 354, 97, 17)
$Pilze = GUICtrlCreateCheckbox("Pilzsack", 256, 374, 97, 17)
$Samen = GUICtrlCreateCheckbox("Samensack", 136, 374, 97, 17)
$Zauberspruche = GUICtrlCreateCheckbox("Zauberspruchsack", 256, 394, 97, 17)
$Edelsteine = GUICtrlCreateCheckbox("Edelsteinsack", 136, 394, 97, 17)
$Sonstiges = GUICtrlCreateCheckbox("Sonstiges", 256, 414, 97, 17)
$Felle = GUICtrlCreateCheckbox("Fellsack", 136, 414, 97, 17)
$Inhalt_bestimmen = GUICtrlCreateButton("Inhalt_bestimmen", 136, 454, 110, 25, 0)
GUICtrlSetCursor (-1, 0)
$ID_Setzen = GUICtrlCreateButton("ID_Setzen", 264, 454, 110, 25, 0)
GUICtrlSetCursor (-1, 0)
$Label8 = GUICtrlCreateLabel(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>", 136, 432, 235, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Back = GUICtrlCreateButton("Back", 32, 470, 75, 25, 0)
GUICtrlSetCursor (-1, 0)
$Speichern = GUICtrlCreateButton("Speichern", 400, 432, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()

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

If BitAnd(GUICtrlRead($Checkbox4), $GUI_UNCHECKED) Then
GUICtrlSetState($Group1 ,$GUI_HIDE)
GUICtrlSetState($Sammelack,$GUI_HIDE)
GUICtrlSetState($Nahrung,$GUI_HIDE)
GUICtrlSetState($Regs,$GUI_HIDE)
GUICtrlSetState($Pilze,$GUI_HIDE)
GUICtrlSetState($Samen,$GUI_HIDE)
GUICtrlSetState($Zauberspruche,$GUI_HIDE)
GUICtrlSetState($Edelsteine,$GUI_HIDE)
GUICtrlSetState($Sonstiges,$GUI_HIDE)
GUICtrlSetState($Felle,$GUI_HIDE)
EndIf
If BitAnd(GUICtrlRead($Checkbox4), $GUI_CHECKED) Then
;Else
$Group1 = GUICtrlCreateGroup("Zur Funktion Sortieren ! ", 120, 304, 265, 193)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Sammelack = GUICtrlCreateCheckbox("Sack für´s Loot", 190, 329, 97, 17)
$Nahrung = GUICtrlCreateCheckbox("Nahrungssack", 256, 354, 97, 17)
$Regs = GUICtrlCreateCheckbox("Reagenziensack", 136, 354, 97, 17)
$Pilze = GUICtrlCreateCheckbox("Pilzsack", 256, 374, 97, 17)
$Samen = GUICtrlCreateCheckbox("Samensack", 136, 374, 97, 17)
$Zauberspruche = GUICtrlCreateCheckbox("Zauberspruchsack", 256, 394, 97, 17)
$Edelsteine = GUICtrlCreateCheckbox("Edelsteinsack", 136, 394, 97, 17)
$Sonstiges = GUICtrlCreateCheckbox("Sonstiges", 256, 414, 97, 17)
$Felle = GUICtrlCreateCheckbox("Fellsack", 136, 414, 97, 17)
EndIf
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Speichern
$Name = GuiCtrlRead($Input1 )
Dim $ifname = "if " & $Name & " in #CHARNAME"
If FileExists(@ScriptDir & '\(Ver.1.2)Charsammlung.txt') Then
$file = FileOpen ( "(Ver.1.2)Charsammlung.txt", 1 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
Dim $zu = "{"
FileWrite($file, @CRLF)
FileWrite($file, $ifname & @CRLF & $zu & @CRLF )
If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
Dim $ifname1 = " set %mitBoden 1"
FileWrite($file, $ifname1 )
EndIf

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

If BitAnd(GUICtrlRead($Checkbox1), $GUI_UNCHECKED ) Then
Dim $ifname1 = " set %mitBoden 0"
FileWrite($file, $ifname1 )
EndIf
;FileWrite($file, )
FileClose($file)

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

Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf
MsgBox(0, "Test", $Checkbox4 )

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

EndSwitch
WEnd

[/autoit]

Skar

Das geht aber nicht mit Case $Checkbox4 da kommt bei mir ein Fehler.
"Case statement with no matching "Seleckt" or Switch".

Was ich jetzt brauche ist ein Beispiel wo ich ein Checkbox zu ankreuzen habe und ein Wort dabei auftaucht und verschwindet. Rest mach ich dan.
Wie gesagt ich habe noch nie GUI´s gemacht und kenne die Behele nicht auswendig.

Skar

Jetzt Flackert es bei mir so wild, wenn ich das Häckchen setze. Wenn ich es wider raus nehme steht alles nicht mehr flckerd da und ist nicht versteckt. Ich brobire jetzt noch mal rum.

Was fehlt den noch?

Spoiler anzeigen

(Hir oben sind die aufzudeckenden sachen als Versteckt angegeben)

While 1
$nMsg = GUIGetMsg()

If BitAnd(GUICtrlRead($Checkbox4), $GUI_CHECKED) Then
$Group1 = GUICtrlCreateGroup("Zur Funktion Sortieren ! ", 120, 304, 265, 193)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Sammelack = GUICtrlCreateCheckbox("Sack für´s Loot", 190, 329, 97, 17)
$Nahrung = GUICtrlCreateCheckbox("Nahrungssack", 256, 354, 97, 17)
$Regs = GUICtrlCreateCheckbox("Reagenziensack", 136, 354, 97, 17)
$Pilze = GUICtrlCreateCheckbox("Pilzsack", 256, 374, 97, 17)
$Samen = GUICtrlCreateCheckbox("Samensack", 136, 374, 97, 17)
$Zauberspruche = GUICtrlCreateCheckbox("Zauberspruchsack", 256, 394, 97, 17)
$Edelsteine = GUICtrlCreateCheckbox("Edelsteinsack", 136, 394, 97, 17)
$Sonstiges = GUICtrlCreateCheckbox("Sonstiges", 256, 414, 97, 17)
$Felle = GUICtrlCreateCheckbox("Fellsack", 136, 414, 97, 17)
EndIf
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Speichern
$Name = GuiCtrlRead($Input1 )
Dim $ifname = "if " & $Name & " in #CHARNAME"
If FileExists(@ScriptDir & '\(Ver.1.2)Charsammlung.txt') Then
$file = FileOpen ( "(Ver.1.2)Charsammlung.txt", 1 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
Dim $zu = "{"
FileWrite($file, @CRLF)
FileWrite($file, $ifname & @CRLF & $zu & @CRLF )
;If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then

;EndIf
;FileWrite($file, )
FileClose($file)

Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf
MsgBox(0, "Test", $Checkbox4 )

EndSwitch
WEnd

Skar

Das mit den Abfragen geht nicht so richtig. Ich bekomme es swar versteckt, aber nicht sofort sichtbar wenn ich das Häckchen setze.
Wo ist das Problem? Wie frage ich richtig ab?

Spoiler anzeigen

if $Checkbox4 = False Then
$Sammelack = GUICtrlCreateCheckbox("Sack für´s Loot", 190, 329, 97, 17)
GUICtrlSetState($Sammelack,$GUI_HIDE)
$Nahrung = GUICtrlCreateCheckbox("Nahrungssack", 256, 354, 97, 17)
GUICtrlSetState($Nahrung,$GUI_HIDE)
$Regs = GUICtrlCreateCheckbox("Reagenziensack", 136, 354, 97, 17)
GUICtrlSetState($Regs,$GUI_HIDE)
$Pilze = GUICtrlCreateCheckbox("Pilzsack", 256, 374, 97, 17)
GUICtrlSetState($Pilze,$GUI_HIDE)
$Samen = GUICtrlCreateCheckbox("Samensack", 136, 374, 97, 17)
GUICtrlSetState($Samen,$GUI_HIDE)
$Zauberspruche = GUICtrlCreateCheckbox("Zauberspruchsack", 256, 394, 97, 17)
GUICtrlSetState($Zauberspruche,$GUI_HIDE)
$Edelsteine = GUICtrlCreateCheckbox("Edelsteinsack", 136, 394, 97, 17)
GUICtrlSetState($Edelsteine,$GUI_HIDE)
$Sonstiges = GUICtrlCreateCheckbox("Sonstiges", 256, 414, 97, 17)
GUICtrlSetState($Sonstiges,$GUI_HIDE)
$Felle = GUICtrlCreateCheckbox("Fellsack", 136, 414, 97, 17)
GUICtrlSetState($Felle,$GUI_HIDE)
EndIf

Skar

Ich habe eine

$Checkbox4 = GUICtrlCreateCheckbox("Sortieren", 48, 280, 97, 17)

Wenn die Aktivirt wir (Also wenn das Kreis gesezt wird)
Soll sofort das "verstechte" Zusatzmenue Auftauchen.

Zusatzmenüe:

Spoiler anzeigen

$Group1 = GUICtrlCreateGroup("Zur Funktion Sortieren ! ", 120, 304, 265, 193)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Sammelack = GUICtrlCreateCheckbox("Sack für´s Loot", 190, 329, 97, 17)
$Nahrung = GUICtrlCreateCheckbox("Nahrungssack", 256, 354, 97, 17)
$Regs = GUICtrlCreateCheckbox("Reagenziensack", 136, 354, 97, 17)
$Pilze = GUICtrlCreateCheckbox("Pilzsack", 256, 374, 97, 17)
$Samen = GUICtrlCreateCheckbox("Samensack", 136, 374, 97, 17)
$Zauberspruche = GUICtrlCreateCheckbox("Zauberspruchsack", 256, 394, 97, 17)
$Edelsteine = GUICtrlCreateCheckbox("Edelsteinsack", 136, 394, 97, 17)
$Sonstiges = GUICtrlCreateCheckbox("Sonstiges", 256, 414, 97, 17)
$Felle = GUICtrlCreateCheckbox("Fellsack", 136, 414, 97, 17)

Meine Frage wie mache ich dises Group Menu unsichtbar bis das Häckchen gesezt wird?

Skar

Wenn Button2 gedrückt wird Soll die in einer Meldung stehen was in der Combobox ausgewählt worden ist.
Was mach ich Falsch das der Wehrt nicht angezeigt wird?

Case $Button2
$auswahl = GUICtrlRead($Combo1)
MsgBox(4096,"Warnung" , $auswahl )

Im Ganzen sihr das so aus.

Spoiler anzeigen

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\busch.GAIAAKKU\Desktop\JagtSkript.exe\FormSkriptSpeicherort.kxf
$Form2 = GUICreate("Skriptspeicherort", 402, 251, 203, 193)
GUISetCursor (2)
GUISetFont(8, 400, 0, "Arial")
GUISetBkColor(0x3D95FF)
$Label2 = GUICtrlCreateLabel("Hir kommt der Path zu den neuen Skript Quellcode rein.", 8, 16, 383, 20)
GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Path:", 8, 60, 56, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 70, 60, 300, 22)
GUICtrlSetCursor (-1, 5)
$Button1 = GUICtrlCreateButton("Speichern", 262, 102, 105, 30)
GUICtrlSetFont(-1, 8, 800, 4, "Arial")
GUICtrlSetCursor (-1, 0)
$Label3 = GUICtrlCreateLabel("zB. c:\....\...\(Ver.1.0)J.euo", 72, 88, 132, 18)
$Combo1 = GUICtrlCreateCombo("", 70, 160, 300, 22)

If FileExists(@ScriptDir & '\SkriptPathangaben.txt') Then
$file = FileOpen ( "SkriptPathangaben.txt", 0 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
$AllLines = ""
While 1
$line = FileReadLine($file)
If @error = -1 Then
StringTrimRight($AllLines, 1)
ExitLoop
EndIf
$AllLines &= $line &"|"
Dim $AllLines2 = $AllLines
WEnd
Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf
$Combo1 = GUICtrlSetData(-1, $AllLines2 )
$Label4 = GUICtrlCreateLabel("Alte Versionen einfach Auswählen.", 70, 136, 76, 22)
GUISetState(@SW_SHOW)
$Button2 = GUICtrlCreateButton("Speichern", 263, 204, 105, 30)
GUICtrlSetFont(-1, 8, 800, 4, "Arial")
GUICtrlSetCursor (-1, 0)
$Label5 = GUICtrlCreateLabel("Oder:", 8, 112, 52, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button2
$auswahl = GUICtrlRead($Combo1)
MsgBox(4096,"Warnung" , $auswahl )

Case $Button1

$Path = GuiCtrlRead($Input1)
If FileExists(@ScriptDir & '\SkriptPathangaben.txt') Then
$file = FileOpen ( "SkriptPathangaben.txt", 1 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
FileWrite($file, @CRLF)
FileWrite($file, $Path )
FileClose($file)
Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf

EndSwitch
WEnd

Skar

Nächste Frage:

Kenzeichnung <-----------------------

Spoiler anzeigen

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\busch.GAIAAKKU\Desktop\JagtSkript.exe\FormSkriptSpeicherort.kxf
$Form2 = GUICreate("Skriptspeicherort", 402, 201, 203, 193)
GUISetCursor (2)
GUISetFont(8, 400, 0, "Arial")
GUISetBkColor(0x3D95FF)
$Label2 = GUICtrlCreateLabel("Hir kommt der Path zu den neuen Skript Quellcode rein.", 8, 16, 383, 20)
GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Path:", 8, 60, 56, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 70, 60, 300, 22) ;<-----------------------
GUICtrlSetCursor (-1, 5)
$Button1 = GUICtrlCreateButton("Speichern", 262, 102, 105, 30)
GUICtrlSetFont(-1, 8, 800, 4, "Arial")
GUICtrlSetCursor (-1, 0)
$Label3 = GUICtrlCreateLabel("zB. c:\....\...\(Ver.1.0)J.euo", 72, 88, 132, 18)
$Combo1 = GUICtrlCreateCombo("", 70, 160, 300, 22) ;<-----------------------

If FileExists(@ScriptDir & '\SkriptPathangaben.txt') Then
$file = FileOpen ( "SkriptPathangaben.txt", 0 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
$AllLines = ""
While 1
$line = FileReadLine($file)
If @error = -1 Then
StringTrimRight($AllLines, 1)
ExitLoop
EndIf
$AllLines &= $line &"|"
Dim $AllLines2 = $AllLines
WEnd
Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf
$Combo1 = GUICtrlSetData(-1, $AllLines2 ) ;<-----------------------
$Label4 = GUICtrlCreateLabel("Alte Versionen einfach Auswählen.", 70, 136, 76, 22)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Combo1 <-----------------------

(xxxxxxxxx) <-----------------------Dort ist mein Problem. Inhalt der Combo soll in die Input box copiert werden
$Path1 = GuiCtrlRead($Combo1)
GUICtrlSetData ($Input1, $Path1)

Case $Button1

$Path = GuiCtrlRead($Input1)
If FileExists(@ScriptDir & '\SkriptPathangaben.txt') Then
$file = FileOpen ( "SkriptPathangaben.txt", 1 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
FileWrite($file, @CRLF)
FileWrite($file, $Path )
FileClose($file)
Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf

EndSwitch
WEnd

Wie gibt man den ausgewählten wehrt einer Combobox sofort an die Input box weiter?

Hat jemand einen Hinweiß?

Skar

Nächste Frage:

Kenzeichnung <-----------------------

Spoiler anzeigen

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\busch.GAIAAKKU\Desktop\JagtSkript.exe\FormSkriptSpeicherort.kxf
$Form2 = GUICreate("Skriptspeicherort", 402, 201, 203, 193)
GUISetCursor (2)
GUISetFont(8, 400, 0, "Arial")
GUISetBkColor(0x3D95FF)
$Label2 = GUICtrlCreateLabel("Hir kommt der Path zu den neuen Skript Quellcode rein.", 8, 16, 383, 20)
GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Path:", 8, 60, 56, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 70, 60, 300, 22) ;<-----------------------
GUICtrlSetCursor (-1, 5)
$Button1 = GUICtrlCreateButton("Speichern", 262, 102, 105, 30)
GUICtrlSetFont(-1, 8, 800, 4, "Arial")
GUICtrlSetCursor (-1, 0)
$Label3 = GUICtrlCreateLabel("zB. c:\....\...\(Ver.1.0)J.euo", 72, 88, 132, 18)
$Combo1 = GUICtrlCreateCombo("", 70, 160, 300, 22) ;<-----------------------

If FileExists(@ScriptDir & '\SkriptPathangaben.txt') Then
$file = FileOpen ( "SkriptPathangaben.txt", 0 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
$AllLines = ""
While 1
$line = FileReadLine($file)
If @error = -1 Then
StringTrimRight($AllLines, 1)
ExitLoop
EndIf
$AllLines &= $line &"|"
Dim $AllLines2 = $AllLines
WEnd
Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf
$Combo1 = GUICtrlSetData(-1, $AllLines2 ) ;<-----------------------
$Label4 = GUICtrlCreateLabel("Alte Versionen einfach Auswählen.", 70, 136, 76, 22)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Combo1 <-----------------------

(xxxxxxxxx) <-----------------------Dort ist mein Problem. Inhalt der Combo soll in die Input box copiert werden
$Path1 = GuiCtrlRead($Combo1)
GUICtrlSetData ($Input1, $Path1)

Case $Button1

$Path = GuiCtrlRead($Input1)
If FileExists(@ScriptDir & '\SkriptPathangaben.txt') Then
$file = FileOpen ( "SkriptPathangaben.txt", 1 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
FileWrite($file, @CRLF)
FileWrite($file, $Path )
FileClose($file)
Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf

EndSwitch
WEnd

Wie gibt man den ausgewählten wehrt einer Combobox sofort an die Input box weiter?

Hat jemand einen Hinweiß?

Skar

Spoiler anzeigen

$Combo1 = GUICtrlCreateCombo("", 70, 160, 300, 22)
If FileExists(@ScriptDir & '\SkriptPathangaben.txt') Then
$file = FileOpen ( "SkriptPathangaben.txt", 0 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
$line = FileReadLine( "SkriptPathangaben.txt" , -1 )
$AllLines = ""
While 1
$line2 = FileReadLine($file)
If @error = -1 Then
StringTrimRight($AllLines, 1)
ExitLoop
EndIf
$AllLines &= $line2 &"|"
$AllLines2 = "" &
WEnd
Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf
$Combo1 = GUICtrlSetData(-1, $AllLines )

Diese Letzte Zeile macht mir Probleme.
$Combo1 = GUICtrlSetData(-1, $AllLines )

Sieht das so aus geht es,
$Combo1 = GUICtrlSetData(-1, "Alte versionen|C\...\|C\...\1|C\...\12|C\...\tgf|C\...\hnf|Done" , "Alte versionen" )

Doch kann ein neuer Phat angelegt werden, die zeile verlängert sich.
Nur will ich es Kürzer schreiben und Mobiler.

Der Inhalt von $AllLines ist momentan:
Alte Versionen|C\...\|C\...\1|C\...\12|C\...\tgf|C\...\hnf|Done

Nur die GänzeFüßschen fehlen.
Wie geht es? """ geht nicht.

Skar

While 1
$line2 = FileReadLine($file)
(xxxxxxxxxxxx)

dim $linecombo = $line2 & "|"
dim $linvar = $linecombo
dim $linecombo2 = $linecombo2 & $linvar
MsgBox(4096,"Warnung" , $linecombo2 )

If @error = -1 Then ExitLoop
Wend

Was muss ich bei x einfügen um die kommenden Zeilen aneinander zu reihen?

Beiträge von Skar

Eine bestimmte Zeiule im .TXT verändern

Wie schreibe ich eine Funktion

Suche zurüch zum Menue x Funktion befehle

Suche zurüch zum Menue x Funktion befehle

Zeilen einer TXT Zählen habe fehler mit _FileCountLines

Verstecken funktion?

Verstecken funktion?

Verstecken funktion?

Verstecken funktion?

Verstecken funktion?

Verstecken funktion?

Verstecken funktion?

Verstecken funktion?

Verstecken funktion?

Verstecken funktion?

ComboBox Problem

ComboBox Problem

Zeichen zusammensetzen

Zeichen zusammensetzen

Zeichen zusammensetzen