suchen und ersetzen von zeichen in strings

[inqui]

hallo.
ich bins schon wieder


ich habe noch folgendes problem:

ich möchte unter eine calc datei in den "eigenen dateien" des benutzers speichern, der es geöffnet hat. dafür benutze ich die environ-methode und ersetze dann alle "\" durch "/".

Code: Alles auswählen

eigene = environ("userprofile")
eigene = replace(eigene,"\","/")

dies tue ich, damit dashier auch funktioniert (klappt nur mit slashes statt backslashes):

Code: Alles auswählen

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///" + eigene + "/Eigene%20Dateien/datei.ods"
args1(1).Name = "FilterName"
args1(1).Value = "calc8"

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

nun ist mein problem, dass auf unseren terminal-servern noch die oo-version 2.4 läuft, und es dort die funktion "replace" wohl noch nicht gab. also werden die "\" nicht durch "/" ersetzt.

kann man das irgendwie anders lösen, damit das ganze auch unter oo 2.4 läuft?



danke nochmal


grüße

inqui

[Karolus]

Hallo

Code: Alles auswählen

eigene = converttourl(environ("userprofile"))
....
....
args1(0).Value = eigene & "/Eigene%20Dateien/datei.ods"
...

Gruß Karo

[inqui]

ahh perfekt .... und sogar kürzer als meins


vielen, vielen dank
genau das was ich brauchte



grüße

inqui