SciTE - Leerzeichen statt Tabs, Tab Ersetzen in SciTE und Dateien

;-- TIME_STAMP   2022-03-16 12:36:59   v 0.1


#include <File.au3>

;===================================================================================================
; Function Name....: _TabReplace_File
; Description......: Replaces TAB in all lines of the file with the number of spaces corresponding to the columns.
; .................: Overwrites the file with the replaced content.
; Parameter(s).....: $_sPath    The files path.
; .................: $_iMode    The files mode. Default is UTF8-with-BOM(128).
; .................: $_iTabsize TAB size in number of characters. If it is omitted, 4 is used.
; Return Value(s)..: Count of replacements
; Author...........: BugFix (autoit<at>bug-fix.info)
;===================================================================================================
Func _TabReplace_File($_sPath, $_iMode=128, $_iTabsize=4)
    If Not FileExists($_sPath) Then Return SetError(1,0,0)
    Local $fh = FileOpen($_sPath, $_iMode)
    Local $aFile, $iReplacements = 0, $sWrite, $sLine
    _FileReadToArray($fh, $aFile, 0)
    FileClose($fh)
    For $i = 0 To UBound($aFile) -1
        $sLine = $aFile[$i]
        $iReplacements += _TabReplace_Line($sLine, $_iTabsize)
        $sWrite &= $sLine & @CRLF
    Next
    If $iReplacements = 0 Then Return 0
    Local $fh = FileOpen($_sPath, $_iMode + 2)
    FileWrite($fh, $sWrite)
    FileClose($fh)
    Return $iReplacements
EndFunc  ;==>_TabReplace_File


;===================================================================================================
; Function Name....: _TabReplace_Line
; Description......: Replaces TAB in a row (ByRef) with the number of spaces corresponding to the column.
; Parameter(s).....: $_line     A line of text whose TAB are to be replaced by spaces.
; .................: $_iTabsize TAB size in number of characters. If it is omitted, 4 is used.
; Return Value(s)..: Count of replacements
; Author...........: BugFix (autoit<at>bug-fix.info)
;===================================================================================================
Func _TabReplace_Line(ByRef $_line, $_iTabsize=4)
    If StringRegExp($_line, '^[\r\n]+$') Then Return 0
    If $_line = '' Then Return 0
    StringRegExp($_line, '\t', 1)
    Local $posTab = @extended -1
    If $posTab = -1 Then Return 0
    Local $aTab[50]
    Local $sRepl = '', $iLen = 0, $sumLen = 0, $index = -1
    Local $aRepl[] = ['',' ','  ','   ','    ']
    While $posTab <> -1
        $index += 1
        If $index = UBound($aTab) Then ReDim $aTab[UBound($aTab)+50]
        $iLen = ($_iTabsize - Mod(($posTab + $sumLen -1), $_iTabsize))
        $sumLen += $iLen -1
        $sRepl = $aRepl[$iLen]
        $aTab[$index] = $sRepl
        StringRegExp($_line, '\t', 1, $posTab +1)
        $posTab = @extended -1
    WEnd
    ; Ersetzung
    For $i = 0 To $index
        $_line = StringRegExpReplace($_line, '\t', $aTab[$i], 1)
    Next
    Return $index +1
EndFunc  ;==>_TabReplace_Line

-- TIME_STAMP 2022-03-16 12:37:55 v 0.1


----------------------------------------------------------------------------------------------------
--[[
in...: _line A line of text whose TAB are to be replaced by spaces.
.....: _tabsize TAB size in number of characters. If it is omitted, 4 is used.
out..: The line, with TAB replaced if necessary, and the number of replacements.
]]
----------------------------------------------------------------------------------------------------
TabReplace_Line = function(_line, _tabsize)
    if _line:find('^[\r\n]+$') then return _line, 0 end -- only a line break
    if _line == '' then return _line, 0 end             -- only a empty string
    local posTab = _line:find('\t')
    if posTab == nil then return _line, 0 end           -- no TAB included
    _tabsize = _tabsize or 4 -- default TAB width
    local tTab, s, sRep, iLen, sumLen = {}, ' ', '', 0, 0
    while posTab ~= nil do
        -- calculation replacement string, taking into account characters to be inserted
        iLen = (_tabsize - ((posTab + sumLen -1) % _tabsize))
        sumLen = sumLen + iLen -1            -- total length of the replacements
        sRep = s:rep(iLen)                   -- create replacement string
        table.insert(tTab, sRep)             -- save to table
        posTab = _line:find('\t', posTab +1) -- find next TAB
    end
    local idx = 0
    _line = _line:gsub('\t', function() idx = idx +1 return tTab[idx] end)
    return _line, idx
end
----------------------------------------------------------------------------------------------------


----------------------------------------------------------------------------------------------------
--[[
in...: _file Path of the file whose TAB are to be replaced by spaces.
.....: _tabsize TAB size in number of characters. If it is omitted, 4 is used.
out..: Success true, count-of-replacements
.....: Failure false, 0
]]
----------------------------------------------------------------------------------------------------
TabReplace_File = function(_file, _tabsize)
    local fh = io.open(_file, "rb") -- check if file exists
    if fh == nil then return false, 0 end
    local read = fh:read('*a')
    local lineBreak = read:find('\r')
    if lineBreak ~= nil then lineBreak = string.char(13,10) else lineBreak = string.char(10) end
    local nRepl, sumRepl, newLine, sWrite = 0, 0, '', ''
    fh:seek("set")
    for line in fh:lines() do
        newLine, nRepl = TabReplace_Line(line, _tabsize)
        sWrite = string.format('%s%s%s', sWrite, newLine, lineBreak)
        sumRepl = sumRepl + nRepl
    end
    fh:close()

    -- • file:lines() zerstört das Zeilenende?
    -- • Füge ich kein CRLF an, wird LF verwendet, was dazu führt, dass die berechneten Ersatzstrings für TAB falsch sind.
    -- • Füge ich CRLF an, ist das Ergebnis: "Zeileninhalt" & CR & CR & CRLF.
    -- • Deshalb wird das doppelte CR hier entfernt.
    sWrite = sWrite:gsub('\r\r', '')

    if sumRepl == 0 then return true, 0 end
    fh = io.open(_file, "w+")
    fh:write(sWrite)
    fh:close()
    return true, sumRepl
end
----------------------------------------------------------------------------------------------------

-- TIME_STAMP 2022-03-17 10:43:14 v 0.1
-- Replace TAB in current SciTE buffer



----------------------------------------------------------------------------------------------------
--[[
in...: _line A line of text whose TAB are to be replaced by spaces.
.....: _tabsize TAB size in number of characters. If it is omitted, 4 is used.
out..: The line, with TAB replaced if necessary, and the number of replacements.
]]
----------------------------------------------------------------------------------------------------
TabReplace_Line = function(_line, _tabsize)
    if _line:find('^[\r\n]+$') then return _line, 0 end -- only a line break
    if _line == '' then return _line, 0 end             -- only a empty string
    local posTab = _line:find('\t')
    if posTab == nil then return _line, 0 end           -- no TAB included
    _tabsize = _tabsize or 4 -- default TAB width
    local tTab, s, sRep, iLen, sumLen = {}, ' ', '', 0, 0
    while posTab ~= nil do
        -- calculation replacement string, taking into account characters to be inserted
        iLen = (_tabsize - ((posTab + sumLen -1) % _tabsize))
        sumLen = sumLen + iLen -1             -- total length of the replacements
        sRep = s:rep(iLen)                    -- create replacement string
        table.insert(tTab, sRep)              -- save to table
        posTab = _line:find('\t', posTab +1)  -- find next TAB
    end
    local idx = 0
    _line = _line:gsub('\t', function() idx = idx +1 return tTab[idx] end)
    return _line, idx
end
----------------------------------------------------------------------------------------------------


----------------------------------------------------------------------------------------------------
--[[
Replaces all TAB in the file currently open in SciTE
]]
----------------------------------------------------------------------------------------------------
TabReplace_FileInSciTE = function(_tabsize)
    local caret = editor.CurrentPos
    local fvl = editor.FirstVisibleLine
    local content = ''
    for i=0, editor.LineCount -1 do
        local line = editor:GetLine(i)
        line = TabReplace_Line(line, _tabsize)
        content = content..line
    end
    editor:BeginUndoAction()
    editor:ClearAll()
    editor:InsertText(0, content)
    editor:EndUndoAction()
    editor.CurrentPos = caret
    editor:SetSel(caret, caret)
    editor.FirstVisibleLine = fvl
end
----------------------------------------------------------------------------------------------------


TabReplace_FileInSciTE(4) -- If required: Change the TAB size here