ManageIncludes - Includeorganisation in SciTE mit Lua-Skript

**Tweaky**

Schäm Dich BugFix

Mein vorheriges Bsp funktioniert nun.

Habe allerdings nun noch was anderes entdeckt.

Stehen die Includes nicht in der ersten Zeile, so wird immer beim starten deines Tools nach dem letzten Include eine Leerzeile eingefügt (zum testen am Anfang eine Leerzeile einfügen)
Bsp:

Spoiler anzeigen

[autoit]

#Include <Date.au3>
#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>

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

Global $iMemo

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

_Main()

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

Func _Main()
Local $tTime

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

; Erstellt die GUI
GUICreate("Zeit", 400, 300)
$iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()

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

; Zeigt Systemdatum und -zeit
$tTime = _Date_Time_GetSystemTime()
MemoWrite("Systemdatum/-zeit : " & _Date_Time_SystemTimeToDateTimeStr($tTime))
MemoWrite("Systemdatum/-zeit : " & _Date_Time_SystemTimeToDateTimeStr($tTime, 1))

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

; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

EndFunc ;==>_Main

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

; Schreibt eine Zeile in das Memo Control
Func MemoWrite($sMessage)
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite

[/autoit]

**BugFix**

So Tweaky, nun sollte das auch passen.
Aber wenn du mehr entdeckst - immer her damit.

**Tweaky**

Test der 0.17

OK, das mit dem einfügen einer Leerzeile funktioniert nun.
Aber:
Nun wird bei jedem starten deines Tools immer die oberste Zeile gelöscht (egal ob diese leer oder mit Inhalt ist)
Testen kannst du es mit dem vorherigen Beispiel.

Bei folgendem Bsp klappt auch was nicht:

Spoiler anzeigen

[autoit]

Global $iMemo

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

_Main()

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

Func _Main()
Local $tTime

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

; Erstellt die GUI
GUICreate("Zeit", 400, 300)
$iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()

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

; Zeigt Systemdatum und -zeit
$tTime = _Date_Time_GetSystemTime()
MemoWrite("Systemdatum/-zeit : " & _Date_Time_SystemTimeToDateTimeStr($tTime))
MemoWrite("Systemdatum/-zeit : " & _Date_Time_SystemTimeToDateTimeStr($tTime, 1))

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

; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

EndFunc ;==>_Main

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

; Schreibt eine Zeile in das Memo Control
Func MemoWrite($sMessage)
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite

[/autoit]

Nach einmal starten deines Tools sieht das Skript so aus

Spoiler anzeigen

[autoit]

#Include <Date.au3>
#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>Global $iMemo

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

_Main()

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

Func _Main()
Local $tTime

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

; Erstellt die GUI
GUICreate("Zeit", 400, 300)
$iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()

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

; Zeigt Systemdatum und -zeit
$tTime = _Date_Time_GetSystemTime()
MemoWrite("Systemdatum/-zeit : " & _Date_Time_SystemTimeToDateTimeStr($tTime))
MemoWrite("Systemdatum/-zeit : " & _Date_Time_SystemTimeToDateTimeStr($tTime, 1))

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

; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

EndFunc ;==>_Main

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

; Schreibt eine Zeile in das Memo Control
Func MemoWrite($sMessage)
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite

[/autoit]

Folgendes Bsp funktioniert auch nicht (Am Anfang 3 Leerzeilen einfügen)

Spoiler anzeigen

[autoit]

Dim $a[10][2]

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

_Array2DAdd($a, "X|Y")

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

_ArrayDisplay($a)

[/autoit]

Nach dem 1. Start siehts so aus (funktioniert)

Spoiler anzeigen

[autoit]

#Include <ArrayMore.au3>

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

Dim $a[10][2]

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

_Array2DAdd($a, "X|Y")

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

_ArrayDisplay($a)

[/autoit]

Nach dem 2. Start siehts so aus (funktioniert, jedoch ist array.au3 unnötig)

Spoiler anzeigen

[autoit]

#Include <Array.au3>
#Include <ArrayMore.au3>

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

Dim $a[10][2]

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

_Array2DAdd($a, "X|Y")

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

_ArrayDisplay($a)

[/autoit]

**BugFix**

Hmm, ich merke schon, da habe ich wohl einiges verschlimmbessert. :wacko:
Naja, das nächste WE kommt bestimmt, dass ich mich nochmal intensiv reinknien kann.

**Tweaky**

Hi BugFix,
ist das Projekt auf Eis gelegt oder wagst du dich nochmal dran

**BugFix**

Ich habe gerade soviel Baustellen offen, dass ich dieses hier etwas vertagt habe. Ist aber nicht vergessen und wird hoffentlich in Kürze nachgebessert.
Ich grübel gerade noch an einer effizienten Methode um auf Updates automatisch reagieren zu können. Bei Standard-Includes ist das kein Problem, da gibt es ja eine AutoIt-Version, die sich abfragen läßt. Aber von allen Eigenen Includes evtl. Änderungen bei jedem Start zu prüfen bzw. neue Dateien einzulesen erscheint mir wenig sinnvoll. Oder ich verlege das ins SciTE-Startup, sodass es schon vor dem Aufruf der Funktion erledigt wird.
Naja, ich finde schon eine Lösung - kann halt nur noch etwas dauern.

**Tweaky**

OK, dann weiß ich Bescheid.
Danke