OrganizeIncludes

**Tweaky**

OK danke Xeno,
mal schauen was draus wird

**Xenobiologist**

HI,

es ist ein Fehler in ControlGetText. Dieser wird zu nächsten beta angepaßt, dann gucke ich mal ob es wieder läuft und falls nicht passe ich es an.

So long,

Mega

**Xenobiologist**

HI,

mit der neuen beta geht es wieder.

So long,

Mega

**Tweaky**

Hi xeno,
leider musste ich eben feststellen, dass dein Scipt nicht mehr funktioniert.
Vorher habe ich AutoIt 3.2.8.0 und Scite vom 18.06.2007 verwendet.
Dann habe ich AutoIt 3.2.8.1 verwendet. Dann funktionierte es immer noch.
Nun habe ich auf Scite vom 09.09.2007 upgedatet und nun funktioniert dein Script nicht mehr.
Es werden mir keine includes mehr angezeigt.
Egal mit welchem Script von mir ich es probiere.

Kannst du dir das bitte mal anschauen

Einfaches Bsp.

Spoiler anzeigen

[autoit]

Dim $array[5]

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

$array[1] = "hallo"
$array[2] = "hallo"
$array[3] = "hallo"
$array[3] = "hallo"

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

_ArrayDisplay($array)

[/autoit]

Hier zeigt er mit kein Include zum einfügen an

Danke :comp1:

EDIT: Hast du es dir mal angschaut???

**Xenobiologist**

Hi,

bei mir funktioniert es noch einwandfrei. Hast du es auch korrekt eingerichtet?

Existiert die SciteUser.properties mit den Anpassungen?

So long,

Mega

**Tweaky**

Hi,
habe nichts geändert.

AutoIt und Scite wird bei mir über ein Script installiert.
Dadurch werden auch alle Einstellungen vorgenommen.

So sieht die Datei aus

Code

# 36 OrganizeIncludes
command.36.*.au3="$(autoit3dir)\autoit3.exe" "$(SciteDefaultHome)\OrganizeIncludes\OrganizeIncludes2.5.au3" "$(FilePath)"
command.name.36.*.au3=OrganizeIncludes
command.save.before.36.*.au3=1
command.is.filter.36.*.au3=1
command.shortcut.36.*.au3=Ctrl+Shift+Alt+I

Habe in meinem Installationsscript nichts geändert, außer eben die neue Scite Version aktualisiert.

Die GUI deines Scriptes wird geladen nur eben keine Includes angezeigt

**Xenobiologist**

Hi,

komisch. Ich nutze gerade diese Version. Wenn ich wieder Zeit finde, dann mach ich sie auch fertig.

Spoiler anzeigen

[autoit]

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.2.7.0
; Author: Thorsten Meger
;
; Script Function:
; Organize Includes Version 2.8
;
; ----------------------------------------------------------------------------
;Opt("TrayIconDebug", 1)
;[Includes]
#include<Array.au3>
#include<File.au3>
#include<GuiListView.au3>
#include<GuiStatusBar.au3>
#include<GUIConstants.au3>
Global $start_T = TimerInit()
#cs
* Prüfung, dass ein File sich nicht selbst includen darf! - DONE
* Prüfung der includes in den include files! - TODO
* RegExp Prüfung auf Wortgrenze beschränken bei Funktionen - DONE
* Auskommentierungsmöglichkeit für includes (wird analysiert aber nicht gelöscht) - DONE
* Constants.au3 mit aufnehmen für RUN Befehle - DONE
* Möglichkeit zusätzliche UDF Pfade anzugeben - DONE
* Refresh Möglichkeit - DONE
* GUI Include Pathes füllen und leeren können - TODO
#ce

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

#cs TEST
Global $MonItText, $AutoItBetaexePath
$MonItText = StringReplace($MonItText,"#include <dllcallback.au3>","#include " & "'" & $AutoItBetaexePath & "\Include\dllcallback.au3'")

#ce

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

; ScriptVersion
Global $scriptVersion = 'Version 2.8'
; NormalVersion
Global $InstallPath = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir')
Global $InstallVersion = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'Version')
; BetaVersion
Global $betaInstallPath = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'betaInstallDir')
Global $betaInstallVersion = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'betaVersion')

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

; Variables
Dim $includesPath[1]
If $InstallPath <> '' Then _ArrayAdd($includesPath, $InstallPath & '\Include\')
If $betaInstallPath <> '' Then _ArrayAdd($includesPath, $betaInstallPath & '\Include\')
Global $includesIni = @ScriptDir & '\includes.ini'
Global $source = '', $sourceAnalyse = '', $exit_B = 0, $organize_B = 0, $openIni_B = 0, $autoitVersion_I = 0, $betaVersion_I = 0, $filename_I = 0
Global $includes_LV = 0, $FileName = '', $GUI = 0, $status_SB = 0, $checkIncludes_B = 0, $ToBeIncluded[1], $B_DESCENDING = 0
Global $deleteIncludes_CB = 0, $copyToClipBoard_CB = 0, $delAll_R = 0, $delUnneeded_R = 0, $delNothing_R = 0, $keyword_I = 0
Global $placeAfterKeyWord_R = 0, $placeAtTop_R = 0, $green_A[1], $yellow_A[1], $red_A[1], $LV = 0, $count = 0, $silentMode_CB = 0
Global $parts_SB[3] = [80, 526, -1], $silentMode = True, $renewIni_B = 0, $addIncludePath_B = 0, $delIncludePath_B = 0, $restart_B = 0
Global $autoRestart_CB = 0, $udf_LV = 0
Global $text_SB[3] = [@TAB & $scriptVersion, @TAB & 'Organize includes', '']
Global $status_A[4] = ['correctly included', 'needed include', 'not needed', 'include itself?']
; Read the seetings from the ini file
Global $neededAndIncluded = IniRead($includesIni, 'Options', 'Green', '0x80FF80')
Global $neededNotIncluded = IniRead($includesIni, 'Options', 'Yellow', '0xFFFF80')
Global $notNeededButIncluded = IniRead($includesIni, 'Options', 'Red', '0xEF3D4A')
Global $selfInclude = IniRead($includesIni, 'Options', 'Selfinclude', '0x0000F9')
Global $keyword = IniRead($includesIni, 'Options', 'Keyword', ';[Includes]')

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

; Operating sequence
_createGUI()
_start()
GUICtrlSetData($autoitVersion_I, $InstallVersion)
GUICtrlSetData($betaVersion_I, $betaInstallVersion)

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

; Setting silent off when 1 parameter = silentOff
; Silent mode = no GUI and organize includes automatically with settings from ini file
If $cmdLine[0] > 0 And $cmdLine[1] = 'silentOff' Then $silentMode = False
If GUICtrlRead($silentMode_CB) = $GUI_UNCHECKED Or $silentMode = False Then
GUISetState(@SW_SHOW)
Else
_organize()
Exit (0)
EndIf

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

_GUICtrlStatusBarSetText($status_SB, @TAB & Round(TimerDiff($start_T) / 1000, 4) & ' sec', 2)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit (0)
Case $exit_B
_exit()
Exit (0)
Case $organize_B
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Script started ... organizing includes ... ', 1)
_organize()
If GUICtrlRead($autoRestart_CB) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'AutoRestart', 1)
_restart()
Else
IniWrite($includesIni, 'Options', 'AutoRestart', 0)
EndIf
Case $openIni_B
If FileExists($includesIni) Then
ShellExecute($includesIni)
_GUICtrlStatusBarSetText($status_SB, @TAB & 'includes.ini opened', 1)
Else
_GUICtrlStatusBarSetText($status_SB, @TAB & 'No ini file found', 1)
Sleep(1000)
$re = MsgBox(36, 'Create new ini file', 'Do you want to create a new ini file?', 15)
If $re = -1 Or $re = 7 Then
_GUICtrlStatusBarSetText($status_SB, @TAB & 'No ini file available', 1)
ElseIf $re = 6 Then
_prepareOrganizeIncludes()
_GUICtrlStatusBarSetText($status_SB, @TAB & 'New ini file created', 1)
Sleep(2000)
If FileExists($includesIni) Then ShellExecute($includesIni)
EndIf
EndIf
Case $renewIni_B
_renewIni()
Case $placeAfterKeyWord_R
GUICtrlSetState($keyword_I, $GUI_SHOW)
GUICtrlSetState($keyword_I, $GUI_FOCUS)
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Enter your keyword ...', 1)
Case $placeAtTop_R
GUICtrlSetState($keyword_I, $GUI_HIDE)
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Includes will be placed at top of your script', 1)
Case $copyToClipBoard_CB
If GUICtrlRead($copyToClipBoard_CB) = $GUI_CHECKED Then
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Copying includes to clipboard activated', 1)
Else
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Copying includes to clipboard deactivated', 1)
EndIf
Case $includes_LV
_sortLV()
Case $delAll_R
_GUICtrlStatusBarSetText($status_SB, @TAB & 'All includes will be removed', 1)
Case $delUnneeded_R
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Only the not needed includes will be removed', 1)
Case $delNothing_R
_GUICtrlStatusBarSetText($status_SB, @TAB & 'No includes will be removed', 1)
Case $addIncludePath_B
$path = FileSelectFolder('Choose a folder where "Organize includes" looks for your udfs', '\', 6, StringLeft(@ScriptDir, 3))
If $path <> '' Then
_GUICtrlStatusBarSetText($status_SB, @TAB & $path & ' added to include pathes', 1)
IniWrite($includesIni, 'IncludePath', $path, '')
Else
_GUICtrlStatusBarSetText($status_SB, @TAB & $path & ' Cancel - no paths added', 1)
EndIf
_renewIni()
GUICtrlCreateListViewItem($path & '\', $udf_LV)
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Ini-Update ready ...', 1)
Case $delIncludePath_B
If IniDelete($includesIni, 'IncludePath') Then _GUICtrlStatusBarSetText($status_SB, @TAB & 'Include pathes deleted', 1)
_renewIni()
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Ini-Update ready ...', 1)
Case $restart_B
_exit()
_restart()
Case $silentMode_CB
If GUICtrlRead($silentMode_CB) = $GUI_CHECKED Then
GUICtrlSetState($autoRestart_CB, $GUI_DISABLE)
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Silent Mode activated', 1)
Else
GUICtrlSetState($autoRestart_CB, $GUI_ENABLE)
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Silent Mode deactivated', 1)
EndIf
EndSwitch
WEnd

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

Func _deleteLinesForAnalyse()
Local $sourceLine_A = StringSplit($sourceAnalyse, @CR)

EndFunc ;==>_deleteLinesForAnalyse

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

; Start func gets the source and calls all other needed funcs.
Func _start()
If Not ProcessExists('SciTE.exe') Then Exit (0)
Opt('WinTitleMatchMode', 4)
WinActivate('classname=SciTEWindow')
WinWaitActive('classname=SciTEWindow')
$FileName = StringSplit(WinGetTitle(''), '\')
GUICtrlSetData($filename_I, StringLeft($FileName[UBound($FileName) - 1], StringInStr($FileName[UBound($FileName) - 1], '.au3') + 3))
$source = ControlGetText('classname=SciTEWindow', '', 350)
$sourceAnalyse = $source
; delete unnessary lines of code
If Not FileExists($includesIni) Then
_prepareOrganizeIncludes()
_setOptions()
EndIf
$ToBeIncluded = getIncludes()
_ArraySort($ToBeIncluded)
$re = setIncludes($ToBeIncluded)
;_selfInclude()
If $re = -2 Then _GUICtrlStatusBarSetText($status_SB, @TAB & 'No includes needed!', 1)
_setUDFs()
EndFunc ;==>_start

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

; Starting action (delete and/or insert)
Func _organize()
Local $sourceLine_A = StringSplit($source, @CR)
$sourceLine_A = _deleteIncludes($sourceLine_A)
$sourceLine_A = _insertIncludes($sourceLine_A)
ControlSetText('classname=SciTEWindow', '', 'Scintilla1', _ArrayToString($sourceLine_A, @CR, 1))
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Includes inserted', 1)
EndFunc ;==>_organize

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

; Insert includes into array of code lines
Func _insertIncludes($sourceLine_A)
Local $includes = ''
If GUICtrlRead($delAll_R) = $GUI_CHECKED Then $includes = _ArrayToString($green_A, @CR, 1)
$includes &= @CR & _ArrayToString($yellow_A, @CR, 1)
If StringLeft($includes, 1) = @CR Then $includes = StringTrimLeft($includes, 1)
If StringRight($includes, 1) = @CR Then $includes = StringTrimRight($includes, 1)
If Not $includes <> '' Then Return $sourceLine_A

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

If GUICtrlRead($placeAfterKeyWord_R) = $GUI_CHECKED Then
Local $keyword = GUICtrlRead($keyword_I)
For $i = 0 To UBound($sourceLine_A) - 1
If StringInStr($sourceLine_A[$i], $keyword, 2) Then
_ArrayInsert($sourceLine_A, $i + 1, $includes)
ExitLoop
EndIf
Next
Else
_ArrayInsert($sourceLine_A, 1, $includes)
EndIf
If GUICtrlRead($copyToClipBoard_CB) = $GUI_CHECKED Then
ClipPut('')
ClipPut($includes)
EndIf
Return $sourceLine_A
EndFunc ;==>_insertIncludes

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

; Delete includes from array of code lines
Func _deleteIncludes($sourceLine_A)
If GUICtrlRead($delAll_R) = $GUI_CHECKED Then
For $i = UBound($sourceLine_A) - 1 To 1 Step - 1
; Wenn ';' include dann lasse die Zeile aus
If StringRegExp($sourceLine_A[$i], '(?i)#include[ ]*<[ ]*(.*?\.au3)[ ]*>' , 0) = 1 And _
StringRegExp($sourceLine_A[$i], '(?i);.*[ ]*#include[ ]*<', 0) = 0 Then
_ArrayDelete($sourceLine_A, $i)
EndIf
Next
ElseIf GUICtrlRead($delUnneeded_R) = $GUI_CHECKED Then
For $ii = 1 To UBound($red_A) - 1
For $i = UBound($sourceLine_A) - 1 To 1 Step - 1
If StringRegExp($sourceLine_A[$i], '(?i)#include[ ]*<[ ]*(.*?' & $red_A[$ii] & ')[ ]*>', 0) = 1 And _
StringRegExp($sourceLine_A[$i], '(?i);.*[ ]*#include[ ]*<', 0) = 0 Then
_ArrayDelete($sourceLine_A, $i)
EndIf
Next
Next
EndIf
Return $sourceLine_A
EndFunc ;==>_deleteIncludes

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

Func setIncludes($ToBeIncluded)
If Not IsArray($ToBeIncluded) Then Return -1
_GUICtrlListViewSetItemCount($includes_LV, UBound($ToBeIncluded))
Dim $LV[150]
; Create a row for every include and set bk to green
For $i = 1 To UBound($ToBeIncluded) - 1
$LV[$count] = GUICtrlCreateListViewItem('#include<' & $ToBeIncluded[$i] & '>' & '|' & $status_A[0] , $includes_LV)
GUICtrlSetBkColor(-1, $neededAndIncluded)
$count += 1
; Is the needed include not in source code then change bk to yellow and delete entry from green array
If StringRegExp($source,'(?i)#include[ ]*<[ ]*' & $ToBeIncluded[$i] &'[ ]*>', 0) = 0 Or _
StringRegExp($source,'(?i);[ ]*#include[ ]*<[ ]*' & $ToBeIncluded[$i] &'[ ]*>', 0) = 1 Then
_GUICtrlListViewSetItemText($includes_LV, $i - 1, 1, $status_A[1])
GUICtrlSetBkColor(-1, $neededNotIncluded)
_ArrayAdd($yellow_A, $ToBeIncluded[$i])
_ArrayDelete($green_A, _ArraySearch($green_A, $ToBeIncluded[$i]))
EndIf
Next
; Find all includes in source code. Bk to red if they are not needed
$alreadyIncluded = StringRegExp($source,'(?i)#include[ ]*<[ ]*(.*?\.au3)[ ]*>', 3)
If Not @error Then
For $i = 0 To UBound($alreadyIncluded) - 1
If _ArraySearch($ToBeIncluded, $alreadyIncluded[$i]) = -1 Then
$LV[$count] = GUICtrlCreateListViewItem('#include<' & $alreadyIncluded[$i] & '>' & '|' & $status_A[2], $includes_LV)
GUICtrlSetBkColor(-1, $notNeededButIncluded)
$count += 1
_ArrayAdd($red_A, $alreadyIncluded[$i])
EndIf
Next
EndIf
For $i = 1 To UBound($green_A) - 1
$green_A[$i] = '#include<' & $green_A[$i] & '>'
Next
For $i = 1 To UBound($yellow_A) - 1
$yellow_A[$i] = '#include<' & $yellow_A[$i] & '>'
Next
If UBound($ToBeIncluded) = 1 Then Return -2
EndFunc ;==>setIncludes

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

; If version number (normal and beta) changed or ini file doesn't exist then create a new one with _prepareOrganizeIncludes()
; Search for needed includes
Func getIncludes()
If Not FileExists($includesIni) Or (IniRead($includesIni, 'Version', 'beta', 'Error') <> $betaInstallVersion) Or _
(IniRead($includesIni, 'Version', 'Normal', 'Error') <> $InstallVersion) Then _prepareOrganizeIncludes()
;Local $iniContent = IniReadSection($includesIni, 'Functions')
;If @error Then MsgBox(4096, '', 'Error occurred, probably no ini file.')
;_ArrayDisplay($iniContent)

; ############################## INIReadSection ########################## ausbauen oder die Erweiterung abwarten!!!!

Local $lines_A
If Not _FileReadToArray($includesIni, $lines_A) Then
MsgBox(4096, '', 'Error occurred, probably no ini file.')
Exit
EndIf

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

Local $iniContent[1][2]
Local $count = 1
For $i = 1 To $lines_A[0] - 1
If StringInStr($lines_A[$i], '.au3') Then
$re = StringSplit($lines_A[$i], '=')
ReDim $iniContent[$count + 1][2]
$iniContent[$count][0] = $re[1]
$iniContent[$count][1] = $re[2]
$count += 1
EndIf
Next
$iniContent[0][0] = UBound($iniContent) - 1

Local $Constants_A[3] = ['$STDIN_CHILD', '$STDOUT_CHILD', '$STDERR_CHILD']

For $i = 1 To $iniContent[0][0]
Local $functionsInAU3 = StringSplit($iniContent[$i][1], ';')
If @error Then
If StringRegExp($source, '(?i)' & $iniContent[$i][0] & '([ ]+|\()', 0) = 1 Then
_ArrayAdd($ToBeIncluded, $iniContent[$i][0])
ExitLoop
EndIf
EndIf
For $ii = 1 To UBound($functionsInAU3) - 1
If StringRegExp($source, '(?i)\b' & $functionsInAU3[$ii] & '\b([ ]+|\()', 0) = 1 Then
_ArrayAdd($ToBeIncluded, $iniContent[$i][0])
ExitLoop
EndIf
Next
Next
For $iii = 1 To UBound($Constants_A) - 1
If StringRegExp($source, '(?i)\' & $Constants_A[$iii], 0) = 1 And _
StringRegExp($source, "(?i)'\" & $Constants_A[$iii] & "'", 0) = 0 Then
_ArrayAdd($ToBeIncluded, 'Constants.au3')
ExitLoop
EndIf
Next
$green_A = $ToBeIncluded
Return $ToBeIncluded
EndFunc ;==>getIncludes

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

Func _setOptions()
; Version info
IniWrite($includesIni, 'Version', 'Beta', $betaInstallVersion)
IniWrite($includesIni, 'Version', 'Normal', $InstallVersion)
; Options
IniWrite($includesIni, 'Options', 'Green', '0x80FF80')
IniWrite($includesIni, 'Options', 'Yellow', '0xFFFF80')
IniWrite($includesIni, 'Options', 'Red', '0xEF3D4A')
IniWrite($includesIni, 'Options', 'Selfinclude', '0x0000F9')
IniWrite($includesIni, 'Options', 'Keyword', ';[Includes]')
IniWrite($includesIni, 'Options', 'CopyToCliP', 0)
IniWrite($includesIni, 'Options', 'Del', 0)
IniWrite($includesIni, 'Options', 'Place', 0)
IniWrite($includesIni, 'Options', 'SilentMode', 0)
IniWrite($includesIni, 'Options', 'AutoRestart', 1)
IniWrite($includesIni, 'Options', 'Created', @YEAR & '/' & @MON & '/' & @MDAY & ' - ' & @HOUR & ':' & @MIN & ':' & @SEC)
EndFunc ;==>_setOptions

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

; Create new includes.ini with funcs and seetings/options
Func _prepareOrganizeIncludes()
; Includes
For $ii = 0 To UBound($includesPath) - 1
$FileList = _FileListToArray($includesPath[$ii], '*.au3', 1)
If @error = 1 Then ContinueLoop

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

For $i = 1 To UBound($FileList) - 1
$functions = StringRegExp(FileRead(FileOpen($includesPath[$ii] & $FileList[$i], 0)), '(?<=Func )[0-9a-zA-Z_]+[ ]{0,}(?=\()', 3)
If IsArray($functions) And UBound($functions) > 1 Then
IniWrite($includesIni, 'Functions', $FileList[$i], _ArrayToString($functions, ';'))
ElseIf IsArray($functions) Then
IniWrite($includesIni, 'Functions', $FileList[$i], $functions[0])
EndIf
Next
IniWrite($includesIni, 'Functions', 'GUIConstants.au3', 'GUICreate;GUIGetMsg')
Next
IniWrite($includesIni, 'Options', 'Created', @YEAR & '/' & @MON & '/' & @MDAY & ' - ' & @HOUR & ':' & @MIN & ':' & @SEC)
EndFunc ;==>_prepareOrganizeIncludes

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

; Create the GUI
Func _createGUI()
$GUI = GUICreate('Organize includes for AutoIt by Xenobiologist', 606, 546, 196, 50, $WS_SYSMENU)
GUICtrlCreateGroup('', 8, 88, 585, 249 + 119)
$includes_LV = GUICtrlCreateListView('Includes|Status', 24, 112, 553, 201)
GUICtrlSendMsg($includes_LV, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
GUICtrlSendMsg($includes_LV, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
Global $B_DESCENDING[_GUICtrlListViewGetSubItemsCount($includes_LV) ]
GUICtrlSetFont($includes_LV, 10, 600, '', 'Trebuchet MS')
_GUICtrlListViewSetColumnWidth($includes_LV, 0, 400)
_GUICtrlListViewSetColumnWidth($includes_LV, 1, $LVSCW_AUTOSIZE_USEHEADER)
GUICtrlCreateGroup('', -99, -99, 1, 1)

$udf_LV = GUICtrlCreateListView('UDF Path', 24, 336, 553, 101)
GUICtrlSendMsg($udf_LV, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
GUICtrlSendMsg($udf_LV, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
GUICtrlSendMsg($udf_LV, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_CHECKBOXES, $LVS_EX_CHECKBOXES)
_GUICtrlListViewSetColumnWidth($udf_LV, 0, $LVSCW_AUTOSIZE_USEHEADER)

GUICtrlCreateLabel('Autoit', 8, 16, 100, 21, $SS_SUNKEN)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 700)
GUICtrlCreateLabel('Autoit Beta', 8, 40, 100, 21, $SS_SUNKEN)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 700)
GUICtrlCreateLabel('Filename', 8, 64, 100, 21, $SS_SUNKEN)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 700)
$filename_I = GUICtrlCreateInput('', 112, 64, 481, 21)
$betaVersion_I = GUICtrlCreateInput('', 112, 40, 81, 21)
$autoitVersion_I = GUICtrlCreateInput('', 112, 16, 81, 21)
$organize_B = GUICtrlCreateButton('Organize includes', 8, 462, 187, 25, 0)
GUICtrlSetTip(-1, 'Start organize includes', 'Start script', 1, 1)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 600)

$openIni_B = GUICtrlCreateButton('Open ini', 200, 462, 100, 25, 0)
GUICtrlSetTip(-1, 'Options and settings for the "Organize Includes" script', 'Open ini file', 1, 1)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 600)

$renewIni_B = GUICtrlCreateButton('Renew ini', 303, 462, 100, 25, 0)
GUICtrlSetTip(-1, 'New scan for funcs in include folders', 'Renew ini file', 1, 1)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 600)

$exit_B = GUICtrlCreateButton('Exit', 408, 462, 187, 25, 0)
GUICtrlSetTip(-1, 'Exit' & @TAB & @TAB & @TAB & '- settings will be saved' & @CRLF & _
'Exit without saving' & @TAB & '- by leaving with the cross', 'Exit script', 1, 1)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 600)
$status_SB = _GUICtrlStatusBarCreate($GUI, $parts_SB, $text_SB)
GUIStartGroup()
$delAll_R = GUICtrlCreateRadio('Remove all', 210, 16, 120, 15)
GUICtrlSetTip(-1, 'Remove all' & @TAB & @TAB & ' - remove all includes of your script' & @CRLF & _
'Remove unneeded ' & @TAB & ' - remove all not needed includes of your script' & @CRLF & _
'Remove nothing ' & @TAB & ' - do not remove includes of your script', 'Remove includes', 1, 1)
$delUnneeded_R = GUICtrlCreateRadio('Remove unneeded', 210, 32, 120, 15)
$delNothing_R = GUICtrlCreateRadio('Remove nothing', 210, 48, 120, 15)
GUIStartGroup()

Switch IniRead($includesIni, 'Options', 'Del', '0')
Case 0
GUICtrlSetState($delAll_R, $GUI_CHECKED)
Case 1
GUICtrlSetState($delUnneeded_R, $GUI_CHECKED)
Case 2
GUICtrlSetState($delNothing_R, $GUI_CHECKED)
EndSwitch

GUIStartGroup()
$placeAfterKeyWord_R = GUICtrlCreateRadio('Place after keyword', 355, 16, 120, 15)
GUICtrlSetTip(-1, 'Insert the inculdes at top of your script or' & @CRLF & _
'place the includes after a special keyword.', 'Insert includes', 1, 1)
$placeAtTop_R = GUICtrlCreateRadio('Place at top', 355, 32, 120, 15)
GUIStartGroup()

$keyword_I = GUICtrlCreateInput(IniRead($includesIni, 'Options', 'Keyword', ';[includes]'), 480, 10, 113, 21)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 9.5, 800)
GUICtrlSetTip(-1, 'Keyword to search for. Includes are placed after this line.', 'Keyword', 1, 1)
If IniRead($includesIni, 'Options', 'Place', '0') = 1 Then
GUICtrlSetState($placeAtTop_R, $GUI_CHECKED)
GUICtrlSetState($keyword_I, $GUI_HIDE)
Else
GUICtrlSetState($placeAfterKeyWord_R, $GUI_CHECKED)
GUICtrlSetState($keyword_I, $GUI_SHOW)
EndIf

$copyToClipBoard_CB = GUICtrlCreateCheckbox('Copy to clipboard', 355, 48, 120, 15)
GUICtrlSetTip(-1, 'Copy the includes to clipboard.', 'Copy to clipboard', 1, 1)
If IniRead($includesIni, 'Options', 'CopyToClip', '0') = 1 Then GUICtrlSetState($copyToClipBoard_CB, $GUI_CHECKED)

$autoRestart_CB = GUICtrlCreateCheckbox('AutoRestart', 480, 32, 120, 15)
GUICtrlSetTip(-1, 'AutoRestart ' & @TAB & '- Automatically restarts script after pressing organize includes button', 'AutoRestart', 1, 1)
If IniRead($includesIni, 'Options', 'AutoRestart', '0') = 1 Then GUICtrlSetState($autoRestart_CB, $GUI_CHECKED)

$silentMode_CB = GUICtrlCreateCheckbox('Silent Mode', 480, 48, 120, 15)
GUICtrlSetTip(-1, 'Checked ' & @TAB & '- Next start will do an oragnize includes without GUI.' & @CRLF & _
'Once checked and restarted you can only deacitvate silent mode by changend value in the ini to SilentMode=0 or ' & @CRLF & _
'by starting the script with parameter silentOff.', 'Silent Mode', 1, 1)
If IniRead($includesIni, 'Options', 'SilentMode', '0') = 1 Then GUICtrlSetState($silentMode_CB, $GUI_CHECKED)

$addIncludePath_B = GUICtrlCreateButton('Add include path', 24, 315, 181, 19)
GUICtrlSetTip(-1, ' You can add pathes to your udf folder. After adding you need to restart the script.', 'Add include path', 1, 1)
$delIncludePath_B = GUICtrlCreateButton('Del include path', 210, 315, 181, 19)
GUICtrlSetTip(-1, ' Will delete all added include pathes. After deleting you need to restart the script.', 'Del include path', 1, 1)
$restart_B = GUICtrlCreateButton('Restart/Refresh', 396, 315, 181, 19)
GUICtrlSetTip(-1, 'Restarts "organize includes". Behaves like a refresh.', 'Restart/Refresh', 1, 1)
EndFunc ;==>_createGUI

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

; Save seetings before exit
Func _exit()
If GUICtrlRead($placeAfterKeyWord_R) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'Keyword', GUICtrlRead($keyword_I))
EndIf
If GUICtrlRead($copyToClipBoard_CB) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'CopyToClip', 1)
Else
IniWrite($includesIni, 'Options', 'CopyToClip', 0)
EndIf

If GUICtrlRead($delAll_R) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'Del', 0)
ElseIf GUICtrlRead($delUnneeded_R) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'Del', 1)
ElseIf GUICtrlRead($delNothing_R) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'Del', 2)
EndIf

If GUICtrlRead($placeAfterKeyWord_R) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'Place', 0)
Else
IniWrite($includesIni, 'Options', 'Place', 1)
EndIf

If GUICtrlRead($silentMode_CB) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'SilentMode', 1)
Else
IniWrite($includesIni, 'Options', 'SilentMode', 0)
EndIf

If GUICtrlRead($autoRestart_CB) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'AutoRestart', 1)
Else
IniWrite($includesIni, 'Options', 'AutoRestart', 0)
EndIf
EndFunc ;==>_exit

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

; Sort the listview items
Func _sortLV()
_GUICtrlListViewSort($includes_LV, $B_DESCENDING, GUICtrlGetState($includes_LV))
For $i = 0 To $count - 1
Switch _GUICtrlListViewGetItemText($includes_LV, $i, 1)
Case $status_A[0]
GUICtrlSetBkColor($LV[$i], $neededAndIncluded)
Case $status_A[1]
GUICtrlSetBkColor($LV[$i], $neededNotIncluded)
Case $status_A[2]
GUICtrlSetBkColor($LV[$i], $notNeededButIncluded)
EndSwitch
Next
EndFunc ;==>_sortLV

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

Func _selfInclude()
For $i = 0 To $count - 1
If _GUICtrlListViewGetItemText($includes_LV, $i, 0) = '#include<'&GUICtrlRead($filename_I)&'>' Then
_GUICtrlListViewSetItemText($includes_LV, $i, 1, $status_A[3])
If StringRegExp($source, '(?i)#include[ ]*<[ ]*'&GUICtrlRead($filename_I)&'[ ]*>', 0) = 1 Then
_ArrayAdd($red_A, '#include<'&GUICtrlRead($filename_I)&'>')
Local $re = _ArraySearch($green_A, '#include<'&GUICtrlRead($filename_I)&'>')
If $re <> -1 Then _ArrayDelete($green_A, $re)
GUICtrlSetBkColor($LV[$i], $selfInclude)
Else
; Wenn nicht im Source, dann löschen aus ListView
_GUICtrlListViewDeleteItem($includes_LV, $i)
EndIf
EndIf
Next
EndFunc ;==>_selfInclude

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

Func _restart()
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Script is restarting ...', 1)
Run('"' & @AutoItExe & '" ' & '/AutoIt3ExecuteScript "' & @ScriptFullPath & '" ' & @AutoItPID, '', @SW_HIDE)
Exit (0)
EndFunc ;==>_restart

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

Func _renewIni()
ConsoleWrite('_renewIni() ' & @CRLF)
If IniDelete($includesIni, 'Functions') Then
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Funcs in includes.ini deleted', 1)
$includePathSection = IniReadSection($includesIni, 'IncludePath')
If Not @error Then
For $i = 1 To $includePathSection[0][0]
If _ArraySearch($includesPath, $includePathSection[$i][0] & '\') = -1 Then
_ArrayInsert($includesPath, 0, $includePathSection[$i][0] & '\')
EndIf
Next
EndIf
_prepareOrganizeIncludes()
Else
_GUICtrlStatusBarSetText($status_SB, @TAB & 'includes.ini could not be renewed', 1)
EndIf
EndFunc ;==>_renewIni

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

Func _setUDFs()
For $i = 1 To UBound($includesPath) - 1
GUICtrlCreateListViewItem($includesPath[$i], $udf_LV)
Next
EndFunc ;==>_setUDFs

[/autoit]

So long,

Mega

**Tweaky**

Hm,
mit der 2.8 funktionierts auch nicht

So siehts bei mir aus:
siehe Bild

**Xenobiologist**

Hi,

wie sieht denn dein iniFile aus?

So long,

Mega

progandy

Zitat

HI,

es ist ein Fehler in ControlGetText. Dieser wird zu nächsten beta angepaßt, dann gucke ich mal ob es wieder läuft und falls nicht passe ich es an.

So long,

Mega

Also die normale Autoit-Version kann mit ControlGetText maximal 1076 Zeichen einlesen, danach stürzt sie ab. Grad getestet.
//Extra Beta installiert, um es verwenden zu können

**Tweaky**

Hier die iniFile

Spoiler anzeigen

Code

[Options]
Created=2007/09/27 - 22:54:34
Green=0x80FF80
Yellow=0xFFFF80
Red=0xEF3D4A
Selfinclude=0x0000F9
Keyword=;[Includes]
CopyToCliP=0
Del=0
Place=0
SilentMode=0
AutoRestart=1
[Version]
Beta=
Normal=v3.2.8.1
[Functions]
A3LHeader.au3=_Header_AddItem;_Header_ClearFilter;_Header_ClearFilterAll;_Header_Click;_Header_Create;_Header_CreateDragImage;_Header_DeleteItem;_Header_EditFilter;_Header_GetBitmapMargin;_Header_GetImageList;_Header_GetItem;_Header_GetItemAlign;_Header_GetItemBitmap;_Header_GetItemCount;_Header_GetItemDisplay;_Header_GetItemFlags;_Header_GetItemFormat;_Header_GetItemImage;_Header_GetItemOrder;_Header_GetItemParam;_Header_GetItemRect;_Header_GetItemRectEx;_Header_GetItemText;_Header_GetItemWidth;_Header_GetOrderArray;_Header_GetUnicodeFormat;_Header_HitTest;_Header_InsertItem;_Header_Layout;_Header_OrderToIndex;_Header_SetBitmapMargin;_Header_SetFilterChangeTimeout;_Header_SetHotDivider;_Header_SetImageList;_Header_SetItem;_Header_SetItemAlign;_Header_SetItemBitmap;_Header_SetItemDisplay;_Header_SetItemFlags;_Header_SetItemFormat;_Header_SetItemImage;_Header_SetItemOrder;_Header_SetItemParam;_Header_SetItemText;_Header_SetItemWidth;_Header_SetOrderArray;_Header_SetUnicodeFormat;_Header_WM_NOTIFY
A3LLibrary.au3=_Lib_AutoItDir;_Lib_Check;_Lib_ConsoleWrite;_Lib_CreateSolidBitmap;_Lib_FloatToInt;_Lib_GetCaretPos;_Lib_GetFont;_Lib_GetMousePos;_Lib_GetMousePosX;_Lib_GetMousePosY;_Lib_GetPointFromXY;_Lib_GetXYFromPoint;_Lib_GetXYFromRect;_Lib_HiWord;_Lib_InProcess;_Lib_IntToFloat;_Lib_LoadBitmap;_Lib_LoadShell32Icon;_Lib_LoWord;_Lib_MakeLong;_Lib_MouseClick;_Lib_MouseMove;_Lib_MsgBox;_Lib_PointFromRect;_Lib_PopupAdd;_Lib_PopupClear;_Lib_PopupClose;_Lib_PopupCount;_Lib_PopupGetHwnd;_Lib_PopupGetParent;_Lib_PopupGetType;_Lib_PopupScan;_Lib_PopupWait;_Lib_RedirectConsole;_Lib_Send;_Lib_SetFont;_Lib_ShowError;_Lib_ShowMsg;_Lib_WinWaitActive;_Lib_WinWaitNotExists;_Lib_WM_COMMAND;_Lib_WM_COMMAND_EX;_Lib_WM_NOTIFY;_Lib_WM_NOTIFY_EX
A3LListbox.au3=_Listbox_AddFile;_Listbox_AddString;_Listbox_BeginUpdate;_Listbox_ClickItem;_Listbox_Create;_Listbox_DeleteString;_Listbox_Dir;_Listbox_EndUpdate;_ListBox_FindInText;_Listbox_FindText;_Listbox_FindTextExact;_Listbox_GetAnchorIndex;_Listbox_GetCaretIndex;_Listbox_GetCount;_Listbox_GetCurSel;_Listbox_GetHorizontalExtent;_Listbox_GetItemData;_Listbox_GetItemHeight;_Listbox_GetItemRect;_Listbox_GetItemRectEx;_Listbox_GetListBoxInfo;_Listbox_GetLocale;_Listbox_GetLocaleCountry;_Listbox_GetLocaleLang;_Listbox_GetSel;_Listbox_GetSelCount;_Listbox_GetSelItems;_Listbox_GetText;_Listbox_GetTextLen;_Listbox_GetTopIndex;_Listbox_InitStorage;_Listbox_InsertString;_Listbox_ItemFromPoint;_Listbox_ResetContent;_Listbox_SelectString;_Listbox_SelItemRange;_Listbox_SelItemRangeEx;_Listbox_SetAnchorIndex;_Listbox_SetCaretIndex;_Listbox_SetColumnWidth;_Listbox_SetCurSel;_Listbox_SetHorizontalExtent;_Listbox_SetItemData;_Listbox_SetItemHeight;_Listbox_SetLocale;_Listbox_SetSel;_Listbox_SetTabStops;_Listbox_SetTopIndex;_Listbox_UpdateHScroll;_Listbox_WM_COMMAND
A3LListView.au3=_ListView_AddArray;_ListView_AddColumn;_ListView_AddItem;_ListView_AddSubItem;_ListView_ApproximateViewHeight;_ListView_ApproximateViewRect;_ListView_ApproximateViewWidth;_ListView_Arrange;_ListView_BeginUpdate;_ListView_CancelEditLabel;_ListView_ClickItem;_ListView_Create;_ListView_CreateDragImage;_ListView_DeleteAllItems;_ListView_DeleteColumn;_ListView_DeleteItem;_ListView_EditLabel;_ListView_EnableGroupView;_ListView_EndUpdate;_ListView_EnsureVisible;_ListView_FindInText;_ListView_FindItem;_ListView_FindNearest;_ListView_FindParam;_ListView_FindText;_ListView_GetBkColor;_ListView_GetBkImage;_ListView_GetCallbackMask;_ListView_GetColumn;_ListView_GetColumnCount;_ListView_GetColumnOrderArray;_ListView_GetColumnWidth;_ListView_GetCountPerPage;_ListView_GetEditControl;_ListView_GetExtendedListViewStyle;_ListView_GetGroupInfo;_ListView_GetGroupViewEnabled;_ListView_GetHeader;_ListView_GetHotCursor;_ListView_GetHotItem;_ListView_GetHoverTime;_ListView_GetImageList;_ListView_GetInsertMark;_ListView_GetInsertMarkColor;_ListView_GetInsertMarkRect;_ListView_GetISearchString;_ListView_GetItem;_ListView_GetItemEx;_ListView_GetItemChecked;_ListView_GetItemCount;_ListView_GetItemCut;_ListView_GetItemDropHilited;_ListView_GetItemFocused;_ListView_GetItemImage;_ListView_GetItemIndent;_ListView_GetItemOverlayImage;_ListView_GetItemParam;_ListView_GetItemPosition;_ListView_GetItemPositionX;_ListView_GetItemPositionY;_ListView_GetItemRect;_ListView_GetItemRectEx;_ListView_GetItemSelected;_ListView_GetItemSpacing;_ListView_GetItemSpacingX;_ListView_GetItemSpacingY;_ListView_GetItemState;_ListView_GetItemStateImage;_ListView_GetItemText;_ListView_GetNextItem;_ListView_GetNumberOfWorkAreas;_ListView_GetOrigin;_ListView_GetOriginX;_ListView_GetOriginY;_ListView_GetOutlineColor;_ListView_GetSelectedColumn;_ListView_GetSelectedCount;_ListView_GetSelectionMark;_ListView_GetStringWidth;_ListView_GetSubItemRect;_ListView_GetTextBkColor;_ListView_GetTextColor;_ListView_GetToolTips;_ListView_GetTopIndex;_ListView_GetUnicodeFormat;_ListView_GetView;_ListView_GetViewDetails;_ListView_GetViewLarge;_ListView_GetViewList;_ListView_GetViewSmall;_ListView_GetViewTile;_ListView_GetViewRect;_ListView_HitTest;_ListView_IndexToOverlayImageMask;_ListView_IndexToStateImageMask;_ListView_InsertColumn;_ListView_InsertGroup;_ListView_InsertItem;_ListView_InsertMarkHitTest;_ListView_MapIDToIndex;_ListView_MapIndexToID;_ListView_MoveGroup;_ListView_OverlayImageMaskToIndex;_ListView_RedrawItems;_ListView_RemoveAllGroups;_ListView_RemoveGroup;_ListView_Scroll;_ListView_SetBkColor;_ListView_SetBkImage;_ListView_SetCallBackMask;_ListView_SetColumn;_ListView_SetColumnOrderArray;_ListView_SetColumnWidth;_ListView_SetExtendedListViewStyle;_ListView_SetGroupInfo;_ListView_SetHotCursor;_ListView_SetHotItem;_ListView_SetHoverTime;_ListView_SetIconSpacing;_ListView_SetImageList;_ListView_SetInfoTip;_ListView_SetInsertMark;_ListView_SetInsertMarkColor;_ListView_SetItem;_ListView_SetItemChecked;_ListView_SetItemCount;_ListView_SetItemCut;_ListView_SetItemDropHilited;_ListView_SetItemEx;_ListView_SetItemFocused;_ListView_SetItemImage;_ListView_SetItemIndent;_ListView_SetItemOverlayImage;_ListView_SetItemParam;_ListView_SetItemPosition;_ListView_SetItemPosition32;_ListView_SetItemSelected;_ListView_SetItemState;_ListView_SetItemStateImage;_ListView_SetItemText;_ListView_SetOutlineColor;_ListView_SetSelectedColumn;_ListView_SetSelectionMark;_ListView_SetTextBkColor;_ListView_SetTextColor;_ListView_SetToolTips;_ListView_SetUnicodeFormat;_ListView_SetView;_ListView_SetWorkAreas;_ListView_StateImageMaskToIndex;_ListView_SubItemHitTest;_ListView_Update;_ListView_WM_NOTIFY
A3LMemory.au3=_Mem_CtrlFree;_Mem_CtrlInit;_Mem_CtrlRead;_Mem_CtrlWrite;_Mem_GlobalAlloc;_Mem_GlobalFree;_Mem_GlobalLock;_Mem_GlobalSize;_Mem_GlobalUnlock;_Mem_MoveMemory;_Mem_VirtualAlloc;_Mem_VirtualAllocEx;_Mem_VirtualFree;_Mem_VirtualFreeEx
A3LSecurity.au3=_Security_AdjustTokenPrivileges;_Security_GetAccountSid;_Security_GetLengthSid;_Security_GetTokenInformation;_Security_ImpersonateSelf;_Security_IsValidSid;_Security_LookupAccountName;_Security_LookupAccountSid;_Security_LookupPrivilegeValue;_Security_OpenProcessToken;_Security_OpenThreadToken;_Security_OpenThreadTokenEx;_Security_SetPrivilege;_Security_SidToStringSid;_Security_SidTypeStr;_Security_StringSidToSid
A3LString.au3=_Str_ChangeFileExt;_Str_ExtractFileExt;_Str_ExtractFile;_Str_ExtractFileName;_Str_ExtractFilePath;_Str_LastDelimiter;_Str_Repeat;_Str_SetChar
A3LTreeView.au3=_TreeView_AbsoluteIndex;_TreeView_Add;_TreeView_AddNode;_TreeView_AddChild;_TreeView_AddChildFirst;_TreeView_AddFirst;_TreeView_BeginUpdate;_TreeView_Click;_TreeView_Collapse;_TreeView_Create;_TreeView_CreateDragImage;_TreeView_Delete;_TreeView_DeleteAll;_TreeView_DeleteChildren;_TreeView_DisplayRect;_TreeView_DisplayRectEx;_TreeView_EditText;_TreeView_EndEdit;_TreeView_EndUpdate;_TreeView_Expand;_TreeView_ExpandItem;_TreeView_ExpandedOnce;_TreeView_FindNode;_TreeView_FindNodeEx;_TreeView_GetBkColor;_TreeView_GetBold;_TreeView_GetChecked;_TreeView_GetChildren;_TreeView_GetCount;_TreeView_GetCut;_TreeView_GetDropTarget;_TreeView_GetEditControl;_TreeView_GetExpanded;_TreeView_GetFirstChild;_TreeView_GetFirstNode;_TreeView_GetFirstVisible;_TreeView_GetFocused;_TreeView_GetHeight;_TreeView_GetImageIndex;_TreeView_GetIndent;_TreeView_GetInsertMarkColor;_TreeView_GetISearchString;_TreeView_GetItem;_TreeView_GetLastChild;_TreeView_GetLineColor;_TreeView_GetNext;_TreeView_GetNextChild;_TreeView_GetNextItem;_TreeView_GetNextSibling;_TreeView_GetNextVisible;_TreeView_GetNode;_TreeView_GetNormalImageList;_TreeView_GetOverlayIndex;_TreeView_GetPrev;_TreeView_GetPrevChild;_TreeView_GetPrevSibling;_TreeView_GetPrevVisible;_TreeView_GetScrollTime;_TreeView_GetSelected;_TreeView_GetSelectedIndex;_TreeView_GetSelection;_TreeView_GetState;_TreeView_GetStateImageList;_TreeView_GetStateIndex;_TreeView_GetText;_TreeView_GetTextColor;_TreeView_GetToolTips;_TreeView_GetUnicodeFormat;_TreeView_GetVisible;_TreeView_GetVisibleCount;_TreeView_HasAsParent;_TreeView_HitTest;_TreeView_HitTestEx;_TreeView_HitTestNode;_TreeView_Index;_TreeView_Insert;_TreeView_IsFirstNode;_TreeView_Level;_TreeView_MapAccIDToNode;_TreeView_MapNodeToAccID;_TreeView_MakeVisible;_TreeView_Parent;_TreeView_Select;_TreeView_SelectByIndex;_TreeView_SetBkColor;_TreeView_SetBold;_TreeView_SetChecked;_TreeView_SetCheckedByIndex;_TreeView_SetChildren;_TreeView_SetCut;_TreeView_SetDropTarget;_TreeView_SetFocused;_TreeView_SetHeight;_TreeView_SetImageIndex;_TreeView_SetIndent;_TreeView_SetInsertMark;_TreeView_SetInsertMarkColor;_TreeView_SetItem;_TreeView_SetLineColor;_TreeView_SetNodeHeight;_TreeView_SetNormalImageList;_TreeView_SetOverlayIndex;_TreeView_SetScrollTime;_TreeView_SetSelected;_TreeView_SetSelectedIndex;_TreeView_SetState;_TreeView_SetStateImageList;_TreeView_SetStateIndex;_TreeView_SetText;_TreeView_SetTextColor;_TreeView_SetToolTips;_TreeView_SetUnicodeFormat;_TreeView_SortChildren;_TreeView_WM_NOTIFY
A3LWinAPI.au3=_API_AttachConsole;_API_AttachThreadInput;_API_Beep;_API_BitBlt;_API_ClientToScreen;_API_CloseHandle;_API_CopyIcon;_API_CreateBitmap;_API_CreateCompatibleBitmap;_API_CreateCompatibleDC;_API_CreateEvent;_API_CreateFile;_API_CreateFontIndirect;_API_CreateProcess;_API_CreateRoundRectRgn;_API_CreateWindowEx;_API_DefWindowProc;_API_DeleteDC;_API_DeleteObject;_API_DestroyIcon;_API_DestroyWindow;_API_DrawIcon;_API_DrawIconEx;_API_DrawText;_API_EnableWindow;_API_EnumDisplayDevices;_API_EnumWindows;_API_EnumWindowsAdd;_API_EnumWindowsChild;_API_EnumWindowsInit;_API_EnumWindowsPopup;_API_EnumWindowsTop;_API_ExpandEnvironmentStrings;_API_ExtractIconEx;_API_FatalAppExit;_API_FindExecutable;_API_FindWindow;_API_FlashWindow;_API_FlashWindowEx;_API_FlushFileBuffers;_API_FormatMessage;_API_FreeLibrary;_API_GetAncestor;_API_GetAsyncKeyState;_API_GetClassName;_API_GetClientHeight;_API_GetClientWidth;_API_GetClientRect;_API_GetCurrentProcess;_API_GetCurrentProcessID;_API_GetCurrentThread;_API_GetCurrentThreadId;_API_GetCursorInfo;_API_GetDC;_API_GetDesktopWindow;_API_GetDeviceCaps;_API_GetDIBits;_API_GetDlgCtrlID;_API_GetDlgItem;_API_GetFocus;_API_GetForegroundWindow;_API_GetIconInfo;_API_GetFileSizeEx;_API_GetLastError;_API_GetLastErrorMessage;_API_GetModuleHandle;_API_GetObject;_API_GetOverlappedResult;_API_GetParent;_API_GetProcessAffinityMask;_API_GetStockObject;_API_GetStdHandle;_API_GetSysColor;_API_GetSysColorBrush;_API_GetSystemMetrics;_API_GetTextExtentPoint32;_API_GetWindow;_API_GetWindowDC;_API_GetWindowHeight;_API_GetWindowLong;_API_GetWindowRect;_API_GetWindowText;_API_GetWindowThreadProcessId;_API_GetWindowWidth;_API_GlobalMemStatus;_API_GUIDFromString;_API_GUIDFromStringEx;_API_IntersectRect;_API_InvalidateRect;_API_IsWindow;_API_IsWindowVisible;_API_LoadBitmap;_API_LoadImage;_API_LoadLibrary;_API_LoadLibraryEx;_API_LocalFree;_API_MessageBeep;_API_Mouse_Event;_API_MoveWindow;_API_MulDiv;_API_MultiByteToWideChar;_API_MultiByteToWideCharEx;_API_OpenProcess;_API_PostMessage;_API_PtInRect;_API_ReadFile;_API_ReadProcessMemory;_API_RectIsEmpty;_API_RedrawWindow;_API_RegisterWindowMessage;_API_ReleaseDC;_API_ScreenToClient;_API_SelectObject;_API_SendMessage;_API_SetBkColor;_API_SetCursor;_API_SetDefaultPrinter;_API_SetDIBits;_API_SetEvent;_API_SetFocus;_API_SetHandleInformation;_API_SetLastError;_API_SetParent;_API_SetProcessAffinityMask;_API_SetTextColor;_API_SetWindowLong;_API_SetWindowPos;_API_SetWindowRgn;_API_SetWindowText;_API_ShowCursor;_API_ShowWindow;_API_StringFromGUID;_API_SystemParametersInfo;_API_UpdateLayeredWindow;_API_UpdateWindow;_API_WaitForInputIdle;_API_WaitForMultipleObjects;_API_WaitForSingleObject;_API_WideCharToMultiByte;_API_WindowFromPoint;_API_WriteConsole;_API_WriteFile;_API_WriteProcessMemory
Array.au3=_ArrayAdd;_ArrayBinarySearch;_ArrayCreate;_ArrayDelete;_ArrayDisplay;_ArrayInsert;_ArrayMax;_ArrayMaxIndex;_ArrayMin;_ArrayMinIndex;_ArrayPop;_ArrayPush;_ArrayReverse;_ArraySearch;_ArraySort;__ArrayQSort1;__ArrayQSort2;_ArraySwap;_ArrayToClip;_ArrayToString;_ArrayTrim
ArrayMore.au3=_ArraySort_2ary;_ArraySort_2ary;_Array2DSortByLen;_ArraySortDblDel;_Array2DDblDel;_Array2DInsert;_Array2DSplit;_Array2DEmptyDel;_Array2DJoin;_Array2DDelete;_Array2DSearch;_Array2DMirror;_SubArray2DGetEntry;_SubArray2DSetEntry
Color.au3=_ColorGetRed;_ColorGetGreen;_ColorGetBlue
Date.au3=_DateAdd;_DateDayOfWeek;_DateDaysInMonth;_DateDiff;_DateIsLeapYear;_DateIsMonth;_DateIsValid;_DateIsYear;_DateLastWeekdayNum;_DateLastMonthNum;_DateLastMonthYear;_DateMonthOfYear;_DateNextWeekdayNum;_DateNextMonthNum;_DateNextMonthYear;_DateTimeSplit;_DateToDayValue;_DateToDayOfWeek;_DateToDayOfWeekISO;_DateToMonth;_DayValueToDate;_DateTimeFormat;_DateJulianDayNo;_JulianToDate;_Now;_NowCalc;_NowCalcDate;_NowDate;_NowTime;_SetDate;_SetTime;_TicksToTime;_TimeToTicks;_WeekNumberISO;_WeekNumber;__DaysInMonth
ExcelCOM_UDF.au3=_ExcelBookNew;_ExcelBookOpen;_ExcelBookOpenTxt;_ExcelBookSave;_ExcelBookSaveAs;_ExcelBookClose;_ExcelShow;_ExcelHide;_ExcelWriteCell;_ExcelWriteFormula;_ExcelWriteArray;_ExcelReadCell;_ExcelReadArray;_ExcelCopy;_ExcelPaste;_ExcelInsert;_ExcelRowDelete;_ExcelColumnDelete;_ExcelRowInsert;_ExcelColumnInsert;_ExcelNumberFormat;_ExcelPictureInsert;_ExcelPictureAdjust;_ExcelPictureScale;_ExcelCreateBorders;_ExcelHyperlinkInsert;_ExcelSort;_ExcelSortExtended;_ExcelFindInRange;_ExcelReplaceInRange;_ExcelCommentAdd;_ExcelCommentDelete;_ExcelCommentShow;_ExcelCommentRead;_ExcelSplitWindow;_ExcelFontSetProperties;_ExcelFontSet;_ExcelFontGet;_ExcelFontSetSize;_ExcelFontGetSize;_ExcelFontSetColor;_ExcelFontGetColor;_ExcelCellColorSet;_ExcelCellColorGet;_ExcelHorizontalAlignSet;_ExcelVerticalAlignSet;_ExcelColWidthSet;_ExcelColWidthGet;_ExcelRowHeightSet;_ExcelRowHeightGet;_ExcelSheetMove;_ExcelSheetAddNew;_ExcelSheetNameGet;_ExcelSheetNameSet;_ExcelSheetActivate;_ExcelSheetDelete;_ExcelSheetList;_ExcelSheetUsedRangeGet;_ExcelCellFormat;_ExcelCellMerge
File.au3=_FileCountLines;_FileCreate;_FileListToArray;_FilePrint;_FileReadToArray;_FileWriteFromArray;_FileWriteLog;_FileWriteToLine;_PathFull;_PathMake;_PathSplit;_ReplaceStringInFile;_TempFile
GuiCombo.au3=_GUICtrlComboAddDir;_GUICtrlComboAddString;_GUICtrlComboAutoComplete;_GUICtrlComboDeleteString;_GUICtrlComboFindString;_GUICtrlComboGetCount;_GUICtrlComboGetCurSel;_GUICtrlComboGetDroppedControlRect;_GUICtrlComboGetDroppedState;_GUICtrlComboGetDroppedWidth;_GUICtrlComboGetEditSel;_GUICtrlComboGetExtendedUI;_GUICtrlComboGetHorizontalExtent;_GUICtrlComboGetItemHeight;_GUICtrlComboGetLBText;_GUICtrlComboGetLBTextLen;_GUICtrlComboGetList;_GUICtrlComboGetLocale;_GUICtrlComboGetMinVisible;_GUICtrlComboGetTopIndex;_GUICtrlComboInitStorage;_GUICtrlComboInsertString;_GUICtrlComboLimitText;_GUICtrlComboResetContent;_GUICtrlComboSelectString;_GUICtrlComboSetCurSel;_GUICtrlComboSetDroppedWidth;_GUICtrlComboSetEditSel;_GUICtrlComboSetExtendedUI;_GUICtrlComboSetHorizontalExtent;_GUICtrlComboSetItemHeight;_GUICtrlComboSetMinVisible;_GUICtrlComboSetTopIndex;_GUICtrlComboShowDropDown
GuiEdit.au3=_GUICtrlEditCanUndo;_GUICtrlEditEmptyUndoBuffer;_GuiCtrlEditFind;_GuiCtrlEditFindText;_GUICtrlEditGetFirstVisibleLine;_GUICtrlEditGetLine;_GUICtrlEditGetLineCount;_GUICtrlEditGetModify;_GUICtrlEditGetRECT;_GUICtrlEditGetSel;_GUICtrlEditLineFromChar;_GUICtrlEditLineIndex;_GUICtrlEditLineLength;_GUICtrlEditLineScroll;_GUICtrlEditReplaceSel;_GUICtrlEditScroll;_GUICtrlEditSetModify;_GUICtrlEditSetRECT;_GUICtrlEditSetSel;_GUICtrlEditUndo
GuiIPAddress.au3=_GUICtrlIpAddressCreate;_GUICtrlIpAddressClear;_GUICtrlIpAddressDelete;_GUICtrlIpAddressGet;_GUICtrlIpAddressIsBlank;_GUICtrlIpAddressSet;_GUICtrlIpAddressSetFocus;_GUICtrlIpAddressSetRange;_GUICtrlIpAddressShowHide;_GUICtrlIpAddressSetFont;_HiWord;_LoWord;_MakeIP;_MakeWord
GuiList.au3=_GUICtrlListAddDir;_GUICtrlListAddItem;_GUICtrlListClear;_GUICtrlListCount;_GUICtrlListDeleteItem;_GUICtrlListFindString;_GUICtrlListGetAnchorIndex;_GUICtrlListGetCaretIndex;_GUICtrlListGetHorizontalExtent;_GUICtrlListGetInfo;_GUICtrlListGetItemRect;_GUICtrlListGetLocale;_GUICtrlListGetSelCount;_GUICtrlListGetSelItems;_GUICtrlListGetSelItemsText;_GUICtrlListGetSelState;_GUICtrlListGetText;_GUICtrlListGetTextLen;_GUICtrlListGetTopIndex;_GUICtrlListInsertItem;_GUICtrlListReplaceString;_GUICtrlListSelectIndex;_GUICtrlListSelectedIndex;_GUICtrlListSelectString;_GUICtrlListSelItemRange;_GUICtrlListSelItemRangeEx;_GUICtrlListSetAnchorIndex;_GUICtrlListSetCaretIndex;_GUICtrlListSetHorizontalExtent;_GUICtrlListSetLocale;_GUICtrlListSetSel;_GUICtrlListSetTopIndex;_GUICtrlListSort;_GUICtrlListSwapString
GuiListView.au3=_GUICtrlListViewCopyItems;_GUICtrlListViewDeleteAllItems;_GUICtrlListViewDeleteColumn;_GUICtrlListViewDeleteItem;_GUICtrlListViewDeleteItemsSelected;_GUICtrlListViewEnsureVisible;_GUICtrlListViewFindItem;_GUICtrlListViewGetBackColor;_GUICtrlListViewGetCallBackMask;_GUICtrlListViewGetCheckedState;_GUICtrlListViewGetColumnOrder;_GUICtrlListViewGetColumnWidth;_GUICtrlListViewGetCounterPage;_GUICtrlListViewGetCurSel;_GUICtrlListViewGetExtendedListViewStyle;_GUICtrlListViewGetHeader;_GUICtrlListViewGetHotCursor;_GUICtrlListViewGetHotItem;_GUICtrlListViewGetHoverTime;_GUICtrlListViewGetItemCount;_GUICtrlListViewGetItemText;_GUICtrlListViewGetItemTextArray;_GUICtrlListViewGetNextItem;_GUICtrlListViewGetSelectedCount;_GUICtrlListViewGetSelectedIndices;_GUICtrlListViewGetSubItemsCount;_GUICtrlListViewGetTopIndex;_GUICtrlListViewGetUnicodeFormat;_GUICtrlListViewGetView;_GUICtrlListViewHideColumn;_GUICtrlListViewInsertColumn;_GUICtrlListViewInsertItem;_GUICtrlListViewJustifyColumn;_GUICtrlListViewScroll;_GUICtrlListViewSetCheckState;_GUICtrlListViewSetColumnHeaderText;_GUICtrlListViewSetColumnOrder;_GUICtrlListViewSetColumnWidth;_GUICtrlListViewSetHotItem;_GUICtrlListViewSetHoverTime;_GUICtrlListViewSetItemCount;_GUICtrlListViewSetItemSelState;_GUICtrlListViewSetItemText;_GUICtrlListViewSetSelectedColumn;_GUICtrlListViewSort;_ReverseColorOrder;_GUICtrlListViewArrange;_GUICtrlListViewSetIconSpacing;_GUICtrlListViewSetItemPosition;_GUICtrlListViewSetView
GuiMonthCal.au3=_GUICtrlMonthCalGet1stDOW;_GUICtrlMonthCalGetColor;_GUICtrlMonthCalGetDelta;_GUICtrlMonthCalGetMaxSelCount;_GUICtrlMonthCalGetMaxTodayWidth;_GUICtrlMonthCalGetMinReqRECT;_GUICtrlMonthCalSet1stDOW;_GUICtrlMonthCalSetColor;_GUICtrlMonthCalSetDelta;_GUICtrlMonthCalSetMaxSelCount
GuiSlider.au3=_GUICtrlSliderClearTics;_GUICtrlSliderGetLineSize;_GUICtrlSliderGetNumTics;_GUICtrlSliderGetPageSize;_GUICtrlSliderGetPos;_GUICtrlSliderGetRangeMax;_GUICtrlSliderGetRangeMin;_GUICtrlSliderSetLineSize;_GUICtrlSliderSetPageSize;_GUICtrlSliderSetPos;_GUICtrlSliderSetTicFreq
GuiStatusBar.au3=_GUICtrlStatusBarCreate;_GUICtrlStatusBarCreateProgress;_GUICtrlStatusBarDelete;_GUICtrlStatusBarGetBorders;_GUICtrlStatusBarGetIcon;_GUICtrlStatusBarGetParts;_GUICtrlStatusBarGetRect;_GUICtrlStatusBarGetText;_GUICtrlStatusBarGetTextLength;_GUICtrlStatusBarGetTip;_GUICtrlStatusBarGetUnicode;_GUICtrlStatusBarIsSimple;_GUICtrlStatusBarResize;_GUICtrlStatusBarSetBKColor;_GUICtrlStatusBarSetIcon;_GUICtrlStatusBarSetMinHeight;_GUICtrlStatusBarSetSimple;_GUICtrlStatusBarSetText;_GUICtrlStatusBarSetTip;_GUICtrlStatusBarSetUnicode;_GUICtrlStatusBarShowHide;_GUICtrlStatusBarSetParts;_CreateStuctFromArray
GuiTab.au3=_GUICtrlTabDeleteAllItems;_GUICtrlTabDeleteItem;_GUICtrlTabDeselectAll;_GUICtrlTabGetCurFocus;_GUICtrlTabGetCurSel;_GUICtrlTabGetExtendedStyle;_GUICtrlTabGetItemCount;_GUICtrlTabGetItemRECT;_GUICtrlTabGetRowCount;_GUICtrlTabGetUnicodeFormat;_GUICtrlTabHighlightItem;_GUICtrlTabSetCurFocus;_GUICtrlTabSetCurSel;_GUICtrlTabSetMinTabWidth;_GUICtrlTabSetPadding;_GUICtrlTabSetUnicodeFormat
GuiTreeView.au3=_GUICtrlTreeViewDeleteAllItems;_GUICtrlTreeViewDeleteItem;_GUICtrlTreeViewExpand;_TreeViewExpandTree;_GUICtrlTreeViewGetBkColor;_GUICtrlTreeViewGetCount;_GUICtrlTreeViewGetIndent;_GUICtrlTreeViewGetLineColor;_GUICtrlTreeViewGetParentHandle;_GUICtrlTreeViewGetParentID;_GUICtrlTreeViewGetTextColor;_GUICtrlTreeViewGetTree;_GUICtrlTreeViewSetBkColor;_GUICtrlTreeViewSetIndent;_GUICtrlTreeViewSetLineColor;_GUICtrlTreeViewSetTextColor;_GUICtrlTreeViewSort;_GUICtrlTreeViewInsertItem;_GUICtrlTreeViewSetIcon;_GUICtrlTreeViewGetState;_GUICtrlTreeViewSetState;_GUICtrlTreeViewSetText;_GUICtrlTreeViewSelectItem;_GUICtrlTreeViewGetText;_TreeViewDeleteItem;_TreeViewSelectItem;_TreeViewReverseColorOder;_TreeViewGetItemHandle;_TreeViewGetImageListIconHandle
IE.au3=_IECreate;_IECreateEmbedded;_IENavigate;_IEAttach;_IELoadWait;_IELoadWaitTimeout;_IEIsFrameSet;_IEFrameGetCollection;_IEFrameGetObjByName;_IELinkClickByText;_IELinkClickByIndex;_IELinkGetCollection;_IEImgClick;_IEImgGetCollection;_IEFormGetCollection;_IEFormGetObjByName;_IEFormElementGetCollection;_IEFormElementGetObjByName;_IEFormElementGetValue;_IEFormElementSetValue;_IEFormElementOptionSelect;_IEFormElementCheckboxSelect;_IEFormElementRadioSelect;_IEFormImageClick;_IEFormSubmit;_IEFormReset;_IETableGetCollection;_IETableWriteToArray;_IEBodyReadHTML;_IEBodyReadText;_IEBodyWriteHTML;_IEDocReadHTML;_IEDocWriteHTML;_IEDocInsertText;_IEDocInsertHTML;_IEHeadInsertEventScript;_IEDocGetObj;_IETagNameGetCollection;_IETagNameAllGetCollection;_IEGetObjByName;_IEGetObjById;_IEAction;_IEPropertyGet;_IEPropertySet;_IEErrorNotify;_IEErrorHandlerRegister;_IEErrorHandlerDeRegister;_IEQuit;_IE_Introduction;_IE_Example;_IE_VersionInfo;__IELockSetForegroundWindow;__IEControlGetObjFromHWND;__IERegisterWindowMessage;__IESendMessageTimeout;__IEIsObjType;__IEErrorNotify;__IEInternalErrorHandlerRegister;__IEInternalErrorHandlerDeRegister;__IEInternalErrorHandler;__IENavigate;__IEComErrorUnrecoverable
image_get_info.au3=_ImageGetInfo;_ImageGetInfoPNG;_ImageGetInfoJPG;_ImageGetInfoTIFF;ParseExif;_AddSpecial;_ReadTag;_ImageGetParam;_IsBitSet;_AddPair;_Add;_IntR;_FileReadToStruct;_DllStructArrayAsString
Inet.au3=_GetIP;_INetExplorerCapable;_INetGetSource;_INetMail;_INetSmtpMail;_SmtpTrace;_SmtpSend;_TCPIpToName;__TCPIpToName_szStringRead
Math.au3=_Degree;_MathCheckDiv;_Max;_Min;_Radian
Memory.au3=_MemFree;_CloseHandle;_VirtualAlloc;_VirtualAllocEx;_VirtualFree;_VirtualFreeEx;_GetWindowThreadProcessId;_OpenProcess;_ReadProcessMemory;_WriteProcessMemory;_MemInit;_MemRead;_MemWrite;_MultiByteToWideChar
Misc.au3=_ChooseColor;_ChooseFont;_ClipPutFile;_Iif;_MouseTrap;_Singleton;_IsPressed;_SendMessage;_IsClassName;_VersionCompare
Process.au3=_ProcessGetName;_ProcessGetPriority;_RunDOS
Sound.au3=_SoundOpen;_SoundClose;_SoundPlay;_SoundStop;_SoundPause;_SoundResume;_SoundLength;_SoundSeek;_SoundStatus;_SoundPos;mciSendString;RandomStr
SQLite.au3=_SQLite_Startup;_SQLite_Shutdown;_SQLite_Open;_SQLite_GetTable;_SQLite_Exec;_SQLite_LibVersion;_SQLite_LastInsertRowID;_SQLite_Changes;_SQLite_TotalChanges;_SQLite_ErrCode;_SQLite_ErrMsg;_SQLite_Display2DResult;_SQLite_GetTable2d;_SQLite_SetTimeout;_SQlite_Query;_SQLite_FetchData;_SQLite_Close;_SQLite_SaveMode;_SQLite_QueryFinalize;_SQlite_QueryReset;_SQLite_FetchNames;_SQLite_QuerySingleRow;_SQLite_SQLiteExe;_SQLite_Encode;_SQLite_Escape;__SQLite_hChk;__SQLite_hAdd;__SQLite_hDel;__SQLite_VersCmp;__SQLite_hDbg;__SQLite_ReportError;__SQLite_szStringRead
SQLite.dll.au3=__SQLite_Inline_Modified;__SQLite_Inline_Version;__SQLite_Inline_SQLite3Dll
String.au3=_HexToString;_StringAddComma;_StringBetween;_StringEncrypt;_StringInsert;_StringProper;_StringRepeat;_StringReverse;_StringToHex;__CharacterIsApha
Visa.au3=_viExecCommand;_viOpen;_viClose;_viFindGpib;_viOpenDefaultRM;_viPrintf;_viQueryf;_viSetTimeout;_viSetAttribute;_viGTL;_viGpibBusReset;_viGpibControlREN;_viInteractiveControl
Word.au3=_WordCreate;_WordAttach;_WordQuit;_WordDocAdd;_WordDocOpen;_WordDocSave;_WordDocSaveAs;_WordDocClose;_WordDocGetCollection;_WordDocFindReplace;_WordDocPrint;_WordDocPropertyGet;_WordDocPropertySet;_WordDocLinkGetCollection;_WordDocAddLink;_WordDocAddPicture;_WordErrorHandlerRegister;_WordErrorHandlerDeRegister;_WordErrorNotify;_WordMacroRun;_WordPropertyGet;_WordPropertySet;_Word_VersionInfo;__WordGetHWND;__WordErrorNotify;__WordInternalErrorHandlerRegister;__WordInternalErrorHandlerDeRegister;__WordInternalErrorHandler;__WordLockSetForegroundWindow;__WordIsObjType
GUIConstants.au3=GUICreate;GUIGetMsg

Alles anzeigen

Wobei ich die ini-Datei bei jeder Installation von AutoIt oder Scite automatisch löschen lasse

**Xenobiologist**

Hi,

okay. Habe Scite jetzt neuinstalliert und kann dein Problem nun nachstellen.

Es liegt wieder am ControlGetText.

Siehe hier:

Spoiler anzeigen

[autoit]

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.2.7.0
; Author: Thorsten Meger
;
; Script Function:
; Organize Includes Version 2.7
;
; ----------------------------------------------------------------------------
;Opt("TrayIconDebug", 1)
;[Includes]
#include<Array.au3>
#include<File.au3>
#include<GuiListView.au3>
#include<GuiStatusBar.au3>
#include<GUIConstants.au3>
Global $start_T = TimerInit()
#cs
* Prüfung, dass ein File sich nicht selbst includen darf! - DONE
* Prüfung der includes in den include files! - TODO
* RegExp Prüfung auf Wortgrenze beschränken bei Funktionen - DONE
* Auskommentierungsmöglichkeit für includes (wird analysiert aber nicht gelöscht) - DONE
* Constants.au3 mit aufnehmen für RUN Befehle - DONE
* Möglichkeit zusätzliche UDF Pfade anzugeben - DONE
* Refresh Möglichkeit - DONE
* GUI Include Pathes füllen und leeren können - TODO
#ce

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

; ScriptVersion
Global $scriptVersion = 'Version 2.7'
; NormalVersion
Global $InstallPath = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir')
Global $InstallVersion = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'Version')
; BetaVersion
Global $betaInstallPath = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'betaInstallDir')
Global $betaInstallVersion = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'betaVersion')

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

; Variables
Dim $includesPath[1]
If $InstallPath <> '' Then _ArrayAdd($includesPath, $InstallPath & '\Include\')
If $betaInstallPath <> '' Then _ArrayAdd($includesPath, $betaInstallPath & '\Include\')
Global $includesIni = @ScriptDir & '\includes.ini'
Global $Source = '', $exit_B = 0, $organize_B = 0, $openIni_B = 0, $autoitVersion_I = 0, $betaVersion_I = 0, $filename_I = 0
Global $includes_LV = 0, $FileName = '', $GUI = 0, $status_SB = 0, $checkIncludes_B = 0, $ToBeIncluded[1], $B_DESCENDING = 0
Global $deleteIncludes_CB = 0, $copyToClipBoard_CB = 0, $delAll_R = 0, $delUnneeded_R = 0, $delNothing_R = 0, $keyword_I = 0
Global $placeAfterKeyWord_R = 0, $placeAtTop_R = 0, $green_A[1], $yellow_A[1], $red_A[1], $LV = 0, $count = 0, $silentMode_CB = 0
Global $parts_SB[3] = [80, 526, -1], $silentMode = True, $renewIni_B = 0, $addIncludePath_B = 0, $delIncludePath_B = 0, $restart_B = 0
Global $autoRestart_CB = 0, $udf_LV = 0
Global $text_SB[3] = [@TAB & $scriptVersion, @TAB & 'Organize includes', '']
Global $status_A[4] = ['correctly included', 'needed include', 'not needed', 'include itself?']
; Read the seetings from the ini file
Global $neededAndIncluded = IniRead($includesIni, 'Options', 'Green', '0x80FF80')
Global $neededNotIncluded = IniRead($includesIni, 'Options', 'Yellow', '0xFFFF80')
Global $notNeededButIncluded = IniRead($includesIni, 'Options', 'Red', '0xEF3D4A')
Global $selfInclude = IniRead($includesIni, 'Options', 'Selfinclude', '0x0000F9')
Global $keyword = IniRead($includesIni, 'Options', 'Keyword', ';[Includes]')

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

; Operating sequence
_createGUI()
_start()
GUICtrlSetData($autoitVersion_I, $InstallVersion)
GUICtrlSetData($betaVersion_I, $betaInstallVersion)

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

; Setting silent off when 1 parameter = silentOff
; Silent mode = no GUI and organize includes automatically with settings from ini file
If $cmdLine[0] > 0 And $cmdLine[1] = 'silentOff' Then $silentMode = False
If GUICtrlRead($silentMode_CB) = $GUI_UNCHECKED Or $silentMode = False Then
GUISetState(@SW_SHOW)
Else
_organize()
Exit (0)
EndIf

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

_GUICtrlStatusBarSetText($status_SB, @TAB & Round(TimerDiff($start_T)/1000, 4) & ' sec', 2)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit (0)
Case $exit_B
_exit()
Exit (0)
Case $organize_B
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Script started ... organizing includes ... ', 1)
_organize()
If GUICtrlRead($autoRestart_CB) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'AutoRestart', 1)
_restart()
Else
IniWrite($includesIni, 'Options', 'AutoRestart', 0)
EndIf
Case $openIni_B
If FileExists($includesIni) Then
ShellExecute($includesIni)
_GUICtrlStatusBarSetText($status_SB, @TAB & 'includes.ini opened', 1)
Else
_GUICtrlStatusBarSetText($status_SB, @TAB & 'No ini file found', 1)
Sleep(1000)
$re = MsgBox(36, 'Create new ini file', 'Do you want to create a new ini file?', 15)
If $re = -1 Or $re = 7 Then
_GUICtrlStatusBarSetText($status_SB, @TAB & 'No ini file available', 1)
ElseIf $re = 6 Then
_prepareOrganizeIncludes()
_GUICtrlStatusBarSetText($status_SB, @TAB & 'New ini file created', 1)
Sleep(2000)
If FileExists($includesIni) Then ShellExecute($includesIni)
EndIf
EndIf
Case $renewIni_B
_renewIni()
Case $placeAfterKeyWord_R
GUICtrlSetState($keyword_I, $GUI_SHOW)
GUICtrlSetState($keyword_I, $GUI_FOCUS)
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Enter your keyword ...', 1)
Case $placeAtTop_R
GUICtrlSetState($keyword_I, $GUI_HIDE)
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Includes will be placed at top of your script', 1)
Case $copyToClipBoard_CB
If GUICtrlRead($copyToClipBoard_CB) = $GUI_CHECKED Then
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Copying includes to clipboard activated', 1)
Else
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Copying includes to clipboard deactivated', 1)
EndIf
Case $includes_LV
_sortLV()
Case $delAll_R
_GUICtrlStatusBarSetText($status_SB, @TAB & 'All includes will be removed', 1)
Case $delUnneeded_R
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Only the not needed includes will be removed', 1)
Case $delNothing_R
_GUICtrlStatusBarSetText($status_SB, @TAB & 'No includes will be removed', 1)
Case $addIncludePath_B
$path = FileSelectFolder('Choose a folder where "Organize includes" looks for your udfs', '\', 6, StringLeft(@ScriptDir, 3))
If $path <> '' Then
_GUICtrlStatusBarSetText($status_SB, @TAB & $path & ' added to include pathes', 1)
IniWrite($includesIni, 'IncludePath', $path, '')
Else
_GUICtrlStatusBarSetText($status_SB, @TAB & $path & ' Cancel - no paths added', 1)
EndIf
_renewIni()
GUICtrlCreateListViewItem($path & '\', $udf_LV)
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Ini-Update ready ...', 1)
Case $delIncludePath_B
If IniDelete($includesIni, 'IncludePath') Then _GUICtrlStatusBarSetText($status_SB, @TAB & 'Include pathes deleted', 1)
_renewIni()
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Ini-Update ready ...', 1)
Case $restart_B
_restart()
Case $silentMode_CB
If GUICtrlRead($silentMode_CB) = $GUI_CHECKED Then
GUICtrlSetState($autoRestart_CB, $GUI_DISABLE)
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Silent Mode activated', 1)
Else
GUICtrlSetState($autoRestart_CB, $GUI_ENABLE)
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Silent Mode deactivated', 1)
EndIf
EndSwitch
WEnd

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

; Start func gets the source and calls all other needed funcs.
Func _start()
If Not ProcessExists('SciTE.exe') Then Exit (0)
Opt('WinTitleMatchMode', 4)
WinActivate('classname=SciTEWindow')
WinWaitActive('classname=SciTEWindow')
$FileName = StringSplit(WinGetTitle(''), '\')
GUICtrlSetData($filename_I, StringLeft($FileName[UBound($FileName) - 1], StringInStr($FileName[UBound($FileName) - 1], '.au3') + 3))
$Source = ControlGetText('classname=SciTEWindow', '', 350)
MsgBox(0,"", $Source)
;$Source = FileRead(FileOpen(StringLeft(WinGetTitle(''), StringInStr(WinGetTitle(''), '.au3') + 3), 0))
If Not FileExists($includesIni) Then
_prepareOrganizeIncludes()
_setOptions()
EndIf
$ToBeIncluded = getIncludes()
_ArraySort($ToBeIncluded)
$re = setIncludes($ToBeIncluded)
;_selfInclude()
If $re = -2 Then _GUICtrlStatusBarSetText($status_SB, @TAB & 'No includes needed!', 1)
_setUDFs()
EndFunc ;==>_start

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

; Starting action (delete and/or insert)
Func _organize()
Local $sourceLine_A = StringSplit($Source, @CR)
$sourceLine_A = _deleteIncludes($sourceLine_A)
$sourceLine_A = _insertIncludes($sourceLine_A)
ControlSetText('classname=SciTEWindow', '', 'Scintilla1', _ArrayToString($sourceLine_A, @CR, 1))
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Includes inserted', 1)
EndFunc ;==>_organize

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

; Insert includes into array of code lines
Func _insertIncludes($sourceLine_A)
Local $includes = ''
If GUICtrlRead($delAll_R) = $GUI_CHECKED Then $includes = _ArrayToString($green_A, @CR, 1)
$includes &= @CR & _ArrayToString($yellow_A, @CR, 1)
If StringLeft($includes, 1) = @CR Then $includes = StringTrimLeft($includes, 1)
If StringRight($includes, 1) = @CR Then $includes = StringTrimRight($includes, 1)
If Not $includes <> '' Then Return $sourceLine_A

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

If GUICtrlRead($placeAfterKeyWord_R) = $GUI_CHECKED Then
Local $keyword = GUICtrlRead($keyword_I)
For $i = 0 To UBound($sourceLine_A) - 1
If StringInStr($sourceLine_A[$i], $keyword, 2) Then
_ArrayInsert($sourceLine_A, $i + 1, $includes)
ExitLoop
EndIf
Next
Else
_ArrayInsert($sourceLine_A, 1, $includes)
EndIf
If GUICtrlRead($copyToClipBoard_CB) = $GUI_CHECKED Then
ClipPut('')
ClipPut($includes)
EndIf
Return $sourceLine_A
EndFunc ;==>_insertIncludes

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

; Delete includes from array of code lines
Func _deleteIncludes($sourceLine_A)
If GUICtrlRead($delAll_R) = $GUI_CHECKED Then
For $i = UBound($sourceLine_A) - 1 To 1 Step - 1
; Wenn ';' include dann lasse die Zeile aus
If StringRegExp($sourceLine_A[$i], '(?i)#include[ ]*<[ ]*(.*?\.au3)[ ]*>' , 0) = 1 And _
StringRegExp($sourceLine_A[$i], '(?i);.*[ ]*#include[ ]*<', 0) = 0 Then
_ArrayDelete($sourceLine_A, $i)
EndIf
Next
ElseIf GUICtrlRead($delUnneeded_R) = $GUI_CHECKED Then
For $ii = 1 To UBound($red_A) - 1
For $i = UBound($sourceLine_A) - 1 To 1 Step - 1
If StringRegExp($sourceLine_A[$i], '(?i)#include[ ]*<[ ]*(.*?' & $red_A[$ii] & ')[ ]*>', 0) = 1 And _
StringRegExp($sourceLine_A[$i], '(?i);.*[ ]*#include[ ]*<', 0) = 0 Then
_ArrayDelete($sourceLine_A, $i)
EndIf
Next
Next
EndIf
Return $sourceLine_A
EndFunc ;==>_deleteIncludes

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

Func setIncludes($ToBeIncluded)
If Not IsArray($ToBeIncluded) Then Return -1
_GUICtrlListViewSetItemCount($includes_LV, UBound($ToBeIncluded))
Dim $LV[150]
; Create a row for every include and set bk to green
For $i = 1 To UBound($ToBeIncluded) - 1
$LV[$count] = GUICtrlCreateListViewItem('#include<' & $ToBeIncluded[$i] & '>' & '|' & $status_A[0] , $includes_LV)
GUICtrlSetBkColor(-1, $neededAndIncluded)
$count += 1
; Is the needed include not in source code then change bk to yellow and delete entry from green array
If StringRegExp($Source,'(?i)#include[ ]*<[ ]*' & $ToBeIncluded[$i] &'[ ]*>', 0) = 0 Or _
StringRegExp($Source,'(?i);[ ]*#include[ ]*<[ ]*' & $ToBeIncluded[$i] &'[ ]*>', 0) = 1 Then
_GUICtrlListViewSetItemText($includes_LV, $i - 1, 1, $status_A[1])
GUICtrlSetBkColor(-1, $neededNotIncluded)
_ArrayAdd($yellow_A, $ToBeIncluded[$i])
_ArrayDelete($green_A, _ArraySearch($green_A, $ToBeIncluded[$i]))
EndIf
Next
; Find all includes in source code. Bk to red if they are not needed
$alreadyIncluded = StringRegExp($Source,'(?i)#include[ ]*<[ ]*(.*?\.au3)[ ]*>', 3)
If Not @error Then
For $i = 0 To UBound($alreadyIncluded) - 1
If _ArraySearch($ToBeIncluded, $alreadyIncluded[$i]) = -1 Then
$LV[$count] = GUICtrlCreateListViewItem('#include<' & $alreadyIncluded[$i] & '>' & '|' & $status_A[2], $includes_LV)
GUICtrlSetBkColor(-1, $notNeededButIncluded)
$count += 1
_ArrayAdd($red_A, $alreadyIncluded[$i])
EndIf
Next
EndIf
For $i = 1 To UBound($green_A) - 1
$green_A[$i] = '#include<' & $green_A[$i] & '>'
Next
For $i = 1 To UBound($yellow_A) - 1
$yellow_A[$i] = '#include<' & $yellow_A[$i] & '>'
Next
If UBound($ToBeIncluded) = 1 Then Return -2
EndFunc ;==>setIncludes

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

; If version number (normal and beta) changed or ini file doesn't exist then create a new one with _prepareOrganizeIncludes()
; Search for needed includes
Func getIncludes()
If Not FileExists($includesIni) Or (IniRead($includesIni, 'Version', 'beta', 'Error') <> $betaInstallVersion) Or _
(IniRead($includesIni, 'Version', 'Normal', 'Error') <> $InstallVersion) Then _prepareOrganizeIncludes()
;Local $iniContent = IniReadSection($includesIni, 'Functions')
;If @error Then MsgBox(4096, '', 'Error occurred, probably no ini file.')
;_ArrayDisplay($iniContent)

; ############################## INIReadSection ########################## ausbauen oder die Erweiterung abwarten!!!!

Local $lines_A
If Not _FileReadToArray($includesIni, $lines_A) Then
MsgBox(4096, '', 'Error occurred, probably no ini file.')
Exit
EndIf

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

Local $iniContent[1][2]
Local $count = 1
For $i = 1 To $lines_A[0] - 1
If StringInStr($lines_A[$i], '.au3') Then
$re = StringSplit($lines_A[$i], '=')
ReDim $iniContent[$count + 1][2]
$iniContent[$count][0] = $re[1]
$iniContent[$count][1] = $re[2]
$count += 1
EndIf
Next
$iniContent[0][0] = UBound($iniContent) - 1

Local $Constants_A[3] = ['$STDIN_CHILD', '$STDOUT_CHILD', '$STDERR_CHILD']

For $i = 1 To $iniContent[0][0]
Local $functionsInAU3 = StringSplit($iniContent[$i][1], ';')
If @error Then
If StringRegExp($Source, '(?i)' & $iniContent[$i][0] & '([ ]+|\()', 0) = 1 Then
_ArrayAdd($ToBeIncluded, $iniContent[$i][0])
ExitLoop
EndIf
EndIf
For $ii = 1 To UBound($functionsInAU3) - 1
If StringRegExp($Source, '(?i)\b' & $functionsInAU3[$ii] & '\b([ ]+|\()', 0) = 1 Then
_ArrayAdd($ToBeIncluded, $iniContent[$i][0])
ExitLoop
EndIf
Next
Next
For $iii = 1 To UBound($Constants_A) - 1
If StringRegExp($Source, '(?i)\' & $Constants_A[$iii], 0) = 1 And _
StringRegExp($Source, "(?i)'\" & $Constants_A[$iii] & "'", 0) = 0 Then
_ArrayAdd($ToBeIncluded, 'Constants.au3')
ExitLoop
EndIf
Next
$green_A = $ToBeIncluded
Return $ToBeIncluded
EndFunc ;==>getIncludes

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

Func _setOptions()
; Version info
IniWrite($includesIni, 'Version', 'Beta', $betaInstallVersion)
IniWrite($includesIni, 'Version', 'Normal', $InstallVersion)
; Options
IniWrite($includesIni, 'Options', 'Green', '0x80FF80')
IniWrite($includesIni, 'Options', 'Yellow', '0xFFFF80')
IniWrite($includesIni, 'Options', 'Red', '0xEF3D4A')
IniWrite($includesIni, 'Options', 'Selfinclude', '0x0000F9')
IniWrite($includesIni, 'Options', 'Keyword', ';[Includes]')
IniWrite($includesIni, 'Options', 'CopyToCliP', 0)
IniWrite($includesIni, 'Options', 'Del', 0)
IniWrite($includesIni, 'Options', 'Place', 0)
IniWrite($includesIni, 'Options', 'SilentMode', 0)
IniWrite($includesIni, 'Options', 'AutoRestart', 1)
IniWrite($includesIni, 'Options', 'Created', @YEAR & '/' & @MON & '/' & @MDAY & ' - ' & @HOUR & ':' & @MIN & ':' & @SEC)
EndFunc ;==>_setOptions

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

; Create new includes.ini with funcs and seetings/options
Func _prepareOrganizeIncludes()
; Includes
For $ii = 0 To UBound($includesPath) - 1
$FileList = _FileListToArray($includesPath[$ii], '*.au3', 1)
If @error = 1 Then ContinueLoop

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

For $i = 1 To UBound($FileList) - 1
$functions = StringRegExp(FileRead(FileOpen($includesPath[$ii] & $FileList[$i], 0)), '(?<=Func )[0-9a-zA-Z_]+[ ]{0,}(?=\()', 3)
If IsArray($functions) And UBound($functions) > 1 Then
IniWrite($includesIni, 'Functions', $FileList[$i], _ArrayToString($functions, ';'))
ElseIf IsArray($functions) Then
IniWrite($includesIni, 'Functions', $FileList[$i], $functions[0])
EndIf
Next
IniWrite($includesIni, 'Functions', 'GUIConstants.au3', 'GUICreate;GUIGetMsg')
Next
IniWrite($includesIni, 'Options', 'Created', @YEAR & '/' & @MON & '/' & @MDAY & ' - ' & @HOUR & ':' & @MIN & ':' & @SEC)
EndFunc ;==>_prepareOrganizeIncludes

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

; Create the GUI
Func _createGUI()
$GUI = GUICreate('Organize includes for AutoIt by Xenobiologist', 606, 546, 196, 50, $WS_SYSMENU)
GUICtrlCreateGroup('', 8, 88, 585, 249 + 119)
$includes_LV = GUICtrlCreateListView('Includes|Status', 24, 112, 553, 201)
GUICtrlSendMsg($includes_LV, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
GUICtrlSendMsg($includes_LV, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
Global $B_DESCENDING[_GUICtrlListViewGetSubItemsCount($includes_LV) ]
GUICtrlSetFont($includes_LV, 10, 600, '', 'Trebuchet MS')
_GUICtrlListViewSetColumnWidth($includes_LV, 0, 400)
_GUICtrlListViewSetColumnWidth($includes_LV, 1, $LVSCW_AUTOSIZE_USEHEADER)
GUICtrlCreateGroup('', -99, -99, 1, 1)

$udf_LV = GUICtrlCreateListView('UDF Path', 24, 336, 553, 101)
GUICtrlSendMsg($udf_LV, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
GUICtrlSendMsg($udf_LV, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
GUICtrlSendMsg($udf_LV, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_CHECKBOXES, $LVS_EX_CHECKBOXES)
_GUICtrlListViewSetColumnWidth($udf_LV, 0, $LVSCW_AUTOSIZE_USEHEADER)

GUICtrlCreateLabel('Autoit', 8, 16, 100, 21, $SS_SUNKEN)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 700)
GUICtrlCreateLabel('Autoit Beta', 8, 40, 100, 21, $SS_SUNKEN)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 700)
GUICtrlCreateLabel('Filename', 8, 64, 100, 21, $SS_SUNKEN)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 700)
$filename_I = GUICtrlCreateInput('', 112, 64, 481, 21)
$betaVersion_I = GUICtrlCreateInput('', 112, 40, 81, 21)
$autoitVersion_I = GUICtrlCreateInput('', 112, 16, 81, 21)
$organize_B = GUICtrlCreateButton('Organize includes', 8, 462, 187, 25, 0)
GUICtrlSetTip(-1, 'Start organize includes', 'Start script', 1, 1)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 600)

$openIni_B = GUICtrlCreateButton('Open ini', 200, 462, 100, 25, 0)
GUICtrlSetTip(-1, 'Options and settings for the "Organize Includes" script', 'Open ini file', 1, 1)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 600)

$renewIni_B = GUICtrlCreateButton('Renew ini', 303, 462, 100, 25, 0)
GUICtrlSetTip(-1, 'New scan for funcs in include folders', 'Renew ini file', 1, 1)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 600)

$exit_B = GUICtrlCreateButton('Exit', 408, 462, 187, 25, 0)
GUICtrlSetTip(-1, 'Exit' & @TAB & @TAB & @TAB & '- settings will be saved' & @CRLF & _
'Exit without saving' & @TAB & '- by leaving with the cross', 'Exit script', 1, 1)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 11, 600)
$status_SB = _GUICtrlStatusBarCreate($GUI, $parts_SB, $text_SB)
GUIStartGroup()
$delAll_R = GUICtrlCreateRadio('Remove all', 210, 16, 120, 15)
GUICtrlSetTip(-1, 'Remove all' & @TAB & @TAB & ' - remove all includes of your script' & @CRLF & _
'Remove unneeded ' & @TAB & ' - remove all not needed includes of your script' & @CRLF & _
'Remove nothing ' & @TAB & ' - do not remove includes of your script', 'Remove includes', 1, 1)
$delUnneeded_R = GUICtrlCreateRadio('Remove unneeded', 210, 32, 120, 15)
$delNothing_R = GUICtrlCreateRadio('Remove nothing', 210, 48, 120, 15)
GUIStartGroup()

Switch IniRead($includesIni, 'Options', 'Del', '0')
Case 0
GUICtrlSetState($delAll_R, $GUI_CHECKED)
Case 1
GUICtrlSetState($delUnneeded_R, $GUI_CHECKED)
Case 2
GUICtrlSetState($delNothing_R, $GUI_CHECKED)
EndSwitch

GUIStartGroup()
$placeAfterKeyWord_R = GUICtrlCreateRadio('Place after keyword', 355, 16, 120, 15)
GUICtrlSetTip(-1, 'Insert the inculdes at top of your script or' & @CRLF & _
'place the includes after a special keyword.', 'Insert includes', 1, 1)
$placeAtTop_R = GUICtrlCreateRadio('Place at top', 355, 32, 120, 15)
GUIStartGroup()

$keyword_I = GUICtrlCreateInput(IniRead($includesIni, 'Options', 'Keyword', ';[includes]'), 480, 10, 113, 21)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 9.5, 800)
GUICtrlSetTip(-1, 'Keyword to search for. Includes are placed after this line.', 'Keyword', 1, 1)
If IniRead($includesIni, 'Options', 'Place', '0') = 1 Then
GUICtrlSetState($placeAtTop_R, $GUI_CHECKED)
GUICtrlSetState($keyword_I, $GUI_HIDE)
Else
GUICtrlSetState($placeAfterKeyWord_R, $GUI_CHECKED)
GUICtrlSetState($keyword_I, $GUI_SHOW)
EndIf

$copyToClipBoard_CB = GUICtrlCreateCheckbox('Copy to clipboard', 355, 48, 120, 15)
GUICtrlSetTip(-1, 'Copy the includes to clipboard.', 'Copy to clipboard', 1, 1)
If IniRead($includesIni, 'Options', 'CopyToClip', '0') = 1 Then GUICtrlSetState($copyToClipBoard_CB, $GUI_CHECKED)

$autoRestart_CB = GUICtrlCreateCheckbox('AutoRestart', 480, 32, 120, 15)
GUICtrlSetTip(-1, 'AutoRestart ' & @TAB & '- Automatically restarts script after pressing organize includes button', 'AutoRestart', 1, 1)
If IniRead($includesIni, 'Options', 'AutoRestart', '0') = 1 Then GUICtrlSetState($autoRestart_CB, $GUI_CHECKED)

$silentMode_CB = GUICtrlCreateCheckbox('Silent Mode', 480, 48, 120, 15)
GUICtrlSetTip(-1, 'Checked ' & @TAB & '- Next start will do an oragnize includes without GUI.' & @CRLF & _
'Once checked and restarted you can only deacitvate silent mode by changend value in the ini to SilentMode=0 or ' & @CRLF & _
'by starting the script with parameter silentOff.', 'Silent Mode', 1, 1)
If IniRead($includesIni, 'Options', 'SilentMode', '0') = 1 Then GUICtrlSetState($silentMode_CB, $GUI_CHECKED)

$addIncludePath_B = GUICtrlCreateButton('Add include path', 24, 315, 181, 19)
GUICtrlSetTip(-1, ' You can add pathes to your udf folder. After adding you need to restart the script.', 'Add include path', 1, 1)
$delIncludePath_B = GUICtrlCreateButton('Del include path', 210, 315, 181, 19)
GUICtrlSetTip(-1, ' Will delete all added include pathes. After deleting you need to restart the script.', 'Del include path', 1, 1)
$restart_B = GUICtrlCreateButton('Restart/Refresh', 396, 315, 181, 19)
GUICtrlSetTip(-1, 'Restarts "organize includes". Behaves like a refresh.', 'Restart/Refresh', 1, 1)
EndFunc ;==>_createGUI

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

; Save seetings before exit
Func _exit()
If GUICtrlRead($placeAfterKeyWord_R) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'Keyword', GUICtrlRead($keyword_I))
EndIf
If GUICtrlRead($copyToClipBoard_CB) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'CopyToClip', 1)
Else
IniWrite($includesIni, 'Options', 'CopyToClip', 0)
EndIf

If GUICtrlRead($delAll_R) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'Del', 0)
ElseIf GUICtrlRead($delUnneeded_R) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'Del', 1)
ElseIf GUICtrlRead($delNothing_R) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'Del', 2)
EndIf

If GUICtrlRead($placeAfterKeyWord_R) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'Place', 0)
Else
IniWrite($includesIni, 'Options', 'Place', 1)
EndIf

If GUICtrlRead($silentMode_CB) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'SilentMode', 1)
Else
IniWrite($includesIni, 'Options', 'SilentMode', 0)
EndIf

If GUICtrlRead($autoRestart_CB) = $GUI_CHECKED Then
IniWrite($includesIni, 'Options', 'AutoRestart', 1)
Else
IniWrite($includesIni, 'Options', 'AutoRestart', 0)
EndIf
EndFunc ;==>_exit

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

; Sort the listview items
Func _sortLV()
_GUICtrlListViewSort($includes_LV, $B_DESCENDING, GUICtrlGetState($includes_LV))
For $i = 0 To $count - 1
Switch _GUICtrlListViewGetItemText($includes_LV, $i, 1)
Case $status_A[0]
GUICtrlSetBkColor($LV[$i], $neededAndIncluded)
Case $status_A[1]
GUICtrlSetBkColor($LV[$i], $neededNotIncluded)
Case $status_A[2]
GUICtrlSetBkColor($LV[$i], $notNeededButIncluded)
EndSwitch
Next
EndFunc ;==>_sortLV

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

Func _selfInclude()
For $i = 0 To $count - 1
If _GUICtrlListViewGetItemText($includes_LV, $i, 0) = '#include<'&GUICtrlRead($filename_I)&'>' Then
_GUICtrlListViewSetItemText($includes_LV, $i, 1, $status_A[3])
If StringRegExp($Source, '(?i)#include[ ]*<[ ]*'&GUICtrlRead($filename_I)&'[ ]*>', 0) = 1 Then
_ArrayAdd($red_A, '#include<'&GUICtrlRead($filename_I)&'>')
Local $re = _ArraySearch($green_A, '#include<'&GUICtrlRead($filename_I)&'>')
If $re <> -1 Then _ArrayDelete($green_A, $re)
GUICtrlSetBkColor($LV[$i], $selfInclude)
Else
; Wenn nicht im Source, dann löschen aus ListView
_GUICtrlListViewDeleteItem($includes_LV, $i)
EndIf
EndIf
Next
EndFunc ;==>_selfInclude

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

Func _restart()
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Script is restarting ...', 1)
Run('"' & @AutoItExe & '" ' & '/AutoIt3ExecuteScript "' & @ScriptFullPath & '" ' & @AutoItPID, '', @SW_HIDE)
Exit (0)
EndFunc ;==>_restart

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

Func _renewIni()
ConsoleWrite('_renewIni() ' & @CRLF)
If IniDelete($includesIni, 'Functions') Then
_GUICtrlStatusBarSetText($status_SB, @TAB & 'Funcs in includes.ini deleted', 1)
$includePathSection = IniReadSection($includesIni, 'IncludePath')
If Not @error Then
For $i = 1 To $includePathSection[0][0]
If _ArraySearch($includesPath, $includePathSection[$i][0] & '\') = -1 Then
_ArrayInsert($includesPath, 0, $includePathSection[$i][0] & '\')
EndIf
Next
EndIf
_prepareOrganizeIncludes()
Else
_GUICtrlStatusBarSetText($status_SB, @TAB & 'includes.ini could not be renewed', 1)
EndIf
EndFunc ;==>_renewIni

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

Func _setUDFs()
For $i = 1 To UBound($includesPath) - 1
GUICtrlCreateListViewItem($includesPath[$i], $udf_LV)
Next
EndFunc ;==>_setUDFs

[/autoit]

So long,

Mega

P.S.: Werde mal sehen was da los ist.

**Tweaky**

OK,
habe deinen Code von der V2.7 probiert.
Dieser geht nicht :weinen:

**Xenobiologist**

Hi,

wenn du die Zeilen in diese änderst sollte es erstmal wieder gehen

[autoit]

;$Source = ControlGetText('classname=SciTEWindow', '', 350)
;MsgBox(0,"", $Source)
$Source = FileRead(FileOpen(StringLeft(WinGetTitle(''), StringInStr(WinGetTitle(''), '.au3') + 3), 0))

[/autoit]

So long,

Mega

**Tweaky**

Hm, die includes werden nun angezeigt,
nur werden sie nicht eingefügt, sondern das komplette Script gelöscht und es steht nur noch ein

#

drinnen

**Xenobiologist**

Hi,

okay. Am besten abwarten. Ich melde mich, wenn Autoit gefixt ist und es wieder geht.

So long,

Mega

**Tweaky**

Hi, weisst du schon wann der Fehler in der Scite Version behoben wird.

Es nervt immer die includes zu suchen
kann nicht mehr ohne dein Tool arbeiten.

Wie machen das wohl andere

**Xenobiologist**

Hi,

ich habe noch keine gute Möglichkeit gefunden, den Quelltext zu bekommen und wieder zu setzen in Scite.

Ich habe das jetzt mal als Frage ins ENG Forum gestellt. Wenn ich diese Frage beantwortet bekomme, dann setze ich mich auch gern wieder an das Skript.

Im Moment baue ich allerdings einen Institutsmapper der hat erstmal Prio 0

So long,

Mega

P.S.: Keine Ahnung, ich habe mich auch dran gewöhnt. :tongue:

**Xenobiologist**

HI,

habe eine neue Version im 1st post hinterlegt. Wäre nett, wenn sie mal jemand testet.

Danke!

So long,

Mega

**Tweaky**

... aber gerne doch

Habe nun die Beta 3.2.9.3 installiert.
Dann unter Scite - Sciteconfig und Switchdefinitions auf die Beta umgestellt.

Hoffe dies war alles.
Ist meine erste Beta, die ich installiere.

Leider bekomme ich beim aufruf deines Scripts folgende Fehlermeldung
Ich schätze die Beta wird nicht richtig angenommen