Beiträge von inventor

inventor

Ich meinte eig nur, dass es keine try ... catch funktionen gibt, aber es sind natürlich in den meisten Funtionen Mechanismen eingebaut, damit das script nicht immer gleich stecken bleibt und man auf eventuelle "Fehler" reagieren kann

inventor

1. mit solchen kleinen codeschnipseln kann dir keiner helfen, du solltest mindestens die komplette Schleife und deine Funktion posten
2. wäre eine etwas genauere beschreibung des Fehlers nich schlecht, wenigstens über welche Art von Fehler wird reden
2. in AutoIt kann man afaik keine Fehler abfangen, man kann nur verhindern, dass sie Auftreten
mfg inventor

inventor

sapontan würde ich das anze nicht mir dem IE sondern mit _InetGetSource machen, und dann mit
_StringBetween die Adressen rausfiltern

inventor

dann muss ich also alle control einzeln prüfen?

inventor

Alcros:
die msgbox hatte ich vorher drin, daher weiß ich ja die werte, und mit den klammern, alle anderen 14 Vergleiche funktionieren ganz normal, nur bei den beiden checkboxen hab ich besagtes problem

@Marsi :
achso, ich hatte nur neulich in der hilfe gefunden, dass es == auch gibt und da das in vielen anderen sprachen zum vergleichen genutzt wird, hab ich es hier eif auch verwendet

inventor

Hi,
ich mach für unsere Schulsanitäter die Homepage, und da schreib ich für unseren Lehrer nen Editor, damit er sich nicht mit dem Quelltext prügeln muss, aber jetzt habe ich das Problem, dass er in Zeile 262 behauptet, 1 und 4 wären gleich, und somit das ganze als unverändert annimmt, obwohl es gespeichert ist

PS:
der Quelltext is noch nicht fertig und an vielen anderenstellen auch noch fehlerhaft, hanz abgesehen, dass manan vielen stellen mit einem bruchteil an aufwand das selbe Ergebnis erzielen könnte

Quelltext

[autoit]

#cs ----------------------------------------------------------------
Script Version : 0.1
Author : inventor <[email='stefan.thomas@famthomas.net'][/email]>
#ce ----------------------------------------------------------------
#region Optionen und Includes
Opt("MustDeclareVars", 1)
Opt("GUIOnEventMode", 1)
Opt("GUIcloseonESC", 0)

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

#include <GUIConstants.au3>
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>
#include <DateTimeConstants.au3>

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

Opt("GUIResizeMode", $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
#endregion Optionen und Includes

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

#region Variablen

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

Global $GUI

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

Global $ID[3][9]

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

Global $status_width[2]
$status_width[0] = 75
$status_width[1] = 425
Global $status
Global $stat_newtext

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

Global $men_datei
Global $men_open
Global $men_speichern
Global $men_speichernunter
Global $men_beenden
Global $men_ask
Global $men_help

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

Global $saved = False
Global $savepath = ""
Global $openpath = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"

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

Global $file_msg
Global $file_hnd

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

Global $save_msg
Global $save_inhalt
Global $save_return
Global $savedinhalt[3][9]
Global $savedtext
Global $savedwrite
Global $i

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

Global $save_dialogmsg

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

Global $end_msg

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

Global $keystate = 0
Global $oldkeystate = 1
Global $helpkeystate = 1

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

Global Const $Kopf = "<html>" & @CRLF & " <head>" & @CRLF & ' <title>SSD JEG - Startseite</title>' & @CRLF & @CRLF & ' <meta name="author" content="Stefan Thomas">' & @CRLF & ' <meta name="robots" content="noindex, nofollow">' & @CRLF & @CRLF & ' <link rel="stylesheet" href="./css/index.css" type="text/css">' & @CRLF & ' <link rel="stylesheet" href="./css/all.css" type="text/css">' & @CRLF & @CRLF & ' <link rel="shortcut icon" href="./graphics/SSD_logo_2_icon.gif">' & @CRLF & ' </head>' & @CRLF & ' <body>' & @CRLF & ' <div id="logo">' & @CRLF & ' <a href="./">' & @CRLF & ' <img src="./graphics/SSD_logo_2_200.gif" width="150" height="150" alt="Logo" >' & @CRLF & ' </a>' & @CRLF & ' </div>' & @CRLF & ' <div id="titel">' & @CRLF & ' <h1>Schulsanitätsdienst des JEG</h1>' & @CRLF & ' </div>' & @CRLF & ' <div id="nav">' & @CRLF & ' <h2> Navigation</h2>' & @CRLF & ' <div class="nav-aktuell" id="nav-startseite">' & @CRLF & ' Startseite' & @CRLF & ' </div>' & @CRLF & ' <div class="nav-norm" id="nav-kurzel">' & @CRLF & ' <a href="kurzel.html">Namenskürzel</a>' & @CRLF & ' </div>' & @CRLF & ' <div class="nav-norm" id="nav-impress">' & @CRLF & ' <a href="impressum.html">Impressum</a>' & @CRLF & ' </div>' & @CRLF & ' <div class="nav-norm" id="nav-kalender">' & @CRLF & ' <a href="https://www.google.com/calendar/embed?src=8sjq1lk0qmofoa63tvh1j7bh64%40group.calendar.google.com&ctz=Europe%2FBerlin" target="_blank">Kalender</a>' & @CRLF & ' </div>' & @CRLF & ' </div>' & @CRLF & ' <div id="main-container">' & @CRLF & ' <div id="main-aktuell">' & @CRLF & ' <h3>Aktuelles:</h3>' & @CRLF & @CRLF
Global Const $Footer = ' </div>' & @CRLF & ' </div>' & @CRLF & ' </body>' & @CRLF & '</html>'

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

Global $hgui
Global $help = False

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

Global $GUIhwd
Global $WMID
Global $wparam
Global $iparam

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

Global $open_filehwnd
Global $open_file

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

#endregion Variablen
#region Initialisierung

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

$GUI = GUICreate("SSD-Website-Editor", 600, 700, -1, -1, $WS_Maximizebox + $WS_Minimizebox)
GUISetOnEvent($GUI_EVENT_CLOSE, "beenden")

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

$men_datei = GUICtrlCreateMenu("Datei ")
$men_open = GUICtrlCreateMenuItem("Öffnen", $men_datei,0)
GUICtrlSetOnEvent($men_open, "offnen")
$men_speichern = GUICtrlCreateMenuItem("Speichern", $men_datei, 1)
GUICtrlSetOnEvent($men_speichern, "save")
$men_speichernunter = GUICtrlCreateMenuItem("Speichern unter", $men_datei, 2)
GUICtrlSetOnEvent($men_speichernunter, "saveunder")
$men_beenden = GUICtrlCreateMenuItem("Beenden", $men_datei, 3)
GUICtrlSetOnEvent($men_beenden, "beenden")
$men_ask = GUICtrlCreateMenu(" ? ")
$men_help = GUICtrlCreateMenuItem("Hilfe ", $men_ask, 1)
GUICtrlSetOnEvent($men_help, "help")

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

GUICtrlCreateGroup("Aktuelles:", 10, 10, 570, 135)
GUICtrlCreateLabel("Diese Woche haben", 15, 30, 100, 20)
$ID[0][0] = GUICtrlCreateInput("", 117, 28, 150, 18)
GUICtrlCreateLabel("und", 270, 30, 20, 20)
$ID[0][1] = GUICtrlCreateInput("", 292, 28, 150, 18)
GUICtrlCreateLabel("Dienst.", 445, 30, 40, 20)

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

GUICtrlCreateLabel("Ersatz ist", 15, 55, 45, 20)
$ID[0][2] = GUICtrlCreateInput("", 62, 53, 150, 18)

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

$ID[0][3] = GUICtrlCreateCheckbox("Nächsten Termin angeben", 15, 85, 150, 20)
$ID[0][4] = GUICtrlCreateLabel("Das nächste Treffen ist am", 35, 110, 130, 20)
$ID[0][5] = GUICtrlCreateDate(@YEAR & "/" & @MON & "/" & @MDAY, 170, 108, 100, 20, $DTS_SHORTDATEFORMAT)

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

GUICtrlCreateGroup("Zukünftiges:", 10, 145 + 10, 570, 135)
GUICtrlCreateLabel("Nächste Woche haben", 15, 145 + 30, 115, 20)
$ID[1][0] = GUICtrlCreateInput("", 132, 145 + 28, 150, 18)
GUICtrlCreateLabel("und", 285, 145 + 30, 20, 20)
$ID[1][1] = GUICtrlCreateInput("", 307, 145 + 28, 150, 18)
GUICtrlCreateLabel("Dienst.", 460, 145 + 30, 40, 20)

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

GUICtrlCreateLabel("Ersatz ist", 15, 145 + 55, 45, 20)
$ID[1][2] = GUICtrlCreateInput("", 62, 145 + 53, 150, 18)

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

$ID[1][3] = GUICtrlCreateCheckbox("Nächsten Termin angeben", 15, 145 + 85, 150, 20)
$ID[1][4] = GUICtrlCreateLabel("Das", 35, 145 + 110, 20, 20)
$ID[1][5] = GUICtrlCreateRadio("nächste", 65, 145 + 102, 55, 20)
$ID[1][6] = GUICtrlCreateRadio("übernächste", 65, 145 + 118, 75, 20)
$ID[1][7] = GUICtrlCreateLabel("Treffen ist am", 150, 145 + 110, 100, 20)
$ID[1][8] = GUICtrlCreateDate(@YEAR & "/" & @MON & "/" & @MDAY, 220, 145 + 108, 100, 20, $DTS_SHORTDATEFORMAT)

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

$ID[2][0] = GUICtrlCreateEdit("", 10, 300, 575, 310)
GUICtrlSetResizing($ID[2][0], $GUI_DOCKAUTO)

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

$status = _GUIctrlstatusbar_create($GUI, $status_width)
_GUICtrlStatusBar_SetText($status, " Gespeichert", 0)
$saved = True

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

For $x = 0 To 2 Step 1
For $y = 0 To 8 Step 1
$savedinhalt[$x][$y] = GUICtrlRead($ID[$x][$y])
If ($x == 0 And $y == 5) Then
ExitLoop
ElseIf($x == 2 And $y == 0) Then
ExitLoop
EndIf
Next
Next

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

GUISetState(@SW_SHOW, $GUI)

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

GUIRegisterMsg($WM_ACTIVATE, "checkfokus")

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

AdlibRegister("status_resize", 250)
AdlibRegister("testifsaved", 301)
AdlibRegister("shownext", 300)

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

$keystate = 1
keystate()
#endregion Initialisierung

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

#region Hauptprogramm

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

While 1
Sleep(1000)
WEnd

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

#endregion Hauptprogramm

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

#region Funktionen

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

#region Speichern

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

Func men_saveunder()
status("Speichere")
$save_return = saveunder ()
If ($save_return == -1) Then
Return -1
Else
save ()
EndIf
EndFunc

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

Func save()
status("Speichere")
If ($savepath == "") Then
saveunder ()
EndIf
$file_msg = FileOpen($savepath & "\index.html", 2 +
If ($file_msg == -1) Then
Return -2 ; Fehler beim öffnen der Datei
Else
$file_hnd = $file_msg
EndIf
write($Kopf)
For $x = 0 To 2 Step 1
For $y = 0 To 8 Step 1
$savedinhalt[$x][$y] = GUICtrlRead($ID[$x][$y])
If ($x == 0 And $y == 5) Then
ExitLoop
ElseIf($x == 2 And $y == 0) Then
ExitLoop
EndIf
Next
Next
write(' Diese Woche haben <font color="00ff00">' & $savedinhalt[0][0] & '</font> und <font color="00ff00">' & $savedinhalt[0][1] & '</font> Dienst.<br>' & @CRLF)
write(' Ersatz ist <font color="00ff00">' & $savedinhalt[0][2] & '</font>.<br> ' & @CRLF)
If $savedinhalt[0][3] = $GUI_CHECKED Then
write(' Das nächste Treffen ist am <font color="00ff00">' & GUICtrlRead($ID[0][5]) & '</font>')
EndIf
write(' </div>' & @CRLF)

write(' <div id="main-demnaechst">' & @CRLF & ' <h3>Zukünftiges:</h3>' & @CRLF & @CRLF)
write(' Nächste Woche haben <font color="00ff00">' & $savedinhalt[1][0] & '</font> und <font color="00ff00">' & $savedinhalt[1][1] & '</font> Dienst. <br>' & @CRLF)
write(' Ersatz ist <font color="00ff00">' & $savedinhalt[1][2] & '</font>.<br>' & @CRLF)
If $savedinhalt[1][3] = $GUI_CHECKED Then
If $savedinhalt[1][4] = $GUI_CHECKED Then
write(' Das nächste Treffen ist am <font color="00ff00">' & GUICtrlRead($ID[1][8]) & '</font>' & @CRLF)
Else
write(' Das übernächste Treffen ist am <font color="00ff00">' & GUICtrlRead($ID[1][8]) & '</font>' & @CRLF)
EndIf
EndIf
write(' </div>' & @CRLF & @CRLF & ' <div id="main-news">' & @CRLF)

$savedtext = $savedinhalt[2][0]
$savedtext = StringSplit($savedtext, @CRLF, 1)
For $i = 1 To $savedtext[0] Step 1
$savedtext[$i] = $savedtext[$i] & @CRLF
$savedtext[$i] = StringReplace($savedtext[$i], "&", "&", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "ä", "ä", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "Ä", "Ä", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "ü", "ü", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "Ü", "Ü", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "ö", "ö", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "Ö", "Ö", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "ß", "ß", 1)
If StringInStr($savedtext[$i], "[trenner]") Then
$savedtext[$i] = StringReplace($savedtext[$i], "[trenner]" & @CRLF, '<hr class="trenner">' & @CRLF)
Else
$savedtext[$i] = StringReplace($savedtext[$i], @CRLF, "<br>" & @CRLF)
EndIf
$savedwrite = $savedwrite & ' ' & $savedtext[$i]
Next
write($savedwrite)
write($Footer)
FileClose($file_hnd)
status("")
EndFunc

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

Func saveunder()
status("Speichere")
Do
$save_msg = FileOpenDialog("SSD-Website-Editor", $openpath,"Html-Dateien (*.html; *.htm)|Alle Dateien (*.*)", 1 + 4, "index.html", $GUI)
If ($save_msg == "") Then
If (@error == 1) Then
status("Speichern abgebrochen")
Return -1
EndIf
Else
$savepath = $save_msg
EndIf
Until(FileExists($savepath))
EndFunc

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

Func testifsaved()
For $x = 0 To 2 Step 1
For $y = 0 To 7 Step 1
;status("read : " & GUICtrlRead($ID[0][3]) & " saved : " & $savedinhalt[0][3])
If Not GUICtrlRead($ID[$x][$y]) == $savedinhalt[$x][$y] Then
_GUICtrlStatusBar_SetText($status, "Geändert", 0)
$saved = False
Return False
EndIf
If ($x == 0 And $y == 5) Then
ExitLoop
ElseIf($x == 2 And $y == 0) Then
ExitLoop
EndIf
Next
Next
_GUICtrlStatusBar_SetText($status, "Gespeichert", 0)
$saved = True
Return True
EndFunc

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

Func write($save_inhalt)
FileWrite($file_hnd, $save_inhalt)
EndFunc
#endregion Speichern

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

#region Laden

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

Func offnen()
While 1
$save_dialogmsg = FileOpenDialog("SSD-Website-Editor", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "HTML-Dateien (*.html; *.htm)|Alle Dateien (*.*)", 3, "index.html", $GUI)
If (@error) Then
Return -1 ; Öffnen Abgebrochen
Else
$openpath = $save_dialogmsg
ExitLoop
EndIf
WEnd
Laden()
EndFunc

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

Func Laden()
MsgBox(0, "SSD-Website-Editor", $openpath)
$open_filehwnd = FileOpen($openpath)
MsgBox(0, "SSD-Website-Editor", $open_filehwnd)
$open_file = FileRead($open_filehwnd)
FileClose($open_filehwnd)
MsgBox(0, "SSD-Website-Editor", $open_file)
$open_file = StringReplace($open_file, $Kopf, "")
MsgBox(0, "SSD-Website-Editor", $open_file)
$open_file = StringReplace($open_file, $Footer, "")
GUICtrlSetData($ID[2][0], $open_file)
EndFunc

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

#endregion Laden

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

#region Window-funktionen

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

Func beenden()
If ($saved == False) Then
$end_msg = MsgBox(3 + 32 + 4096, "Newsedit - Speichern?", "Sie haben ihre Datei noch nicht gespeichert, wollen sie das jetzt tun?")
If ($end_msg == 2) Then ;Abbrechen
Return
ElseIf($end_msg == 7) Then
end()
Else
If (men_save() == -1) Then
Return
EndIf
end()
EndIf
Else
end()
EndIf
EndFunc

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

Func end()
Exit
EndFunc

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

Func shownext()
If (GUICtrlRead($ID[0][3]) == $GUI_UNCHECKED) Then
GUICtrlSetState($ID[0][4], $GUI_HIDE)
GUICtrlSetState($ID[0][5], $GUI_HIDE)
Else
GUICtrlSetState($ID[0][4], $GUI_SHOW)
GUICtrlSetState($ID[0][5], $GUI_SHOW)
EndIf

If (GUICtrlRead($ID[1][3]) == $GUI_UNCHECKED) Then
GUICtrlSetState($ID[1][4], $GUI_HIDE)
GUICtrlSetState($ID[1][5], $GUI_HIDE)
GUICtrlSetState($ID[1][6], $GUI_HIDE)
GUICtrlSetState($ID[1][7], $GUI_HIDE)
GUICtrlSetState($ID[1][8], $GUI_HIDE)
Else
GUICtrlSetState($ID[1][4], $GUI_SHOW)
GUICtrlSetState($ID[1][5], $GUI_SHOW)
GUICtrlSetState($ID[1][6], $GUI_SHOW)
GUICtrlSetState($ID[1][7], $GUI_SHOW)
GUICtrlSetState($ID[1][8], $GUI_SHOW)
EndIf
EndFunc

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

Func checkfokus($GUIhwnd, $WMID, $wparam, $iparam)
If not $wparam == 0 Then
$keystate = 1
keystate ()
Else
$keystate = 0
keystate()
EndIf
EndFunc

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

Func status($stat_newtext = "")
_GUICtrlStatusBar_SetText($status, $stat_newtext, 1)
EndFunc

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

Func status_resize()
_GUICtrlStatusBar_Resize($status)
EndFunc

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

Func keystate()
Switch $keystate
Case 1
HotKeySet("^s", "men_save")
HotKeySet("^+s", "saveunder")
HotKeySet("{F1}", "help")
HotKeySet("^h", "help")
HotKeySet("^o", "offnen")
Case 0
HotKeySet("^s")
HotKeySet("^+s")
HotKeySet("{F1}")
HotKeySet("^h")
HotKeySet("^o")
EndSwitch
status("Keystate : "&$keystate)
EndFunc

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

#endregion Window-funktionen

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

#region Hilfe

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

Func help()
$help = True

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

$hgui = GUICreate("Newsedit - Hilfe", 400, 350, -1, -1, $WS_CHILD + $WS_MINIMIZEBOX + $WS_CAPTION + $WS_POPUP + $WS_SYSMENU, -1, $GUI)
GUISetOnEvent($GUI_EVENT_CLOSE, "hclose", $hgui)

GUICtrlCreateTab(20, 20, 360, 310)
GUICtrlCreateTabItem("Allgemein")
GUICtrlCreateLabel("Der SSD-Website-Editor ist ein kostenloses Programm, um die Startseite für die Homepage des Schulsanitätsdienstes des Josef Effner Gymnasiums Dachau zu bearbeiten.", 35, 60, 330, 50)

#cs GUICtrlCreateTabItem("Tastenkürzel")
GUICtrlCreateLabel("Hilfe : F1 oder STRG+H", 35, 60, 330, 20)
GUICtrlCreateLabel("Speichern : STRG+S", 35, 80, 330, 20)
GUICtrlCreateLabel("Speichern unter : STRG+SHIFT+S", 35, 100, 330, 20)
#ce
GUICtrlCreateTabItem("Schlüsselwörter")
GUICtrlCreateLabel("[trenner] : Fügt an der entsprechenden Stelle eine Trennlinie ein" & @CRLF & " muss allein in einer Zeile stehen!!", 35, 60, 330, 40)
GUICtrlCreateLabel("Zeilenumbrüche und die meisten Umlaute (ä, ö, ü, ß) werden automatisch in die entsprechenden HTML-Codes umgewandelt.", 35, 100, 330, 40)
GUICtrlCreateLabel("Es können sämtliche HTML-Tags verwendet werden", 35, 140, 330, 20)

GUICtrlCreateTabItem("Über")
GUICtrlCreateLabel("Version : 0.2", 35, 60, 330, 20)
GUICtrlCreateLabel("Autor : Stefan Thomas", 35, 80, 330, 20)
GUICtrlCreateLabel("E-mail : stefan.thomas@famthomas.net", 35, 100, 330, 20)
GUICtrlCreateLabel("Dies ist die zweite, komplett überarbeitete, Version, in der einige Features, wie zum Beispiel das Laden von Dateien oder die Anzeige des Speicherzustands , noch nicht voll funktionsfähig sind.", 35, 150, 330, 50)

GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_ACTIVATE, "checkhelpfokus")
EndFunc

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

Func checkhelpfokus($GUIhwnd, $WMID, $wparam, $iparam)
If not $wparam == 0 Then
HotKeySet("{ESC}", "hclose")
Else
HotKeySet("{ESC}")
EndIf
EndFunc

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

Func hclose()
GUIDelete($hgui)
$help = False
EndFunc

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

#endregion Hilfe
#endregion Funktionen

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

inventor

Ist es auch illegal, wenn ich meine eigenen .exen in den Quellcode dekompilieren will?

inventor

afaik ist .dll im prinzip das gleiche Format wie eine .exe, nur dass ihr der automatisch ausgeführte teil fehlt und sie für mehrere programme verwendet werden kann

inventor

wann kann man eig mit der Version 0.85 rechnen?
die müsste doch ein richtiger meilenstein sein, was man so an bugreports und neuen features liest

inventor

wohl eher 70cm
Danke, jetzt funzt es

MFG inventor

inventor

du musst sie oben trotzdem noch mit dim,local oder global deklarieren

ist sowieso "ordenlicher" wenn man Variablen extra Deklariert, obs nun in AutoIt nötig ist, oder nicht

inventor

Moin,
ich hab folgendes Problem:
Ich hab ein Edit-Control, in das ein mehrzeiliger Text eingegeben wird, der dann von meinem Programm in html "übersetzt" wird.
Dabei will ich den Text Zeilenweise verarbeiten, aber

[autoit]

StringSplit ()

[/autoit]

gibt mir nur Müll zurück.
Was mache ich falsch, bzw. wie krige ich es hin, dass ich ein Array habe, in dem in $array[0] die Eröße und in den anderen Elementen jeweils eine Zeile, gefoglt von einem @CRLF stehen habe?

Hier noch mein Quelltext:

Quelltext

[autoit]

$savedtext = GUICtrlRead($edit)
$savedtext = StringSplit($savedtext, @CRLF)
For $i = 1 To $savedtext[0] Step 1
$savedtext[$i] = StringReplace($savedtext[$i], "ä", "ä")
$savedtext[$i] = StringReplace($savedtext[$i], "Ä", "Ä")
$savedtext[$i] = StringReplace($savedtext[$i], "ü", "ü")
$savedtext[$i] = StringReplace($savedtext[$i], "Ü", "Ü")
$savedtext[$i] = StringReplace($savedtext[$i], "ö", "ö")
$savedtext[$i] = StringReplace($savedtext[$i], "Ö", "Ö")
$savedtext[$i] = StringReplace($savedtext[$i], "ß", "ß")
$savedtext[$i] = StringReplace($savedtext[$i], '"', """)
$savedtext[$i] = StringReplace($savedtext[$i], "&", "&")
If StringInStr($savedtext[$i], "[line]") Then
$savedtext[$i] = StringReplace($savedtext[$i], "[line]", '<hr class="trenner">'&@CRLF&' ')
Else
$savedtext[$i] = StringReplace($savedtext[$i], @CRLF, "<br>"&@CRLF&' ')
EndIf
$savedwrite = $savedwrite&$savedtext[$i]
Next
write($savedwrite)

[/autoit]

Habs auch schon mitregulären Ausdrücken und StringRegExpReplace versucht, aber es hat alles nicht funktioniert

inventor

ja, das geht, danke!

inventor

Das is mein code:
(für Herzatacken u.ä. wird keine Haftung übernommen )

Spoiler anzeigen

[autoit]

#cs Informationen --------------------------------------------------------------

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

AutoIt Version: 3.3.6.1
Author: Stefan Thomas

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

Script Function:
Skript, zur anzeige und scpeicherung eines 14/1 Billiardspiels, sowie der Zeitkontrolle
#ce Informationen --------------------------------------------------------------

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

#region Includes (möglich gebraucht)

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

#include <Constants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

#endregion Includes
#region Optionen

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

Opt("MustDeclareVars", 1)
Opt("TrayAutoPause", 0)
Opt("GUIOnEventMode", 1)
Opt("TrayOnEventMode", 1)
Opt("TrayIconDebug", 0)
Opt("GUICloseOnESC", 0)

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

#endregion Optionen

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

#region Variablen

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

Dim $GUI ;ID des Hauptfensters

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

Dim $sound1
If FileExists(@ScriptDir & "\Ton1.wav") Then
$sound1 = @ScriptDir & "\Ton1.wav"
ElseIf FileExists(@ScriptDir & "\Ton1.mp3") Then
$sound1 = @ScriptDir & "\Ton1.mp3"
ElseIf FileExists(@WindowsDir & "\Media\ding.wav") Then
$sound1 = @WindowsDir & "\Media\ding.wav"
EndIf
Dim $sound2
If FileExists(@ScriptDir & "\Ton2.wav") Then
$sound2 = @ScriptDir & "\Ton2.wav"
ElseIf FileExists(@ScriptDir & "\Ton2.mp3") Then
$sound2 = @ScriptDir & "\Ton2.mp3"
ElseIf FileExists(@WindowsDir & "\Media\Windows XP-kritischer Fehler.wav") Then
$sound2 = @WindowsDir & "\Media\Windows XP-kritischer Fehler.wav"
ElseIf FileExists(@WindowsDir & "\Media\chord.wav") Then
$sound2 = @WindowsDir & "\Media\chord.wav"
EndIf

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

Dim $mendat
Dim $menend
Dim $menopt
Dim $meneinst
Dim $menhelp
Dim $menuber
Dim $prog
Dim $s1lab[4]
Dim $s2lab[4]
Dim $ulab[3]
Dim $picid[3]
Dim $name1 = "Spielername 1"
Dim $name2 = "Spielername 2"
Dim $zmode = False
Dim $fok = 2
Dim $fokid
Dim $keystate = False
Dim $_zmode
Dim $childstart

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

Dim $pic1
If FileExists(@ScriptDir & "\bild1.jpg") Then
$pic1 = @ScriptDir & "\bild1.jpg"
ElseIf FileExists(@ScriptDir & "\bild1.bmp") Then
$pic1 = @ScriptDir & "\bild1.bmp"
ElseIf FileExists(@ScriptDir & "\bild1.gif") Then
$pic1 = @ScriptDir & "\bild1.gif"
EndIf
Dim $pic2
If FileExists(@ScriptDir & "\bild2.jpg") Then
$pic2 = @ScriptDir & "\bild2.jpg"
ElseIf FileExists(@ScriptDir & "\bild2.bmp") Then
$pic2 = @ScriptDir & "\bild2.bmp"
ElseIf FileExists(@ScriptDir & "\bild2.gif") Then
$pic2 = @ScriptDir & "\bild2.gif"
EndIf
Dim $punkte1 = 0
Dim $punkte2 = 0

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

Dim $zeit = 35

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

Dim $ogui
Dim $olab[11]
Dim $oin[11]
Dim $obutt[2]

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

Dim $hgui
#endregion Variablen
#region Erstellen der GUI

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

$GUI = GUICreate("Billiard Spielverwalter 14/1", 900, 600, -1, -1, $WS_MAXIMIZEBOX + $WS_MINIMIZEBOX)
GUISetOnEvent($GUI_EVENT_CLOSE, "pclose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "minimize")
GUISetOnEvent($GUI_EVENT_RESTORE, "restore")
GUISetBkColor(0x002000, $GUI)
GUICtrlSetDefColor(0xFFFFFF, $GUI)
GUISetFont(50)

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

;Menüleiste
$mendat = GUICtrlCreateMenu("Datei")
$menend = GUICtrlCreateMenuItem("Beenden [ALT+F4]", $mendat)
GUICtrlSetOnEvent($menend, "pclose")
$menopt = GUICtrlCreateMenu("Optionen")
$meneinst = GUICtrlCreateMenuItem("Einstellungen [Alt+O]", $menopt)
GUICtrlSetOnEvent($meneinst, "optionen")
$menhelp = GUICtrlCreateMenu("Hilfe")
$menuber = GUICtrlCreateMenuItem("Hilfe [F1]", $menhelp)
GUICtrlSetOnEvent($menuber, "help")

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

;Spieler 1
$s1lab[1] = GUICtrlCreateLabel("Spieler 1", 87, 30, 126, 40)
GUICtrlSetFont($s1lab[1], 25)
$picid[1] = GUICtrlCreatePic($pic1, 50, 100, 200, 250)
$s1lab[2] = GUICtrlCreateLabel($name1, 15, 390, 270, 50, $SS_CENTER)
GUICtrlSetFont($s1lab[2], 25)
$s1lab[3] = GUICtrlCreateInput($punkte1, 75, 460, 170, 65, $SS_CENTER)
GUICtrlSetColor($s1lab[3], 0x000000)
;Label ( $punkte1, 75, 460, 150, 65, $SS_CENTER)
;Uhr
$ulab[1] = GUICtrlCreateLabel($zeit, 300 + 50, 120, 200, 160)
GUICtrlSetFont($ulab[1], 125)
$prog = GUICtrlCreateProgress(300 - 20, 325, 340, 45)
GUICtrlSetData($prog, $zeit * (5 / 3))

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

;Spieler 2
$s2lab[1] = GUICtrlCreateLabel("Spieler 2", 600 + 87, 30, 126, 40)
GUICtrlSetFont($s2lab[1], 25)
$picid[2] = GUICtrlCreatePic($pic2, 600 + 50, 100, 200, 250)
$s2lab[2] = GUICtrlCreateLabel($name2, 600 + 15, 390, 270, 50, $SS_CENTER)
GUICtrlSetFont($s2lab[2], 25)
$s2lab[3] = GUICtrlCreateInput($punkte1, 600 + 75, 460, 170, 65, $SS_CENTER)
GUICtrlSetColor($s2lab[3], 0x000000)

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

#endregion Erstellen der GUI
#endregion

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

#region Hauptfunktion

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

keystate()

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

GUISetState(@SW_SHOW)

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

change()

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

;optionen ()

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

While 1
Sleep(999)
If $zmode = True Then
If $zeit > 0 Then
zeitdekr()
EndIf
EndIf
WEnd

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

#endregion Hauptfunktion
#endregion

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

#region Funktionen

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

Func pclose()
GUIDelete($GUI)
Exit
EndFunc

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

Func minimize()
GUISetState(@SW_MINIMIZE)
EndFunc

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

Func restore()
GUISetState(@SW_RESTORE)
EndFunc

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

Func keystate()
If $keystate = False Then
HotKeySet("{Enter}", "startstop")
HotKeySet("{+}", "_add")
HotKeySet("{NUMPADADD}", "_add")
HotKeySet("{TAB}", "change")
HotKeySet("{space}", "reset")
HotKeySet("^o", "optionen")
HotKeySet("{F1}", "help")
HotKeySet("^h", "help")
;$keystate = True
ElseIf $keystate = True Then
HotKeySet("{Enter}")
HotKeySet("{+}")
HotKeySet("{NUMPADADD}")
HotKeySet("{TAB}")
HotKeySet("{space}")
HotKeySet("^o")
HotKeySet("{F1}")
HotKeySet("^h")
;$keystate = False
EndIf
If $keystate = True Then
$keystate = False
ElseIf $keystate = False Then
$keystate = True
EndIf

EndFunc

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

Func zeitdekr()
;If $zeit>0 Then
$zeit = $zeit - 1
GUICtrlSetData($prog, $zeit * (5 / 3))
GUICtrlSetData($ulab[1], $zeit)
;EndIf
If $zeit = 10 Then
SoundPlay($sound1, 0)
ElseIf $zeit <= 5 And $zeit > 0 Then
SoundPlay($sound1, 0)
ElseIf $zeit = 0 Then
SoundPlay($sound2, 0)
EndIf
EndFunc

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

Func childtime($childstart)
$_zmode = $zmode
If $childstart = True Then
$zmode = False
ElseIf $childstart = False Then
$zmode = $_zmode
EndIf
EndFunc

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

Func reset()
$zeit = 36
GUICtrlSetData($ulab[1], 35)
GUICtrlSetData($prog, 35 * (5 / 3))
EndFunc

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

Func _add()
$zeit = $zeit + 25
GUICtrlSetData($ulab[1], $zeit)
GUICtrlSetData($prog, $zeit * (5 / 3))
EndFunc

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

Func startstop()
If $zmode = True Then
$zmode = False
ElseIf $zmode = False Then
$zmode = True
EndIf
EndFunc

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

Func change()
If $fok = 2 Then
GUICtrlDelete($fokid)
$fokid = GUICtrlCreateGroup("", 25, -20, 250, 560)
GUICtrlSetState($s1lab[3], $GUI_FOCUS)
$fok = 1
ElseIf $fok = 1 Then
GUICtrlDelete($fokid)
$fokid = GUICtrlCreateGroup("", 600 + 25, -20, 250, 560)
GUICtrlSetState($s2lab[3], $GUI_FOCUS)
$fok = 2
EndIf
reset()
EndFunc

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

#region Optionen

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

Func Optionen()
keystate()
childtime(True)
$ogui = GUICreate("Billiard Spielverwalter 14/1 - Optionen", 600, 260, -1, -1, $WS_CHILD + $WS_MINIMIZEBOX + $WS_CAPTION + $WS_POPUP + $WS_SYSMENU, -1, $GUI)
GUISetOnEvent($GUI_EVENT_CLOSE, "Oclose")

;Dim $

GUICtrlCreateGroup("Spieler1", 20, 20, 560, 95)
GUICtrlCreateLabel("Spielername:", 30, 47, 60, 20)
$oin[1] = GUICtrlCreateInput($name1, 95, 45, 200, 20)
GUICtrlCreateLabel("Bild:", 30, 77, 30, 20)
$oin[2] = GUICtrlCreateInput($pic1, 95, 75, 365, 20)
$obutt[0] = GUICtrlCreateButton("Durchsuchen", 470, 75, 100, 20)
GUICtrlSetOnEvent($obutt[0], "Obutt1")
GUICtrlCreateGroup("Spieler2", 20, 120 + 20, 560, 95)
GUICtrlCreateLabel("Spielername:", 30, 120 + 47, 60, 20)
$oin[3] = GUICtrlCreateInput($name2, 95, 120 + 45, 200, 20)
GUICtrlCreateLabel("Bild:", 30, 120 + 77, 30, 20)
$oin[4] = GUICtrlCreateInput($pic2, 95, 120 + 75, 365, 20)
$obutt[1] = GUICtrlCreateButton("Durchsuchen", 470, 120 + 75, 100, 20)
GUICtrlSetOnEvent($obutt[1], "Obutt2")
GUISetState(@SW_SHOW)
EndFunc

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

Func Obutt1()
$pic1 = FileOpenDialog("Billiard Spieleverwalter 14/1 - Spieler 1 Foto", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Bilder (*.bmp;*.jpg;*.gif)", 1, "bild1.jpg")
GUICtrlSetData($oin[2], $pic1)
EndFunc

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

Func Obutt2()
$pic2 = FileOpenDialog("Billiard Spieleverwalter 14/1 - Spieler 2 Foto", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Bilder (*.bmp;*.jpg;*.gif)", 1, "bild2.jpg")
GUICtrlSetData($oin[4], $pic2)
EndFunc

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

Func Oclose()
$name1 = GUICtrlRead($oin[1])
GUICtrlSetData($s1lab[2], $name1)
$pic1 = GUICtrlRead($oin[2])
GUICtrlSetImage($picid[1], $pic1)
$name2 = GUICtrlRead($oin[3])
GUICtrlSetData($s2lab[2], $name2)
$pic2 = GUICtrlRead($oin[4])
GUICtrlSetImage($picid[2], $pic2)
keystate()
childtime(False)
GUIDelete($ogui)
EndFunc

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

#endregion Optionen

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

#region Hilfe

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

Func help()
keystate()
childtime(True)
$hgui = GUICreate("Billiard Spielverwalter 14/1 - Hilfe", 400, 450, -1, -1, $WS_CHILD + $WS_MINIMIZEBOX + $WS_CAPTION + $WS_POPUP + $WS_SYSMENU, -1, $GUI)
GUISetOnEvent($GUI_EVENT_CLOSE, "hclose")
GUICtrlCreateTab(20, 20, 360, 410)
GUICtrlCreateTabItem("Generell")
GUICtrlCreateLabel("Billiard Spielverwalter 14/1 ist eine kostenlose Anwendung zum Anzeigen des Punktestandes in einem 14/1 Spiel mit zwei Personen, sowie dem Anzeigen des Timeouts für einen Stoß.", 35, 50, 330, 40)
GUICtrlCreateTabItem("Über")
GUICtrlCreateLabel("Version : 1.0", 35, 50, -1, 20)
GUICtrlCreateLabel("Autor : Stefan Thomas", 35, 70, 175, 20)
GUICtrlCreateLabel("E-mail : stefan.thomas@famthomas.net", 35, 90, 200, 20)
GUICtrlCreateTabItem("Spielerdaten")
GUICtrlCreateLabel("1: Spielernamen", 35, 50, 135, 20)
GUICtrlCreateLabel("Unter 'Optionen' können zwei Spielernamen angegeben werden, diese werden bei Verlassen des 'Optionen'-Dialoges automatisch übernommen.", 35, 70, 330, 50)
GUICtrlCreateLabel("2: Spieler-Bilder:", 35, 125, 330, 20)
GUICtrlCreateLabel("Im 'Optionen'-Dialog können zwei Bilder angegeben werden, diese müssen als *.bmp, *.jpg oder als nichtanimierts *.gif abgespeichert sein." & @CRLF & "Alternativ können die Bilder mit den Name 'bild1' und 'bild2' in den oben genannten Dateiarten im Verzeichnis in dem dieses Programm läuft abgespeichert werden. Dies muss jedoch vor dem Start des Programms geschehen.", 35, 145, 330, 95)
GUICtrlCreateTabItem("Signaltöne")
GUICtrlCreateLabel("1: Noch 10, bzw weniger als 5 Sekunden für den aktuellen Stoß:", 35, 50, 330, 20)
GUICtrlCreateLabel("Wenn nur noch 10 Sekunden für den aktuellen stoß übrig sind, sowie wenn weniger als 5 sekunden für den aktuellen Stoß übrig sind , wird ein Signalton abgespielt. Dies ist Standartmäßig ein Systemton, kann jedoch durch das Speichern der gewünschten Tondatei im Verzeichnis, in dem dieses Programm läuft, geändert werden." & @CRLF & " Der Ton muss als .wav oder .mp3 mit den Namen 'Ton1' (Bei 10 bzw. 5 oder weniger Sekunden)vor Programmstart gespeichert werden.", 35, 70, 330, 95)
GUICtrlCreateLabel("2: Zeit vorbei:", 35, 175, 330, 20)
GUICtrlCreateLabel("Wenn die Zeit vorbei ist, wird ein anderer Ton abgespielt, ebenfalls normalerweise ein Systemton. Wenn eine '.wav' oder '.mp3' Datei des Namens 'ton2' in dem Verzeichnis, in dem dieses Programm läuft, existiert, wird diese verwendet.", 35, 195, 330, 55)
GUICtrlCreateTabItem("Tastaturkürzel")
GUICtrlCreateLabel("Optionen : 'STRG'+'O'", 35, 60, 330, 20)
GUICtrlCreateLabel("Hilfe : 'F1' oder 'STRG'+'H'", 35, 80, 330, 20)
GUICtrlCreateLabel("Zeit zurücksetzen : 'Leertaste'", 35, 100, 330, 20)
GUICtrlCreateLabel("25s addieren : '+'", 35, 120, 330, 20)
GUICtrlCreateLabel("Spielerwechsel : 'Tab'", 35, 140, 330, 20)
GUICtrlCreateLabel(" Uhr starten/stoppen : 'Enter'", 35, 160, 330, 20)

GUISetState(@SW_SHOW)
EndFunc

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

Func hclose()
childtime(False)
keystate()
GUIDelete($hgui)
EndFunc

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

#endregion Hilfe

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

#endregion Funktionen

[/autoit]

inventor

moin,
ich habe folgendes Problem:
Ich habe eine Gui, in der regelmäßig ein Group-Control gelöscht und an anderer Stelle erstellt wird, wenn ich aber die Fenstergröße ändere, wird das Control wieder an der ürspünglichen, jetzt aber falschen Position erstellt.
Ich bin deshalb auf der Suche nach einer Möglichkeit, die Größen/Positionsänderung zu berechnen oder für einzelne Controls eine Fenstergrößenänderung zu simulieren, um so das Resizing auszulösen.

Ich hoffe ihr habt mein problem verstanden und könnt mir helfen, nachdem google und die Forumssuche versagt haben.

Mfg inventor

PS:
wenn nötig kann ich auch den code noch posten, aber den anblick würde ich euch gerne ersparen

inventor

Ich würde es so:

[autoit]

$i = $start
Do
; deine anweisungen
$i = $i+$step
Until $i > $stop

[/autoit]

Oder so:

[autoit]

$i = $start
While $i < $stop
; deine anweisungen
$i = $i + $step
WEnd

[/autoit]

machen,
je nach dem, ob die schleife mindestens einmal durchlaufen werden soll, oder nicht

inventor

hast du schon überprüft, ob die ini standardkonform is?
wenn sie es nicht ist, kann des zu einem abbruch des lesevorgang führen

inventor

moin mal wieder
ich denke ich werd jezt dauerhaft auf ISN umsteigen, des is wirklich super. aber ein bug is mir noch aufgefallen:
wenn ich eine Zeile mit Tab einrücke, und dann eine neue Zeile mache, wird die neue Zeile um so viele Tabs
eingerückt, wie in der oberen Zeile insgesamt sind, statt so viele, wie es bis zum ersten Buchstaben sind.

Außerdem fände ich es praktisch, wenn auch lokale variablen angezeigt würden und man mit STRG + TAB bzw STRG + SHIFT + TAB zwischen den Dateireitern wechseln könnte

MFG
inventor

inventor

erklärung zum oben genannten Bug:

Wenn ich in den Programmeinstellungen, Tab "Programmpfade", auf "..." klicke, erscheint ein Ordner suchen Dialog, wenn ich in dem Dialog links unten auf neuen ordner erstellen klicke, wird der ordner nicht in der Liste oben angezeigt, wenn ich in den explorer wechsle aber schon.
Der Ordner wird mit dem Name "Neuer Ordner (x)" angelegt, aber nicht im Dialog, in dem er erstellt wurde angezeigt, erst wenn ich den Ordner Suchen Dialog verlasse und erneut aufrufe, wird der erstellte Ordner angezeigt
(ist das gleiche bei mehreren Ordnern)

MFG
inventor

inventor

mir ist noch ein bug aufgefallen:
wenn ich unter win xp (sonst aktuell) in den datei öffnen /speichern dialogen einen neuen ordner erstelle, wird dieser erstellt, aber nicht angezeigt, erst dann, wenn ich den dialog neu öffne.
Die AutoIt Funktionen FileOpenDialog und FileSaveDialog Funktionieren bei mir aber einwandfrei
(falls du die verwendest
sonst is es aber wirklich richtig gut, auch wenn mir beim großteil noch nich ganz klar is, wie du das gemacht hast.
ein beeindrukter
inventor

Beiträge von inventor

Fehler abfangen

Fehler abfangen

daten auslesen und an Google Maps übergeben

Vergleichsfehler: 1=4 ?!?

Vergleichsfehler: 1=4 ?!?

Vergleichsfehler: 1=4 ?!?

.exe zurück in .au3 umwandeln?

eigene *.dll mit autoit schreiben??

ISN AutoIt Studio

mehrzeilige Variable nach @CRLF Splitten

Kleines Problem bei Funktionsaufruf

mehrzeilige Variable nach @CRLF Splitten

Position/Größe eines Group-Controls abhängig vom Resizing berechnen

Position/Größe eines Group-Controls abhängig vom Resizing berechnen

Position/Größe eines Group-Controls abhängig vom Resizing berechnen

Frage zu Schleifen Step aber bei Stop-Wert halten ..?

IniReadSectionNames unvollständig

ISN AutoIt Studio

ISN AutoIt Studio

ISN AutoIt Studio