von craig22 » Do, 26.11.2020 18:34
Hallo,
Pit hat geschrieben:... Aber warum wurden die uns allen auf die Festplatte gepackt?
Weil darin vorgefertigte Makros/ Funktionen sind auf die man direkt zugreifen kann, um sich Arbeit zuersparen.
Dann muss man das Rad nicht ständig neuerfinden.
Damit man die Tools nutzen kann muss man zuvor die Bibliotheken laden.
Ebenso wie mit XRAY:
Entweder man lädt die Bibliotheken üer ein Event direkt beim Start von Office oder
man muss diese im späteren Code nachladen.
Pit hat geschrieben:Vielleicht sind die ja sogar für irgendwas gut?
Ja! Siehe nachfolgenden Code:
Code: Alles auswählen
REM ***** BASIC *****
Sub TestToolsLib
Dim oDoc as Object
Dim mStr(0 to 5) as Variant
Dim sPath$
' Hier in der Basic-IDE -> Objektkatalog
' LibreOffice Makros & Dialoge -> Tools -> Strings
' Lädt die TOOLS-Bibliothek mit vorgefertigten Hilfsfunktionen
GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
oDoc=ThisComponent
mStr=Array("Url: ","Pfad mit Dateiname: ","Dateiname: ","Dateiname ohne Extension: ", "Dateiextension: ", "Pfadangabe ohne Dateiname: ")
REM Sammeln der Ausgabe-Informationen, unter Nutzung der Tools-Bibliothek
With oDoc
sPath=ConvertFromUrl(.URL) ' URL in Pfadangabe umwandeln
mStr(0)=mStr(0) & Chr(10) & .URL & Chr(10) ' Anzeige der URL
mStr(1)=mStr(1) & Chr(10) & sPath & Chr(10) ' Anzeige der Pfadangabe
REM Hier bedarf es der Tools-Bibliothek
REM Pfad zur Bibliothek =
REM LibreOffice Makros & Dialoge --> Tools --> Strings
mStr(2)=mStr(2) & Chr(10) & FileNameoutofPath(sPath,"\") & Chr(10) ' Dateiname mit Extension aus Pfad extrahiert
mStr(3)=mStr(3) & Chr(10) & GetFileNameWithoutExtension(sPath,"\") & Chr(10) ' Dateiname ohne Extension aus Pfad extrahiert
mStr(4)=mStr(4) & Chr(10) & GetFileNameExtension(sPath,"\") & Chr(10) ' Extension ohne Dateiname aus Pfad extrahiert
mStr(5)=mStr(5) & Chr(10) & DirectoryNameoutofPath(sPath,"\") & Chr(10) ' Pfadangabe ohne Dateiname und ohne Extension
End With
REM Informationen in Messagebox anzeigen
Msgbox mStr(0) & Chr(10) & _
mStr(1) & Chr(10) & _
mStr(2) & Chr(10) & _
mStr(3) & Chr(10) & _
mStr(4) & Chr(10) & _
mStr(5) & Chr(10), 64, "Herzlichen Glückwunsch, die Tools-Library ist geladen"
End Sub
Hallo,
[quote=Pit]... Aber warum wurden die uns allen auf die Festplatte gepackt? [/quote]
Weil darin vorgefertigte Makros/ Funktionen sind auf die man direkt zugreifen kann, um sich Arbeit zuersparen.
Dann muss man das Rad nicht ständig neuerfinden.
Damit man die Tools nutzen kann muss man zuvor die Bibliotheken laden.
Ebenso wie mit XRAY:
[code]GlobalScope.BasicLibraries.LoadLibrary( "Tools" )[/code]
Entweder man lädt die Bibliotheken üer ein Event direkt beim Start von Office oder
man muss diese im späteren Code nachladen.
[quote=Pit]Vielleicht sind die ja sogar für irgendwas gut?[/quote]
Ja! Siehe nachfolgenden Code:
[code]
REM ***** BASIC *****
Sub TestToolsLib
Dim oDoc as Object
Dim mStr(0 to 5) as Variant
Dim sPath$
' Hier in der Basic-IDE -> Objektkatalog
' LibreOffice Makros & Dialoge -> Tools -> Strings
' Lädt die TOOLS-Bibliothek mit vorgefertigten Hilfsfunktionen
GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
oDoc=ThisComponent
mStr=Array("Url: ","Pfad mit Dateiname: ","Dateiname: ","Dateiname ohne Extension: ", "Dateiextension: ", "Pfadangabe ohne Dateiname: ")
REM Sammeln der Ausgabe-Informationen, unter Nutzung der Tools-Bibliothek
With oDoc
sPath=ConvertFromUrl(.URL) ' URL in Pfadangabe umwandeln
mStr(0)=mStr(0) & Chr(10) & .URL & Chr(10) ' Anzeige der URL
mStr(1)=mStr(1) & Chr(10) & sPath & Chr(10) ' Anzeige der Pfadangabe
REM Hier bedarf es der Tools-Bibliothek
REM Pfad zur Bibliothek =
REM LibreOffice Makros & Dialoge --> Tools --> Strings
mStr(2)=mStr(2) & Chr(10) & FileNameoutofPath(sPath,"\") & Chr(10) ' Dateiname mit Extension aus Pfad extrahiert
mStr(3)=mStr(3) & Chr(10) & GetFileNameWithoutExtension(sPath,"\") & Chr(10) ' Dateiname ohne Extension aus Pfad extrahiert
mStr(4)=mStr(4) & Chr(10) & GetFileNameExtension(sPath,"\") & Chr(10) ' Extension ohne Dateiname aus Pfad extrahiert
mStr(5)=mStr(5) & Chr(10) & DirectoryNameoutofPath(sPath,"\") & Chr(10) ' Pfadangabe ohne Dateiname und ohne Extension
End With
REM Informationen in Messagebox anzeigen
Msgbox mStr(0) & Chr(10) & _
mStr(1) & Chr(10) & _
mStr(2) & Chr(10) & _
mStr(3) & Chr(10) & _
mStr(4) & Chr(10) & _
mStr(5) & Chr(10), 64, "Herzlichen Glückwunsch, die Tools-Library ist geladen"
End Sub
[/code]