__UpdateSciTEStartup()

Func __UpdateSciTEStartup($_sPropLuaScript="Lua.User.Scripts.Path")
    Local $sPathAutoIt = StringLeft(@AutoItExe, StringInStr(@AutoItExe, '\', 1, -1) -1)
    Local $sPathLua = $sPathAutoIt & '\SciTE\Lua'

    Local $sRead = FileRead($sPathLua & '\SciTEStartup.lua')
    Local $aRead = StringSplit($sRead, @CRLF, 1)
    Local $i_LUA_PATH = -1, $i_StartupLine = -1, $i_funcLoad = -1, $i_Load
    Local $sLUA_PATH, $s_cpath, $s_FuncLoad, $fLUA_PATH_used = False
    For $i = 1 To $aRead[0]
        If StringLeft($aRead[$i], 8) = '-- SciTE' Then
            $i_StartupLine = $i
        ElseIf StringLeft(StringStripWS($aRead[$i], 1), 8) == 'LUA_PATH' Then
            $i_LUA_PATH = $i
        ElseIf StringLeft(StringStripWS($aRead[$i], 8), 13) == 'package.cpath' Then
            If StringInStr($aRead[$i], 'LUA_PATH', 1) Then $fLUA_PATH_used = True
        ElseIf StringLeft(StringStripWS($aRead[$i], 8), 18) == 'end--LoadLuaFile()' Then
            $i_funcLoad = $i
        ElseIf StringLeft(StringStripWS($aRead[$i], 1), 15) == 'LoadLuaFileList' Then
            $i_Load = $i
        EndIf
    Next
    If $i_StartupLine = -1 Then $i_StartupLine = 1
    If $i_LUA_PATH = -1 Then $i_LUA_PATH = $i_StartupLine
    $sLUA_PATH = 'local sUserLua = (props["' & $_sPropLuaScript & '"]) .. "\\"' & @CRLF
    If $i_LUA_PATH = -1 Then
        $sLUA_PATH &= _
        'local sPATH = sUserLua .. "\\?.dll;" .. sUserLua .. "\\?\\?.dll;" .. sUserLua .. "\\?.lua;" .. sUserLua .. "\\?\\?.lua;"' & @CRLF & _
        'if type(LUA_PATH) == "string" then LUA_PATH = LUA_PATH .. sPATH else LUA_PATH = sPATH end' & @CRLF
    Else
        $sLUA_PATH &= _
        'if not LUA_PATH:find(sUserLua .. "(\?\.dll)")     then LUA_PATH = LUA_PATH .. sUserLua .. "?.dll;")    end' & @CRLF & _
        'if not LUA_PATH:find(sUserLua .. "(\?\\\?\.dll)") then LUA_PATH = LUA_PATH .. sUserLua .. "?\\?.dll;") end' & @CRLF & _
        'if not LUA_PATH:find(sUserLua .. "(\?\.lua)")     then LUA_PATH = LUA_PATH .. sUserLua .. "?.lua;")    end' & @CRLF & _
        'if not LUA_PATH:find(sUserLua .. "(\?\\\?\.lua)") then LUA_PATH = LUA_PATH .. sUserLua .. "?\\?.lua;") end' & @CRLF
    EndIf
    $s_cpath = 'package.cpath = LUA_PATH .. package.cpath end'
    $s_FuncLoad = _
    '--------------------------------------------------------------------------------' & @CRLF & _
    'function LoadUserLuaFile(file, directory)'                                        & @CRLF & _
    '   if directory == nil then'                                                      & @CRLF & _
    '       directory = props["' & $_sPropLuaScript & '"].."\\"'                       & @CRLF & _
    '   end'                                                                           & @CRLF & _
    '   table.insert(LoadLuaFileList, directory .. file)'                              & @CRLF & _
    '   dofile(directory .. file)'                                                     & @CRLF & _
    'end    -- LoadUserLuaFile()'                                                      & @CRLF & _
    '--------------------------------------------------------------------------------' & @CRLF
    $aRead[$i_LUA_PATH] &= @CRLF & $sLUA_PATH
    If Not $fLUA_PATH_used Then $aRead[$i_LUA_PATH] &= @CRLF & $s_cpath
    $aRead[$i_funcLoad] &= @CRLF & $s_FuncLoad
    $aRead[0] &= @CRLF & 'LoadUserLuaFile("Ownhotkeys.lua")' & @CRLF

    ; == VOM ARRAY ZURÜCKSCHREIBEN
    ; == TEST: Schreiben in Console
    For $i = 1 To $aRead[0]
        ConsoleWrite($aRead[$i] & @LF)
    Next
EndFunc