[de-users] Makro / BASIC :: Absoluter und relativer Pfad

Hallo Liste,

Zum Speichern einer Datei habe ich ein Makro, dass mir meine Calc 
Tabelle einmal als CSV und danach wieder als ODT speichert.
Mit Button kompiniert, funktioniert das auch prima auf meiner Linux-
Büchse.

Kunden werden diese Datei aber über Windows aufrufen. Der Pfad ist 
dann nicht mehr:

/home/icnbg/projekte/startfolder/icnbg/oogpm/int_doku/qm/swm/

sondern

[D...Z]:\\ServerName\int_doku\swm
(so ungefähr)

MEINE FRAGE:

Wie kann ich aus dem absoluten Pfad einen relativen machen.
Unter Linux kann man sagen    ./   (Punkt Schräger)  für das 
aktuelle Verzeichnis in dem ich die Datei aufgerufen habe.

Wie kann ich das auf Windows konvertieren. Der Kunde (unter Windows) 
wird die Datei aufrufen modifizieren und dann auf dem Speichern-
Button drücken, der unten angezeigten BASIC-Code ausführt. Ich 
vermute das das Windows-LO mit diesem Linux-Pfad nicht funktionieren 
wird.

Was tun ?

Danke für die Hinweise !

Gruß aus Nürnberg

Achim



-------------------------------------------------------------------
sub SAVE_as_CSV_and_ODS
rem 
----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem 
----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem 
----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = 
"file:///home/icnbg/projekte/startfolder/icnbg/oogpm/int_doku/qm/swm/NACE_000000.csv"
args1(1).Name = "FilterName"
args1(1).Value = "Text - txt - csv (StarCalc)"
args1(2).Name = "FilterOptions"
args1(2).Value = "59,0,76,1"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())

rem 
----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "URL"
args2(0).Value = 
"file:///home/icnbg/projekte/startfolder/icnbg/oogpm/int_doku/qm/swm/NACE_000000.ods"
args2(1).Name = "FilterName"
args2(1).Value = "calc8"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args2())


end sub
-------------------------------------------------------------------

-- 
openSUSE 11.4
KDE – Frei sein!
Plattform-Version 4.6.00 (4.6.0) "release 6"

LibreOffice 3.3.4
OOO340m1 (Build:502)
---

„Mir, ... war die konsequente Rechtschreibung immer ziemlich 
gleichgültig. Wie dieses oder jenes Wort geschrieben wird, darauf 
kommt es doch eigentlich nicht an, sondern darauf, daß die Leser 
verstehen, was man damit sagen wollte.“
Johann Wolfgang von Goethe (1749-1832), dt. Dichter.

-- 
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert