(gelöst) Makro, um dem Dateinamen eines LO-Dokuments ein Datum voranzustellen

[karolus]

Hallo

Code: Alles auswählen

Ich dacht´ mir:

»createUnoService« ist bekannt,
drum hab ich so genannt!

Was ist damit erreicht?
der Basic-User hat es Leicht!

[Freischreiber]

Ich will »createUnoService« nicht verteufeln,
es ist für mich nur zum Verzweifeln.

[karolus]

Ich will »createUnoService« nicht verteufeln,
es ist für mich nur zum Verzweifeln.

nicht mal reimeln, kann der Deibel!

[F3K Total]

Hallo zusammen,
auch wenn das Problem inzwischen gelöst ist und Karolus eine hervorragende function, die bei Weitem mehr kann als vom Fragesteller gewünscht war, geschrieben hat, möchte ich doch noch eine Verbesserung vorschlagen.

Hallo,
das liegt daran, dass .URL den Url-Syntax, .Title aber im Klartext liefert. Man könnte es z. B. so umgehen:
Ändere die Zeile

sPfad = replace(oDoc.url,oDoc.Title,"")

in

sPfad = replace(oDoc.url,mid(convertToUrl(oDoc.Title),9),"")

Ja, richtig, da war ein Fehler.
Ich habe mir inzwischen genau aus dem Grund das Pfade mit Leerzeichen Probleme haben, angewöhnt, keine Dateinamen mit Leezeichen mehr zu verwenden.
Das URL-Leerzeichen-Problem läßt sich auch wie folgt lösen:

Code: Alles auswählen

Sub DatumzuDateiname
	GlobalScope.BasicLibraries.LoadLibrary("Tools")
	dim oDoc as Object, msg1 as string, msg2 as string
	dim n as integer, sPfad as string, sURL as string, sDateiname as string, sNeuname as string, sDatum as string, sDatumneu as string
'	Dim mFileProperties(0) As New com.sun.star.beans.PropertyValue
	dim dummy()

	msg1 = "Sorry, das Dokument hat noch keine URL!"
	msg2 = "Bitte erst einmal speichern"
	oDoc = thisComponent
	
	if oDoc.url = "" then
	  msgbox (msg1 & chr(13) & msg2, 16, "Fehler")
	  exit sub
	end if

	sDateiname =	FileNameOutOfPath(oDoc.URL)
	msgbox sDateiname
	sDatum = date()
	sDatumneu = Format(sDatum, "YYYY-MM-DD")
	msgbox sDatumneu
	sNeuname = sDatumneu + " " + sDateiname
	msgbox sNeuname
	sPfad = replace(convertFromURL(oDoc.url),sDateiname,"")
	msgbox sPfad
	sURL = convertToURL(sPfad + sNeuname)
	msgbox sURL
'	mFileProperties(0).Name = "Overwrite"
'	mFileProperties(0).Value = True
'	oDoc.storeAsUrl(sURL, mFileProperties())
	oDoc.storeAsUrl(sURL, dummy())

End Sub

Also erst

Code: Alles auswählen

convertFromURL

dann wieder

Code: Alles auswählen

convertToURL

Gruß R

[Freischreiber]

Also erst

Code: Alles auswählen

convertFromURL

dann wieder

Code: Alles auswählen

convertToURL

Gruß R

Hallo R,

das wars! Ich hatte sogar gesucht, ob es noch andere "convertto..." gibt außer "convertToURL". Nur hatte ich eben mit "convertto" gesucht und so natürlich nichts gefunden. Ich bin gar nicht dumm, ich habe nur sehr oft Pech beim Googeln.

Vielen Dank
Freischreiber

[karolus]

Nur zur Ergänzung, die beiden Funktionen haben für python in libreoffice entsprechende Funktionen im unomodul

Code: Alles auswählen

uno.fileUrlToSystemPath( url )
##und
uno.systemPathToFileUrl( path )

eigentlich brauchts in python nur die erste, in die andere Richtung nimmst du besser gleich:

Code: Alles auswählen

from pathlib import Path
…
uri = Path(  …   ).as_uri()

[Freischreiber]

So, ich hab mir das mit "keine Leerzeichen im Dateinamen" zu Herzen genommen und das Makro erweitert. Es ersetzt jetzt Leerzeichen im Dateinamen durch "_" und fragt hinterher auch noch, ob der ursprüngliche Dateiname gelöscht werden soll.

Code: Alles auswählen

Sub DatumzuDateiname
	GlobalScope.BasicLibraries.LoadLibrary("Tools")
	dim oDoc as Object, msg1 as string, msg2 as string
	dim n as integer, sPfad as string, sURLneu as string, sURLalt as string, sDateiname as string, sNeuname as string, sDatum as string, sDatumneu as string, sLoeschen as string
	dim dummy()

	msg1 = "Das Dokument hat noch keinen Dateinamen."
	msg2 = "Bitte zuerst einmal speichern."
	oDoc = thisComponent
	if oDoc.url = "" then
	  msgbox (msg1 & chr(13) & msg2, 16, "Fehler")
	  exit sub
	end if

	sDateiname =	FileNameOutOfPath(oDoc.URL)
	sURLalt = convertToURL(oDoc.URL)
	sDateinameunleer=Replace (sDateiname, " ", "_", 1,-1, False)  
	sDatum = date()
	sDatumneu = Format(sDatum, "YYYY-MM-DD")
	sNeuname = sDatumneu + "_" + sDateinameunleer
	sPfad = replace(oDoc.url,mid(convertToUrl(oDoc.Title),9),"")
	sURLneu = convertToURL(sPfad + sNeuname)

	oDoc.storeAsUrl(sURLneu, dummy())
	
	sLoeschen = MsgBox("Ursprüngliche Datei unwiderruflich löschen?" + Chr(13) + sDateiname, 4, "Achtung:")
	if sLoeschen = 6 then
		kill sURLalt
	endif

End Sub

Geht bestimmt schöner, funktioniert aber. Was bin ich stolz.

Weiß übrigens jemand etwas Sanfteres als "kill"? Wo die Datei im Papierkorb landet, statt spurlos zu verschwinden?

Gruß
Freischreiber