Opt ('ExpandVarStrings', 1)
MsgBox (0, '', 'Es ist @HOUR@:@MIN@ Uhr. Der zur Zeit angemeldete Benutzer heißt @UserName@.')
#include <GUIConstants.au3>
#Include <File.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 403, 237, 443, 214, BitOR($WS_SYSMENU,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
$minuten = GUICtrlCreateInput("Minuten", 120, 112, 145, 21)
$Label1 = GUICtrlCreateLabel("Bitte geben Sie hier eine Zahl ein!", 8, 24, 374, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Zeit setzen", 152, 160, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$string = GUICtrlRead($minuten)
foo ($string)
EndSwitch
WEnd
Func foo ($s)
MsgBox (0, '', $s)
EndFunc
Damit der Code richtig formatiert angezeigt wird, benutz bitte in Zukunft den Reiter 'Quellcode' anstatt 'Editor', beim Posten.
Global $s_String = 'C:\Hannes\Dietmar\Günther\123456789.txt'
Global $a_Split = StringSplit ($s_String, '\')
MsgBox (0, '', $a_Split[$a_Split[0]])
[/autoit]Das hier sollte wohl deinem Wunsch entsprechen:
[autoit]Global $s_Tag = 'Samstag'
ConsoleWrite (foo ($s_Tag) & @CRLF)
$s_Tag = 'Sonntag'
ConsoleWrite (foo ($s_Tag) & @CRLF)
Func foo ($v_Var)
Return $v_Var = 'Samstag'
EndFunc
Die Funktion foo gibt True zurück, wenn es Samstag ist - ansonsten False.
Die maximale Anzahl an Controls ist bei AutoIt auf 65.535 beschränkt.
Es hat also nicht direkt etwas mit _ArrayDisplay zu tun.
Notfalls kann man dafür eine Anzeige mit GDI+ basteln.
Erstell die ID doch einfach global. Dann kann es definitiv nicht schiefgehen.
Bringt dich die Variante irgendwie weiter?
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Global $a_Reg, $s_Ret, $s_String
$s_String &= 'mi(247,3621,25.63,30,5,''Name (4.223)'',''Clan'',161,0,'')" onclick="mgo(3621)' & @CRLF
$s_String &= 'mi(247,4043,25.63,30,5,''Name (5.347)'',''Clan'',161,0,'')" onclick="mgo(3621)' & @CRLF
$s_String &= 'mi(247,8968,25.63,30,5,''Name (8.012)'',''Clan'',161,0,'')" onclick="mgo(3621)'
$a_Reg = StringRegExp ($s_String, 'mi\((?:\d){1,3},((?:\d){1,4})(?:.+)(Name \(\d\.\d\d\d\))(?:.+(Clan))', 3)
; _ArrayDisplay ($a_Reg)
For $i = 0 To UBound ($a_Reg) - 1 Step 3
$s_Ret &= Int ($i / 3) + 1 & ')' & @TAB & $a_Reg[$i] & @TAB & $a_Reg[$i + 1] & @TAB & $a_Reg[$i + 2] & @CRLF
Next
MsgBox (0, '', $s_Ret)
[/autoit]Schade? Ist das Problem wirklich gelöst?
Wir kommunizieren per PN. Ich denke, es darauf zurückzuführen.
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <gdiplus.au3>
#include <misc.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
$x = 140
$y = 110
Global $afont, $mnText, $Label, $mnFarbe, $mnpFarbe, $aLabel[1]
$Form1 = GUICreate("Form1", 800, 600)
_Menue()
[/autoit] [autoit][/autoit] [autoit]$Form2 = GUICreate("Texte", 625, 443, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 32, 40, 545, 321, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$btnMnText = GUICtrlCreateButton("Text auf Form", 400, 376, 179, 41, $WS_GROUP)
GUISetState(@SW_SHOW, $Form1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $mnFarbe
$afont = _ChooseFont()
Case $mnText
GUISetState(@SW_SHOW, $Form2)
Case $btnMnText
GUISetState(@SW_SHOW, $Form2)
$mnEintrag = GUICtrlRead($Edit1)
GUISetState(@SW_SHOW, $Form1)
ReDim $aLabel[UBound ($aLabel) + 1] ; Entspricht _ArrayAdd
$aLabel[UBound($aLabel) - 1] = GUICtrlCreateLabel($mnEintrag, $x, $y, 146, 89) ; Fügst das neue Label dem Array hinzu
$Label = $aLabel[UBound($aLabel) - 1] ; ... und setzt $Label (die Variable, die beim Update übergeben wird) auf das neueste Label
EndSwitch
#Region Positionieren Text
If _IsPressed("25") Then
$x -= 1
Update()
ElseIf _IsPressed("27") Then
$x += 1
Update()
ElseIf _IsPressed("26") Then
$y -= 1
Update()
ElseIf _IsPressed("28") Then
$y += 1
Update()
EndIf
#EndRegion Positionieren Text
For $i = 1 To UBound($aLabel) - 1 ; Fängst bei [1] an, weil [0] leer ist
If $nMsg = $aLabel[$i] Then ; Wenn eines der Labels angeklickt wurde
$Label = $aLabel[$i] ; wird es zum aktiven Label (damit es verschoben werden kann usw)
$aPos = ControlGetPos($Form1, '', $Label) ; Nimmst noch die aktuelle Position des Labels
$x = $aPos[0] ; Und speicherst es in die Positionsvariablen
$y = $aPos[1] ; 
EndIf
Next
WEnd
Func Update()
GUICtrlSetPos($Label, $x, $y) ; Das aktive Label wird mit seinen eigenen Koordinaten verschoben
EndFunc ;==>Update
Func _Menue()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$mnpText = GUICtrlCreateMenu("Text")
$mnText = GUICtrlCreateMenuItem("öffnen", $mnpText)
$mnpFarbe = GUICtrlCreateMenu("Farbe")
$mnFarbe = GUICtrlCreateMenuItem("öffnen", $mnpFarbe)
EndFunc ;==>_Menue
[/autoit]#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$MeinBenutzerdatenTest = GUICreate("Form1", 345, 164, 192, 124)
$Speichern = GUICtrlCreateButton("Speichern", 216, 8, 75, 25, 0)
$PWEingabe = GUICtrlCreateInput("Dein Passwort", 88, 8, 121, 21)
$Titel = GUICtrlCreateLabel("Name", 48, 8, 32, 17)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
;~ Case $PWEingabe
;~ IniWrite("Config.ini", "Benutzerdaten", "Passwort", GUICtrlRead($PWEingabe))
;~ Was ist das?
Case $Speichern
IniWrite("Config.ini", "Benutzerdaten", "Passwort", GUICtrlRead($PWEingabe))
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Edit: Du brauchst gar nicht beide Case...
Dass der Fehler noch nie im nicht-kompilierten Zustand aufgetreten ist, ist einfach nur Zufall.
Versuch es mal in Scite mit Strg+F5 auf Fehler zu prüfen... Das zeigt auch die eventuell nicht-deklarierten Variablen.
_ArrayInsert
Fügt einen neuen String an der festgelegten Position in das Array ein.
Ich wäre hier fürs Schließen, da wohl offensichtlich ist, was mit dem Script bezweckt wird...
Edit BugFix: Sehe ich genauso. [CLOSED]
In Zeile 34 fehlt eine schließende Klammer.
[autoit]$eingabe4 = Send ( '{enter}' )
[/autoit]Script bitte.
Du wartest 10000 Sekunden und nicht 10.
Der Lautstärkemixer behält nach dem Beenden noch die Eigenschaft @SW_HIDE.
Nach WinSetState ('Lautstärkemixer', '', @SW_SHOW) kann man ihn wieder aufmachen... Eine Lösung dafür wäre nice...
Ansonsten sehr schön. Ist zwar nicht die sauberste Lösung, aber es funktioniert - und das sogar relativ schnell!
Anstatt _GDIPlus_GraphicsDrawStringEx, benutz lieber _GDIPlus_GraphicsDrawStringCustom.
Der Umgang damit ist viel einfacher.
Was das Verschieben angeht... Im Moment veränderst du nur die Variablen, in denen die Koordinaten gespeichert sind.
Die Positionen der Strings verändern sich dadurch nicht, da sie bereits gezeichnet sind. Du musst also, nachdem du die Variablen verändert hast, alles löschen und mit den neuen Koordinaten neu zeichnen.
Zum Löschen benutzt man _GDIPlus_GraphicsClear ($hGraphics). Neu zeichnen kannst du ja dann selbst...
Weil deine Variablen keine Handles enthalten.
GUIGetMsg gibt 0 zurück, wenn nichts angeklickt wird... Somit stimmen die Events überein und du bekommst eine MsgBox.
Rückgabewert
Erfolg: Array mit folgender Struktur:
[0] - enthält die Anzahl der Elemente
[1] - Attribute = BitOR von kursiv:2, Unterstreichung:4, Durchstreichung:8
[2] - Schriftname
[3] - Schriftgröße = Punktgröße
[4] - Schriftgewicht = 0-1000
[5] - COLORREF RGB Farbwert
[6] - Hex BGR Color
[7] - Hex RGB Color
[Blockierte Grafik: http://www.computergames-forum.de/images/smilies/Sonstige/facepalm.png]
