SciTE - kontinuierlicher Kommentarmodus für AutoIt (auch für SciTE-RU)

**BugFix**

Zitat von BigRox

ContinuousComment.NewLine.WithEnter.Enable.*.au3'

Hier mußt du natürlich den Wert für diese propertie anhängen (steht auch so in der Beschreibung), es muß also so aussehen:
ContinuousComment.NewLine.WithEnter.Enable.*.au3=1

Und die Funktion hast du etwas zerlegt, so ist sie kpl. und funktionsfähig:

Spoiler anzeigen

Code

function CommentHitKey:OnKey(_keycode, _shift)
	if fCommentModeOn then                                       -- fortsetzender Kommentarmodus ist aktiv
		local fBreak = isLFpos()
		if fIsEnter then
			fIsEnter = false
			local s, e = getSpaces(), ''
			if charBreak2:len() > 0 then e = charBreak2..' ' end
			editor:InsertText(editor.CurrentPos, s..charComm..e)
			editor:LineEnd()
		end
		if _keycode == 13 then
			fIsEnter = true
			editor:InsertText(editor.CurrentPos, ' '..charBreak1)
			editor:LineEnd()
		elseif _keycode == 32 and fBreak then                    -- Leerzeichen u. Position für Zeilenwechsel erreicht (automatischer Zeilenwechsel)
			fNext = true                                               -- Marker neue Zeile
		elseif _keycode == 40 then                                  -- Pfeil_ab (manueller Zeilenwechsel)
			fNext = true  fIsNewLine = true                            -- Marker neue Zeile und Marker in-neuer-Zeile
		elseif fNext then                                           -- in neuer Zeile ==> Kommentarzeichen einfügen
			fNext = false
			if not fIsNewLine then                                     -- bei automatischem Wechsel (wenn in den properties ein Umbruchsymbol definiert):
				editor:InsertText(editor.CurrentPos, charBreak1)          -- am Ende Umbruchsymbol aus den properties anhängen
			end
			ContinuousComment()
		end
	end
	return nil
end

Alles anzeigen

BigRox

Hallo BugFix,

da habe ich wohl etwas gepennt :D.

Aber es funktioniert noch nicht ganz.

In meiner "SciTEUser.properties"-Datei steht nun das hier:

Spoiler anzeigen

Code

ContinuousComment.LFpos.*.au3=170
ContinuousComment.Chars.*.au3=;
ContinuousComment.BreakCharsLast.*.au3=˜ ˜ ›
ContinuousComment.BreakCharsNext.*.au3=›
ContinuousComment.NewLine.WithEnter.Enable.*.au3=1


# 36 Comment Continuous
command.name.36.*=Activate Comment Mode
command.36.*=CommentModeActivate
command.mode.36.*=subsystem:lua,savebefore:no
command.shortcut.36.*=Ctrl+Shift+K

Alles anzeigen

Und in der Script-Datei steht nun das:

Spoiler anzeigen

Code

CommentHitKey = EventClass:new(Common)






local ext = props['FileExt']


local lfPos = tonumber(props['ContinuousComment.LFpos.*.' .. ext])


local charComm = props['ContinuousComment.Chars.*.' .. ext]..' '


local charBreak1 = props['ContinuousComment.BreakCharsLast.*.' .. ext]


local charBreak2 = props['ContinuousComment.BreakCharsNext.*.' .. ext]


local fNewLine = false


if tonumber(props['ContinuousComment.NewLine.WithEnter.Enable.*.' .. ext]) == 1 then fNewLine = true end






local fCommentModeOn, fNext, fIsNewLine, fIsEnter = false, false, false, false


local lastLine, column, col






local getSpaces = function()


	col = editor.Column[editor.CurrentPos]


	local s = ''


	if col < column then


s = string.rep(' ', column - col)


	end


	return s


end






local isLFpos = function()


	local pos = editor.Column[editor.CurrentPos]


	if pos >= lfPos then


return true


	else


return false


	end


end






local ContinuousComment = function()


	local autoBreak, w = '', ''


	if not fIsNewLine then


local pos = editor.Column[editor.CurrentPos]


if pos > lfPos then


editor:WordLeftExtend()


w = editor:GetSelText()


editor:ReplaceSel('')


end


editor:GotoLine(editor:LineFromPosition(editor.CurrentPos) +1)


if charBreak2:len() > 0 then autoBreak = charBreak2..' ' end


	else


fIsNewLine = false


	end


	local strAdd = ' '


	editor:LineEnd()


	strAdd = getSpaces() or strAdd


	editor:InsertText(editor.CurrentPos, strAdd..charComm..autoBreak..w)


	editor:LineEnd()


end






function CommentHitKey:OnKey(_keycode, _shift)


local Keycode = _keycode or nil -- Sinnfrei, nur zum Abbremsen <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


	if fCommentModeOn then -- fortsetzender Kommentarmodus ist aktiv


local fBreak = isLFpos()


if fIsEnter then


fIsEnter = false


local s, e = getSpaces(), ''


if charBreak2:len() > 0 then e = charBreak2..' ' end


editor:InsertText(editor.CurrentPos, s..charComm..e)


editor:LineEnd()


end


if _keycode == 13 then


fIsEnter = true


editor:InsertText(editor.CurrentPos, ' '..charBreak1)


editor:LineEnd()


elseif _keycode == 32 and fBreak then -- Leerzeichen u. Position für Zeilenwechsel erreicht (automatischer Zeilenwechsel)


fNext = true -- Marker neue Zeile


elseif _keycode == 40 then -- Pfeil_ab (manueller Zeilenwechsel)


fNext = true fIsNewLine = true -- Marker neue Zeile und Marker in-neuer-Zeile


elseif fNext then -- in neuer Zeile ==> Kommentarzeichen einfügen


fNext = false


if not fIsNewLine then -- bei automatischem Wechsel (wenn in den properties ein Umbruchsymbol definiert):


editor:InsertText(editor.CurrentPos, charBreak1) -- am Ende Umbruchsymbol aus den properties anhängen


end


ContinuousComment()


end


	end


	return nil


end






function CommentModeActivate()


	if not fCommentModeOn then


editor:LineEnd()


column = editor.Column[editor.CurrentPos]


editor.Cursor = 8 -- Cursor wechseln (Hand)


editor:InsertText(editor.CurrentPos, charComm)


editor:LineEnd()


	else


editor.Cursor = -1 -- Cursor zurück auf Standard


	end


	fCommentModeOn = not fCommentModeOn


end

Alles anzeigen

Nun habe ich folgendes Verhalten:
Der Kommentarmodus lässt sich nun mit dem Hotkey ein- und ausschalten.
(nach dem ausschalten sollte der Cursor aber in der folgenden Zeile stehen, jetzt muss man immer zuerst ausschalten und dann erst Enter betätigen).
Ein automatischer Zeilenwechsel findet jedoch nicht statt.
Mit der Enter-Taste kann ich eine neue Kommentarzeile, mit den vorgegebenen Zeichen, beginnen.
Aber wenn ich einen Manuellen Zeilenwechsel mit der Pfeilab-Taste erzeugen will, geschieht entweder das hier:
; gggggggggggggggggggg
ggggggggggggggg

oder es geschieht das:
; gggggggggggggggggggg; gggggggggggggggggggg; gggggggggggggggggggg

Das macht die Funktion wie sie will.
Dabei ist es egal ob man dies hier:
local Keycode = _keycode or nil -- Sinnfrei, nur zum Abbremsen <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
ins Script einfügt oder nicht.

Da ist wohl noch etwas anderes falsch.

MfG:

BigRox

Edit BugFix: Leerzeilen gekillt und Tags gesetzt.

**BugFix**

1. Bitte setze Code in Code-Tags (wozu haben wir die im Editor?). Code als Plain-Text läßt sich beim besten Willen nicht lesen.

2. Deine SciTEStartup.lua sollte etwa Folgendes enthalten (die zwingend erforderlichen Einträge habe ich mit "X" markiert:

Spoiler anzeigen

Code

-- A table listing all loaded files.
X LoadLuaFileList = { }
--------------------------------------------------------------------------------
-- LoadLuaFile(file, directory)
--
-- Helper function for easily loading Lua files.
--
-- Parameters:
--	file - The name of a Lua file to load.
--	directory - If specified, file is looked for in that directory.  By default,
-- 		this directory is $(SciTEDefaultHome)\Lua.
--------------------------------------------------------------------------------
X function LoadLuaFile(file, directory)
	if directory == nil then
		directory = props["SciteDefaultHome"] .. "\\Lua\\"
	end
	table.insert(LoadLuaFileList, directory .. file)
	dofile(directory .. file)
end	-- LoadLuaFile()


-- Load all the Lua files.
X LoadLuaFile("Class.lua")	-- Always load first.
X LoadLuaFile("Common.lua")	-- Always load second.
LoadLuaFile("AutoItPixmap.lua")
LoadLuaFile("AutoHScroll.lua")
LoadLuaFile("AutoItAutoComplete.lua")
LoadLuaFile("LoadSession.lua")
LoadLuaFile("AutoItIndentFix.lua")
LoadLuaFile("EdgeMode.lua")
LoadLuaFile("SmartAutoCompleteHide.lua")
LoadLuaFile("Tools.lua")
X LoadLuaFile("AutoItTools.lua")
LoadLuaFile("AutoItGotoDefinition.lua")


-- Start up the events (Calls OnStartup()).
X EventClass:BeginEvents()


LoadLuaFile("CommentsDelHide.lua")
LoadLuaFile("EdgingSelection.lua")
LoadLuaFile("EditOperations.lua")
LoadLuaFile("AutoStampSaveVersion.lua")
LoadLuaFile("LUA_TEST.lua")
LoadLuaFile("MyDebug.lua")
LoadLuaFile("AU3FuncsShow.lua")
LoadLuaFile("HiResTimer.lua")
LoadLuaFile("ManageIncludes.lua")
LoadLuaFile("CamelJump.lua")
LoadLuaFile("script_sql.lua")
X LoadLuaFile("ContinuousComments.lua")
LoadLuaFile("VarGetTipp.lua")

Alles anzeigen

Verwende mal die OnKey-Funktion mit Konsolenausgabe:

Spoiler anzeigen

Code

function CommentHitKey:OnKey(_keycode, _shift)
	if fCommentModeOn then                                       -- fortsetzender Kommentarmodus ist aktiv
		local fBreak = isLFpos()
print('Umbruchposition erreicht:', fBreak)                         -- Gibt an ob Umbruchposition erreicht true/false
		if fIsEnter then
			fIsEnter = false
			local s, e = getSpaces(), ''
			if charBreak2:len() > 0 then e = charBreak2..' ' end
			editor:InsertText(editor.CurrentPos, s..charComm..e)
			editor:LineEnd()
		end
		if _keycode == 13 then
print('<ENTER>')                                                            -- Enter betätigt
			fIsEnter = true
			editor:InsertText(editor.CurrentPos, ' '..charBreak1)
			editor:LineEnd()
		elseif _keycode == 32 and fBreak then                    -- Leerzeichen u. Position für Zeilenwechsel erreicht (automatischer Zeilenwechsel)
print('Umbruchposition und Space ==> jetzt muß Umbruch erfolgen')
			fNext = true                                               -- Marker neue Zeile
		elseif _keycode == 40 then                                  -- Pfeil_ab (manueller Zeilenwechsel)
			fNext = true  fIsNewLine = true                            -- Marker neue Zeile und Marker in-neuer-Zeile
print('<Pfeil Ab> gedrückt')
		elseif fNext then                                           -- in neuer Zeile ==> Kommentarzeichen einfügen
			fNext = false
			if not fIsNewLine then                                     -- bei automatischem Wechsel (wenn in den properties ein Umbruchsymbol definiert):
				editor:InsertText(editor.CurrentPos, charBreak1)          -- am Ende Umbruchsymbol aus den properties anhängen
			end
print('Jetzt wird Kommentarmarkierung in Folgezeile/od. nach Pfeil-ab in aktueller Zeile geschrieben')
			ContinuousComment()
		end
	end
	return nil
end

Alles anzeigen

Dann sollte man den Fehler besser lokalisieren können.

BigRox

Hallo BugFix,
Zu 1.
Leider habe ich des öfteren einige Probleme mit den von dir genannten Code-Tags.
Beim schreiben sehe ich die auch, in der Vorschau sieht alles noch richtig aus, nur wenn ich den Post abgesendet habe sieht einiges anders aus.
Z.B. wenn ich im Editor einen Smiley einfüge so wird der auch in der Vorschau richtig angezeigt, nur wenn ich den Post abgesendet habe erscheint an dieser Stelle nur der Text z.B. ROFL
Und mit eingefügtem Code sieht es auch so aus, der wird öfters in Plain-Text umgewandelt.

Zu 2.
Die "SciTEStartuo.lua und das Script habe ich so geändert, wie du es mir beschriebe hast.
Ich habe das Script usw. jetzt auch mal auf einem anderen Rechner installiert.
Das Betriebssystem darauf ist auch Windows XP Pro. SP3 aber das Teil ist einiges schneller als mein Notebook.
Ergebnis: Auf beiden Rechnern sieht der Fehler gleich aus.

Wenn ich jetzt SciTE mit einem Testscript starte und dann mit dem Hotkey in den Kommentarmodus wechsele, so ändert sich das Cursorsymbol richtig
und eine neue Zeile beginnend mit ; gefolgt von einem Leerzeichen wird angezeigt.
Wen ich da Text eingebe, so kann ich eingeben soviel ich will, es erscheint keine Konsolenausgabe.
Auch wenn ich die Pfeiltaste oder die Enter-Taste betätige erscheint nichts im Konsolenfenster. Nur entweder erscheint ein ; aber kein Zeilenwechsel, oder es findet zwar ein Zeilenwechsel statt, aber der Text erscheint so als wenn man den Kommentarmodus ausgeschaltet hätte, aber das Cursorsymbol ändert sich nicht.

Erst wenn ich den Hotkey nochmals betätige (also den Kommentarmodus eigentlich ausschalte) tut sich etwas.
Das Cursorsymbol ändert sich zwar auch nicht, aber erst jetzt wird etwas im Konsolenfenster angezeigt.
Wenn ich jetzt ein Zeichen eingebe erscheint bis zur angegeben Zeichenzahl "Umbruchposition erreicht false" danach "Umbruchposition erreicht true".
Wenn die Umbruchposition erreicht ist und ich ein Leerzeichen eingebe erscheint "Umbruchposition und Space ==> jetzt muss Umbruch erfolgen", tut er aber nicht.
Wenn ich die Pfeiltaste betätige und wenn ich dann ein weiteres Zeichen eingebe, wird "Umbruchposition erreicht true" und "Jetzt wird Kommentarmarkierung in die Folgezeile/oder nach Pfeil-ab in aktueller Zeile geschrieben" angezeigt und danach kommt irgendetwas, Die Kommentarmarkierung erscheint oder auch nicht, ein Zeilenwechsel findet nur Zufällig statt usw.
Genauso ist es bei betätigen der Enter-Taste, es wird zwar "" und danach "Umbruchposition erreicht true" angezeigt, aber das Ergebnis in SciTE ist reiner Zufall.
(Meistens gibt es zwar einen Zeilenwechsel aber kein ; (als wenn der Kommentarmodus ausgeschaltet wäre) und das Symbol ändert sich nicht).

Hoffentlich hilft das etwas um den Fehler zu finden.

MfG:
BigRox

Cheater Dieter

Zitat von BigRox

Leider habe ich des öfteren einige Probleme mit den von dir genannten Code-Tags.
Beim schreiben sehe ich die auch, in der Vorschau sieht alles noch richtig aus, nur wenn ich den Post abgesendet habe sieht einiges anders aus.
Z.B. wenn ich im Editor einen Smiley einfüge so wird der auch in der Vorschau richtig angezeigt, nur wenn ich den Post abgesendet habe erscheint an dieser Stelle nur der Text z.B. ROFL
Und mit eingefügtem Code sieht es auch so aus, der wird öfters in Plain-Text umgewandelt.

Du nutzt Opera, oder? Die von WoltLab sollten dringend mal dafür sorgen, dass man den Editor endlich mal gescheit in allen Browsern nutzen kann :pinch: ...

BigRox

Hallo Cheater Dieter,
Genau, ich benütze den Opera 11.61
Übrigens: mit dem Forum von "Win-Lite Forum" habe ich auch diese Probleme, die benützten auch die Forensoftware von WoltLab.
Ich habe aber keinerlei Lust o.ä. auf einen anderen Browser umzusteigen, nur weil einige Programmierer anscheinend nicht akzeptieren wollen, dass es da auch noch den Opera-Browser gibt und es einige Leute gibt, die den auch benutzen (z.B. Übersetzungsseite von AutoIt, die funktioniert nur mit Firefox oder IE).

Übrigens: heute sind die Symbole usw. wieder einmal ganz weg, gestern waren sie noch da.

MfG:
BigRox