OpenOffice.info

FileNameoutofPath

[quote] sind die irgendwo erklärt?[/quote]
Mir ist keine Doku dazu bekannt.
Die Funktionsnamen sind aber meistens selbstredend benannt:
[code]FileNameoutofPath[/code]

Danke, dass man die Bibliotheken zunächst einbinden muss, das wusste ich schon.
Zum Beispiel mit "Depot" kann man wohl seine Wertpapiere verwalten. Arbeitet jemand damit? Es ist nicht wirklich selbsterklärend und auch der Code ist nicht kommentiert.
Klar mitgelieferte Bibliotheken können sicher eine Hilfe sein - aber, wozu dienen gerade diese? Bei "Gimmiks" und "Tools" scheinen sinnvolle Tools dabei zu sein - sind die irgendwo erklärt?

GlobalScope.BasicLibraries.LoadLibrary( "Tools" )

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]

Prima, das ist doch schon mal was!
... Aber warum wurden die uns allen auf die Festplatte gepackt? Vielleicht sind die ja sogar für irgendwas gut?

Moin,
wenn ich den Ordner C:\Program Files (x86)\OpenOffice 4\share\[color=#0040FF][b]basic[/b][/color] umbenenne, sind sie weg.
Gruß R

In meinen Bibliotheken finden sich (wie bei euch wahrscheinlich auch) die Bibliotheken "Depot", "Euro", "FormWizard"...
Warum sind die da? Gibt es für die eine Anleitung? Kann man die löschen?