SciTE - Im Skript alle Kommentarzeilen temporär Ausblenden oder Löschen

**BugFix**

Jemand fragte heute nach der Möglichkeit Kommentare im Skript Auszublenden. Also habe ich diese Funktion mal erstellt.

- Das angehängte Skript CommentsDelHide.lua in den Ordner ..\AutoIt3\SciTE\LUA\ abspeichern.
- Die Datei ..\USER\SciTEUser.properties öffnen
- Oberhalb von:

Code

#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
# START: DO NOT CHANGE ANYTHING AFTER THIS LINE     #-#-#-#-#

einfügen:

Code

# 49 Delete Comments
command.name.49.*=Delete Comments
command.mode.49.*=subsystem:lua,savebefore:yes
command.is.filter.49.*.au3=0
command.49.*=CommentsDelete
command.shortcut.49.*.au3=Ctrl+Shift+L


# 48 Hide Comments
command.name.48.*=Hide Comments
command.mode.48.*=subsystem:lua,savebefore:yes
command.is.filter.48.*.au3=0
command.48.*=CommentsHide
command.shortcut.48.*.au3=Ctrl+Shift+H

Alles anzeigen

Habt ihr noch keine Einträge dort, ist die erste freie Nummer ( statt der 48 ) die 36.

In der Datei ..\AutoIt3\SciTE\LUA\SciTEStartup.lua am Ende folgenden Eintrag hinzufügen:

Code

LoadLuaFile("CommentsDelHide.lua")

Ausblenden dann mit Ctrl+Shift+H (oder einem HotKey eurer Wahl, den ihr hier definieren könnt) im AutoIt-Skript.
Die Kommentare können wieder eingeblendet werden durch:
- Neu Laden der Datei (Menü Start) oder
- Klick auf ein anderes Tab in SciTE und zurück

Zum Löschen aller Kommentarzeilen den HotKey Strg+Shift+L (oder einem HotKey eurer Wahl) nutzen.

Edit:Strg+Shift+L solltet ihr nicht verwenden - der Shortcut ist vorbelegt zum Löschen von Zeilen, also ändern.

Das ist das Skript:

Spoiler anzeigen

Code

-- TIME_STAMP   2011-12-30 20:47:47   v 0.2




--------------------------------------------------------------------------------
-- CommentsDelHide()
--
-- Ausblenden (Standard) oder Löschen von Kommentarzeilen im aktuellen Skript
--
-- Ausgeblendete Kommentare werden wieder sichtbar durch Neuladen der Datei (per Menü Datei od. bei Wechsel auf anderen Tab und zurück)
--
-- PARAMAETER..[optional]..: _fDelete - false=HIDE COMMENTS (Standard) / true=DELETE COMMENTS
--------------------------------------------------------------------------------
function CommentsDelHide(_fDelete)
	if _fDelete == nil then _fDelete = false end
	local function IsComment(pos) local tComment = {1,2} if tComment[editor.StyleAt[pos]] == nil then return false else return true end end
	local function IsWS(pos) if editor.StyleAt[pos] == 0 then return true else return false end end
	local function GetRange(tTable)
		local tRange = {} iStart = ''
		if table.getn(tTable) == 0 then return nil end
		for i = 1, table.getn(tTable) do
			if iStart == '' then iStart = tTable[i] end
			if i < table.getn(tTable) then
				if tTable[i+1] ~= tTable[i] +1 then table.insert(tRange, {iStart, tTable[i]}) iStart = '' else
					if i+1 == table.getn(tTable) then table.insert(tRange, {iStart, tTable[i+1]}) break end end
			else table.insert(tRange, {tTable[i], tTable[i]}) end
		end
		return tRange
	end
	local function PreZero(sText, iMax) return string.rep('0', iMax - string.len(sText))..sText end
	editor:GotoLine(0)
	local n = 0
	local tCommLines = {}
	while editor.LineCount > n do
		editor:GotoLine(n)
		if IsComment(editor.CurrentPos) then
			table.insert(tCommLines, n)
		elseif IsWS(editor.CurrentPos) then
			editor:WordRight()
			if IsComment(editor.CurrentPos) then
				n = editor:LineFromPosition(editor.CurrentPos)
				table.insert(tCommLines, n)
			end
		end
		n = n +1
	end
	editor:BeginUndoAction()
	if _fDelete then
		if table.getn(tCommLines) > 0 then
			for i = table.getn(tCommLines), 1, -1 do
				editor:GotoLine(tCommLines[i])
				editor:LineDelete()
			end
		end
	else
		local tRanges = GetRange(tCommLines)
		if tRanges == nil then print('!++ NO COMMENT LINES DETECT ++') end
		local max = string.len(tRanges[table.getn(tRanges)][2])
		for i = 1, table.getn(tRanges) do
			print('++ HIDE LINE'..'....'..PreZero(tostring(tRanges[i][1]), max)..' TO '..PreZero(tostring(tRanges[i][2]), max)..' ++')
			editor:HideLines(tRanges[i][1],tRanges[i][2])
		end
	end
	editor:EndUndoAction()
end  -- CommentsDelHide()


function CommentsHide()
	CommentsDelHide()
end


function CommentsDelete()
	CommentsDelHide(true)
end

Alles anzeigen