Include all *.au3 libraries

[xiantez 0]

Hey AutoIT Community,

Just wanted to know if there is a way I can #include all *.au3 files in my script without having to #include each individual .au3 file. For instance, currently I have a laundry list of #includes like this:

#include <IE.au3>
#include <Inet.au3>
#include <AutoItConstants.au3>
#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>
#include <GuiMenu.au3> 

[ECT...ECT...]

Would there be a way I could include all of the files above or all  .au3 file in a one liner? That way I do not have to burn up a bunch of lines of code for just my includes.... Your help is greatly appreciated...

[xiantez 0]

I might have found the solution - 

 

[nitekram 68]

42 minutes ago, xiantez said:

That way I do not have to burn up a bunch of lines of code for just my includes.... Your help is greatly appreciated...

I would rather do that, than have a bloated file size. If you are not going to use a function from the file, why include it?

[xiantez 0]

11 minutes ago, nitekram said:

I would rather do that, than have a bloated file size. If you are not going to use a function from the file, why include it?

Well, it's not about including things I don't need... It is more about consolidating the includes i do need into 1 line of code....  If my program needs eight or ten #include statements to run, id rather shrink that into one statement...

[nitekram 68]

2 hours ago, xiantez said:

Well, it's not about including things I don't need... It is more about consolidating the includes i do need into 1 line of code....  If my program needs eight or ten #include statements to run, id rather shrink that into one statement...

If that is the case, then create a UDF, call it My_Includes.au3, and then add the includes that you are going to use into that file, calling that one file from your script will keep it to one line? But I may be really off, in what you are trying to accomplish.

[Malkey 142]

One method would be to run the attached script which creates a file, "All.au3", which contains all the au3 files in the Include directory.
So, to include all include files, put #include "All.au3" at the top of your script, and, have the  "All.au3" file in the same directory as the script you are working on. Or, use #include "FullPath\All.au3" if  the "All.au3" file is not in the same directory as the working script.

#include <File.au3>
#include <Array.au3>
;#include "All.au3"
; Having run this script the "All.au3" file exists. So the above line,';#include "All.au3"' can be un-commented, and
; the top two include files can be commented out.

Local $FileContents
Local $IncludeAll = "All.au3" ; Found in this script's directory.
Local $aIncludes = _FileListToArray(StringRegExpReplace(@AutoItExe, "\\[^\\]+$", "") & "\include\", "*.au3")
;_ArrayDisplay($aIncludes)

Local $hFileOpenWrite = FileOpen($IncludeAll, 2) ;  Write mode (erase previous contents)
$FileContents = "#include-Once" & @CRLF & @CRLF
For $i = 1 To UBound($aIncludes) - 1
    $FileContents &= '#include <' & $aIncludes[$i] & '>' & @CRLF
Next

FileWrite($hFileOpenWrite, $FileContents)
FileClose($hFileOpenWrite)
ShellExecute($IncludeAll)

 

[mLipok 586]

Thanks @Malkey very useful.
I have made small modyfication, I hope you will not be angry

#include <Array.au3>
#include <File.au3>
#include <FileConstants.au3>

_CreateCommonIncludeFile()

Func _CreateCommonIncludeFile()
    ; #include "All.au3"
    ; Having run this script the "All.au3" file exists. So the above line,';#include "All.au3"' can be un-commented, and
    ; the top two include files can be commented out,
    ; but third include is needed for $FO_OVERWRITE = 2 ,
    ; if you want to not use #include <FileConstants.au3> just change the $FO_OVERWRITE to the maginc number = 2  ;)

    Local $aIncludes = _FileListToArray(StringRegExpReplace(@AutoItExe, "\\[^\\]+$", "") & "\include\", "*.au3")
;~  _ArrayDisplay($aIncludes, '$aIncludes')

    Local $sFileContents = "#include-Once" & @CRLF & @CRLF
    For $i = 1 To UBound($aIncludes) - 1
        $sFileContents &= '#include <' & $aIncludes[$i] & '>' & @CRLF
    Next

    Local $sIncludeAll = "All.au3" ; Found in this script's directory.
    Local $hFileOpenWrite = FileOpen($sIncludeAll, $FO_OVERWRITE) ;  Write mode (erase previous contents)
    FileWrite($hFileOpenWrite, $sFileContents)
    FileClose($hFileOpenWrite)
    ShellExecute($sIncludeAll)
EndFunc   ;==>_CreateCommonIncludeFile

 

Remark:
Recently I refactor a lot of code in my own UDF (those not published).
And now I have such a perversion to improve code, which I use.

Edited December 21, 2016 by mLipok