Skript Speichern mit TimeStamp

1. offizieller Beitrag

BugFix

aka McBarby

Reaktionen

8

Beiträge

10.982
21. April 2011 um 14:47

Offizieller Beitrag
- #1
Hi,
da bei Skripten ja keine automatische Versionsfortschreibung vorhanden ist und ich meine Skripte auf mehreren PC und Sticks hin- und herschleppe ist es manchmal etwas schwierig, die Übersicht zu behalten, welche Version denn die aktuelle ist.
Darum habe ich mir überlegt, einfach bei Bedarf eine Funktion "Speichern mit TimeStamp" in SciTE zu nutzen.
Sieht dann so aus, dass am Skriptanfang eine Region eingefügt wird:
[autoit]
#Region - TimeStamp
; 2011-04-21 14:17:49
#EndRegion
[/autoit]
bzw. wenn schon vorhanden wird die Zeit aktualisiert.
2 Probleme habe ich derzeit noch:
1.
Ist das zu speichernde Skript vorher editiert wurden erscheint eine Sicherheitsabfrage zum Speichern. Sicher könnte ich das Fenster abfangen und automatisiert klicken, aber das kanns ja nicht sein. Schließlich popt das Fenster ja beim händischen Speichern auch nicht auf und ich greife direkt auf das Scintilla-Menü: Speichern zu.
Bevor ich überhaupt auf das aktuelle Skript zugreifen kann, MUSS es gespeichert werden über die Anweisung "command.save.before.40.*.au3=1"
Dann kann ich mir auch das Speichern am Anfang meines Skriptes sparen.
2.
Alle Versuche die Parameter für den zu selektierenden Bereich zu setzen bleiben ohne Erfolg. Wenn bereits ein Zeitstempel vorhanden ist, muß ich die Zeile selektieren und die Selektion mit der neuen Zeit ersetzen.
Im Moment löse ich das so, dass ich in die entsprechende Zeile wechsle an Spalte 1 und dort die neue Zeit einfüge. Anschließen steht der Cursor am Ende des eingefügten Inhalts - vor der alten Zeit. Mithilfe von Send() :wacko: markiere ich nun den Rest und lösche. Finde ich allerdings wenig prickelnd.
Mit Hilfe von Jos gelöst.
~~Falls ihr Ideen habt - immer her damit.~~
Einbindung wieder über die SciTEUser.properties

Code

# END => DO NOT CHANGE ANYTHING BEFORE THIS LINE #-#-#-#-#-# #40 Save With Time Stamp command.40.*.au3="$(autoit3dir)\autoit3.exe" "C:\SHARE\Code_AutoIt\TEST\SaveWithTimeStamp.au3" command.name.40.*.au3=SaveWithTimeStamp command.save.before.40.*.au3=1 command.is.filter.40.*.au3=1 command.shortcut.40.*.au3=Ctrl+Shift+Alt+T

Pfad und Nummer natürlich anpassen.

Spoiler anzeigen

[autoit]

#cs ==== Aufruf über SciTE Menü (SciTEUser.properties entry:) ===
[/autoit] [autoit][/autoit] [autoit]
#40 Save With Time Stamp
command.40.*.au3="$(autoit3dir)\autoit3.exe" "C:\SHARE\Code_AutoIt\TEST\SaveWithTimeStamp.au3"
command.name.40.*.au3=SaveWithTimeStamp
command.save.before.40.*.au3=1
command.is.filter.40.*.au3=1
command.shortcut.40.*.au3=Ctrl+Shift+Alt+T
[/autoit] [autoit][/autoit] [autoit]
#ce ==============================================================
[/autoit] [autoit][/autoit] [autoit]
Opt("WinSearchChildren", 1)
Global Const $WM_COPYDATA = 74, $IDM_SAVE = 106
Global $My_Hwnd, $Scite_hwnd, $My_Dec_Hwnd, $SciTECmd, $sReceive = ''
Local $sFile, $sSelection, $iLine
[/autoit] [autoit][/autoit] [autoit]
_StartUpSciTEInterface()
[/autoit] [autoit][/autoit] [autoit]
SendSciTE_Command($My_Hwnd, $Scite_hwnd, "goto:1,1")
SendSciTE_Command($My_Hwnd, $Scite_hwnd, "find:#Region - TimeStamp")
SendSciTE_Command($My_Hwnd, $Scite_hwnd, "askproperty:CurrentSelection")
$sSelection = StringRegExp($sReceive, '(?::\d+:macro:stringinfo:)(.*)', 1)
If @error Then Exit
[/autoit] [autoit][/autoit] [autoit]
If $sSelection[0] <> "#Region - TimeStamp" Then
SendSciTE_Command($My_Hwnd, $Scite_hwnd, "insert:" & _
"#Region - TimeStamp\n" & _
"; " & @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & "\n" & _
"#EndRegion\n\n" & $sSelection[0])
Else
SendSciTE_Command($My_Hwnd, $Scite_hwnd, "askproperty:SelectionStartLine")
$iLine = StringRegExp($sReceive, '(?::\d+:macro:stringinfo:)(\d+)', 1)
If @error Then Exit
SendSciTE_Command($My_Hwnd, $Scite_hwnd, "goto:" & $iLine[0] +1 & ",1")
SendSciTE_Command($My_Hwnd, $Scite_hwnd, "extender:dostring editor:LineDelete()")
SendSciTE_Command($My_Hwnd, $Scite_hwnd, "insert:" & _
"; " & @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & '\n')
EndIf
[/autoit] [autoit][/autoit] [autoit]
SendSciTE_Command($My_Hwnd, $Scite_hwnd, "menucommand:" & $IDM_SAVE)
[/autoit] [autoit][/autoit] [autoit]
Func _StartUpSciTEInterface()
$Scite_hwnd = WinGetHandle("DirectorExtension")
$My_Hwnd = GUICreate("SciTE interface", 400, 600, 10, 10)
$My_Dec_Hwnd = Dec(StringTrimLeft($My_Hwnd, 2))
GUIRegisterMsg($WM_COPYDATA, "MY_WM_COPYDATA")
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func SendSciTE_Command($My_Hwnd, $Scite_hwnd, $sCmd)
$sCmd = ":" & $My_Dec_Hwnd & ":" & $sCmd
ConsoleWrite('-->SendSciTE_Command >' & $sCmd & @LF)
Local $CmdStruct = DllStructCreate('Char[' & StringLen($sCmd) + 1 & ']')
DllStructSetData($CmdStruct, 1, $sCmd)
Local $COPYDATA = DllStructCreate('Ptr;DWord;Ptr')
DllStructSetData($COPYDATA, 1, 1)
DllStructSetData($COPYDATA, 2, StringLen($sCmd) + 1)
DllStructSetData($COPYDATA, 3, DllStructGetPtr($CmdStruct))
DllCall('User32.dll', 'None', 'SendMessage', 'HWnd', $Scite_hwnd, _
'Int', $WM_COPYDATA, 'HWnd', $My_Hwnd, _
'Ptr', DllStructGetPtr($COPYDATA))
EndFunc ;==>SendSciTE_Command
[/autoit] [autoit][/autoit] [autoit]
Func MY_WM_COPYDATA($hWnd, $msg, $wParam, $lParam)
Local $COPYDATA = DllStructCreate('Ptr;DWord;Ptr', $lParam)
$SciTECmdLen = DllStructGetData($COPYDATA, 2)
Local $CmdStruct = DllStructCreate('Char[255]', DllStructGetData($COPYDATA, 3))
$SciTECmd = StringLeft(DllStructGetData($CmdStruct, 1), $SciTECmdLen)
If StringInStr($SciTECmd, ":macro:stringinfo:", 1) Or _
StringInStr($SciTECmd, ":filename:", 1) Then
If $sReceive <> $SciTECmd Then $sReceive = $SciTECmd
EndIf
ConsoleWrite('<--Receive' & $SciTECmd & @LF)
EndFunc ;==>MY_WM_COPYDATA
[/autoit]

Edit 22.04.11: Habe auch mal eine Anfrage im EN-Forum gepostet. ==> brachte die Lösung
Dateien

SaveWithTimeStamp.au3 8,2 kB – 247 Downloads

MfG BugFix
Mein Git | Meine UDF | Array-Tutorial | Bit-Tutorial | Dll-Tutorial | RegExp-Beispiel

3 Mal editiert, zuletzt von BugFix (22. April 2011 um 12:48)
Nächster offizieller Beitrag
BugFix

aka McBarby

Reaktionen

8

Beiträge

10.982
22. April 2011 um 12:49

Offizieller Beitrag
- #2
Die Anfrage im EN-Forum war erfolgreich, das Tool funktioniert nun, wie gewünscht.
MfG BugFix
Mein Git | Meine UDF | Array-Tutorial | Bit-Tutorial | Dll-Tutorial | RegExp-Beispiel
Vorheriger offizieller Beitrag

Nächster offizieller Beitrag

22. April 2011 um 16:42

#3

Schöne Idee .
Eine mögliche LUA Lösung. Zugegeben, sehr simpel gehalten.

"C:\Program Files\AutoIt3\SciTE\LUA\SaveWithTimestamp.lua"

Code

function OnBeforeSave(fname)
	local ext = props['FileExt']
	local au3_ext = 'au3'
	if ext == au3_ext then
		InsertTimestamp(fname)
	end
end


function InsertTimestamp(fname)
local s = editor:GetText()
	local t =  "#Region - Timestamp\r\n;"..os.date("%Y-%m-%d %H:%M:%S").."\r\n#EndRegion"
	local a,b = editor:findtext("#Region - TimeStamp", SCFIND_REGEXP)
	local x,y = editor:findtext("#EndRegion", SCFIND_REGEXP)
	editor:BeginUndoAction()
	if a then
		if y then
			editor:SetSel(a,y)
			editor:ReplaceSel(t)
		end
	else
	editor:SetText(t .. "\r\n\r\n" .. s)
	end
	editor:EndUndoAction()
end

Alles anzeigen

"an C:\Program Files\AutoIt3\SciTE\LUA\SciTEStartup.lua anhängen"

Code

LoadLuaFile("SaveWithTimestamp.lua")

edit: SciTE danach neu starten.

Raupi

Mjölnir

Reaktionen

1

Beiträge

4.093
22. April 2011 um 16:54

Offizieller Beitrag
- #4
BugFix , dein Script funzt einwandfrei
i2c. Dein Luascript hat bei mir keine Funktion
MfG Raupi
Meine UDF´S:
WM_Notify per Funktion UDF zum Anzeigen von Hilfetexten und einer Uhr in der Statusbar.Anzeige einer Uhr in der Menüzeile
GIF,JPG und BMP Dateien aus Resource laden. Array aus Dll-Datei laden UDF zum schreiben und lesen von Array´s in(aus) ein(em) INI-File
LUA Script zum erstellen eines Funktionsheaders.
Tipp: Zum bearbeiten von DLL Dateien kann man den XN Resource Editor benutzen, ist besser als Reshacker

Zitat von Sokrates

"Wer weiß, dass er nichts weiß, weiß mehr als der, der nicht weiß, dass er nichts weiß."

Zitat von Werner Krauß

Der Witz ist das Erdgeschoss des Humors, die Satire der Erste Stock, die Ironie der Zweite, der Sarkasmus das Mansardenstübchen.

Einmal editiert, zuletzt von Raupi (22. April 2011 um 17:01)
Vorheriger offizieller Beitrag

Nächster offizieller Beitrag
i2c

/* back home */

Beiträge

1.581
22. April 2011 um 17:01
- #5
Hast du SciTE neu gestartet?
MfG i2c
Als Gott sah, dass er die Menscheit nicht mit Seuche, Pest und Sintflut bestrafen konnte, schickte er mich!
[SciTE/Notepad++] Send To Pastebin/Get From Pastebin
[SciTE/Notepad++] Regexp Tester
Raupi

Mjölnir

Reaktionen

1

Beiträge

4.093
22. April 2011 um 17:02

Offizieller Beitrag
- #6
Ja, habe ich. Mehrfach sogar.
Edit:
Gibt es eigentlich einen Befehl, damit ich aus dem LuaScript heraus in die Console schreiben kann?
MfG Raupi
Meine UDF´S:
WM_Notify per Funktion UDF zum Anzeigen von Hilfetexten und einer Uhr in der Statusbar.Anzeige einer Uhr in der Menüzeile
GIF,JPG und BMP Dateien aus Resource laden. Array aus Dll-Datei laden UDF zum schreiben und lesen von Array´s in(aus) ein(em) INI-File
LUA Script zum erstellen eines Funktionsheaders.
Tipp: Zum bearbeiten von DLL Dateien kann man den XN Resource Editor benutzen, ist besser als Reshacker

Zitat von Sokrates

"Wer weiß, dass er nichts weiß, weiß mehr als der, der nicht weiß, dass er nichts weiß."

Zitat von Werner Krauß

Der Witz ist das Erdgeschoss des Humors, die Satire der Erste Stock, die Ironie der Zweite, der Sarkasmus das Mansardenstübchen.

Einmal editiert, zuletzt von Raupi (22. April 2011 um 17:08)
Vorheriger offizieller Beitrag

Nächster offizieller Beitrag
i2c

/* back home */

Beiträge

1.581
22. April 2011 um 17:15
- #7
Hab's nocin einer frischen AutoIt Installation getestet, funktioniert.
- das Skriptmuss im UNterordner LUA liegen
- das Skript muss mit dem selben Namen in die SciTEStartup.lua am Ende eingetragen werden
- das Skript reagiert nur auf Speicherereignisse von .au3 Dateien
- bestehende Timestamps werden ersetzt. Gibt es keinen, wird einer am Dateianfang gesetzt.

Zitat

Gibt es eigentlich einen Befehl, damit ich aus dem LuaScript heraus in die Console schreiben kann?

print("Hallo Welt")
MfG i2c
Als Gott sah, dass er die Menscheit nicht mit Seuche, Pest und Sintflut bestrafen konnte, schickte er mich!
[SciTE/Notepad++] Send To Pastebin/Get From Pastebin
[SciTE/Notepad++] Regexp Tester
Raupi

Mjölnir

Reaktionen

1

Beiträge

4.093
22. April 2011 um 17:33

Offizieller Beitrag
- #8
Habe alles so gamacht wie beschrieben, funzt aber trotzdem nicht. :wacko:
Ich installiere mal ein frisches Scite und teste damit.... melde mich später noch mal.
Entweder bin ich zu dumm dazu, oder es funzt unter Win7 nicht.
Habe jetzt eine jungfräuliche Scite Installation und es geht immer noch nicht.

Edit:

Zitat von i2c

- das Skript muss mit dem selben Namen in die SciTEStartup.lua am Ende eingetragen werden

Wer lesen kann ist klar im Vorteil, hatte es vor

Code

EventClass:BeginEvents()

eingefügt
Läuft jetzt einwandfrei
MfG Raupi
Meine UDF´S:
WM_Notify per Funktion UDF zum Anzeigen von Hilfetexten und einer Uhr in der Statusbar.Anzeige einer Uhr in der Menüzeile
GIF,JPG und BMP Dateien aus Resource laden. Array aus Dll-Datei laden UDF zum schreiben und lesen von Array´s in(aus) ein(em) INI-File
LUA Script zum erstellen eines Funktionsheaders.
Tipp: Zum bearbeiten von DLL Dateien kann man den XN Resource Editor benutzen, ist besser als Reshacker

Zitat von Sokrates

"Wer weiß, dass er nichts weiß, weiß mehr als der, der nicht weiß, dass er nichts weiß."

Zitat von Werner Krauß

Der Witz ist das Erdgeschoss des Humors, die Satire der Erste Stock, die Ironie der Zweite, der Sarkasmus das Mansardenstübchen.

3 Mal editiert, zuletzt von Raupi (23. April 2011 um 10:23)
Vorheriger offizieller Beitrag

Nächster offizieller Beitrag

26. April 2011 um 10:06

Offizieller Beitrag

#9

Ich habe das Skript von i2c etwas erweitert, damit der Cursor nach dem TimeStamp setzen in der vorher aktuellen Zeile verbleibt und diese sichtbar ist.
Ist doch etwas lästig, wenn jedes mal der Cursor in Zeile 1 landet.

SaveWithTimeStamp.lua

Code

function OnBeforeSave(fname)
	local ext = props['FileExt']
	local au3_ext = 'au3'
	if ext == au3_ext then
		InsertTimestamp(fname)
	end
end


function InsertTimestamp(fname)
	local line = editor:LineFromPosition(editor.CurrentPos)
	local s = editor:GetText()
	local t =  "#Region - Timestamp\r\n; "..os.date("%Y-%m-%d %H:%M:%S").."\r\n#EndRegion"
	local a,b = editor:findtext("#Region - TimeStamp", SCFIND_REGEXP)
	local x,y = editor:findtext("#EndRegion", SCFIND_REGEXP)
	editor:BeginUndoAction()
	if a then
		if y then
			editor:SetSel(a,y)
			editor:ReplaceSel(t)
		end
	else
		editor:SetText(t .. "\r\n\r\n" .. s)
	end
	editor:EndUndoAction()
	editor:GotoLine(line)
	editor:EnsureVisible(line)
end

Alles anzeigen

i2c

/* back home */

Beiträge

1.581
26. April 2011 um 11:43
- #10
Zitat von BugFix

Ist doch etwas lästig, wenn jedes mal der Cursor in Zeile 1 landet.

Stimmt, ist es. Danke!
MfG i2c
Als Gott sah, dass er die Menscheit nicht mit Seuche, Pest und Sintflut bestrafen konnte, schickte er mich!
[SciTE/Notepad++] Send To Pastebin/Get From Pastebin
[SciTE/Notepad++] Regexp Tester
GerhardSchr

Fortgeschrittener

Beiträge

264
26. April 2011 um 18:01
- #11
hmm sehe gerade das sich das _etwas_ mit https://autoit.de/index.php?page=Thread&threadID=26869 überschneidet *g*

26. April 2011 um 19:02

Offizieller Beitrag

#12

Ich habe mir noch überlegt, dass es vielleicht sinnvoll ist über die properties zu regeln, ob mit oder ohne TimeStamp gespeichert wird.
Da ich adhoc nicht gefunden habe, wo die Parameter aus der properties Datei deklariert werden, habe ich einen Umweg über Datei Lesen genommen - was aber ebenso super funktioniert

Also in die "SciTEGlobale.properties" folgenden Block einfügen (Position nach Deklaration "SciteStartup.lua")

Code

# Globals
ext.lua.startup.script=$(SciteDefaultHome)/Lua/SciTEStartup.lua
#~ ext.lua.auto.reload
#~ ext.lua.reset


#~ TimeStamp beim Speichern Ja/Nein (1/0)
SetTimeStamp=1

Nun die

geänderte SaveWithTimeStamp.lua

Code

function OnBeforeSave(fname)
	local ext = props['FileExt']
	local au3_ext = 'au3'
	if ext == au3_ext then
		if SetTimeStamp == 1 then InsertTimestamp(fname) end
	end
end


function InsertTimestamp(fname)
	local line = editor:LineFromPosition(editor.CurrentPos)
	local s = editor:GetText()
	local t =  "#Region - Timestamp\r\n; "..os.date("%Y-%m-%d %H:%M:%S").."\r\n#EndRegion"
	local a,b = editor:findtext("#Region - TimeStamp", SCFIND_REGEXP)
	local x,y = editor:findtext("#EndRegion", SCFIND_REGEXP)
	editor:BeginUndoAction()
	if a then
		if y then
			editor:SetSel(a,y)
			editor:ReplaceSel(t)
		end
	else
		editor:SetText(t .. "\r\n\r\n" .. s)
	end
	editor:EndUndoAction()
	editor:GotoLine(line)
	editor:EnsureVisible(line)
end

Alles anzeigen

abspeichern und dann noch folgendes Einfügen in die "SciTEStartup.lua" nach der Zeile "LoadLuaFileList = { }"

Code

--------------------------------------------------------------------------------
-- TimeStamp Variable erzeugen, Wert aus "SciTEGlobal.properties" lesen
--------------------------------------------------------------------------------
SetTimeStamp = 1                                                       -- Globale Variable erstellen
local pathSciTE = props["SciteDefaultHome"]		               -- Pfad SciTE4AutoIt
local fin = assert(io.open(pathSciTE .. "\\SciTEGlobal.properties"))   -- Datei zum Lesen öffnen
local sRead = fin:read("*a")                                           -- Datei einlesen
assert(fin:close())		                                       -- Datei schließen
local r1, r2 = string.find(sRead, "SetTimeStamp=%d")                   -- TimeStamp-Anweisung suchen
SetTimeStamp = tonumber(string.sub(sRead, r2, r2))                     -- Wert auslesen und setzen (1/0 = J/N)

Nach einem SciTE-Neustart gilt der Wert aus den properties.

In deinem Webbrowser ist JavaScript deaktiviert. Um alle Funktionen dieser Website nutzen zu können, muss JavaScript aktiviert sein.