Relativní odkaz na soubor v makru - VYŘEŠENO!

pancha · 20. 3. 2013 17:38:45

Zdravím, mám vytvořené makro, kterým si automaticky plním soubor .odt z jiných .txt souborů (01.txt,02.txt...). Chci se zeptat jestli jde cesta k souboru (file:///D:/Slozka/podslozka/01.txt) zapsat nějak relativně (../01.txt).

sub Main
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Name"
args2(0).Value = "file:///D:/Slozka/podslozka/01.txt"
args2(1).Name = "Filter"
args2(1).Value = "Text (encoded)"
dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, args2())
end sub

Díky.

Editoval pancha (22. 3. 2013 08:21:57)

neutr · 20. 3. 2013 18:02:17

To bych vůbec nedoporučoval. Stačí málá změna OOo (nový build) a vše je v háji. Dokonce myslám, že to ani nejde (nevím jak LO).

Jde asi o to, rychle nalistovat soubory pro import dat. Já jsem něco podobného kdysi dělal za pomoci externího programu, který mi vypsal obsahy adresářů jako plnou adresu. To jsem pak převedl na textovou a z ní jsem pak adresáře linkoval (tedy v Calcu, ale to by mělo být stejné). Bohužel už si nepamatuju ten program, ale když zadáte například na Slunečnici.cz (i jiné servery) heslo "výpis adresáře" - tak něco vhodného najdete.
Do makra potom za adresu iterujete ten vytvořený seznam a následně například prohledáváte text ap.

Tedy nevím, jestli je to zrovna to co potřebujete.

sedlacekdan · 20. 3. 2013 19:03:09

Makrem zcela relativní adresu souboru nastavíte pouze vždy jejím přímým zadáním. Lze pro tento účel vytvořit dialog, který vrací URL jako text, který je předán do makra.

Pro případ, že jsou cílový a zdrojové soubory v té samé složce už něco dělat lze. Můžete například použít funkci CurDir, která vrací adresu souboru tam kde je aktuálně uložen. Pak už stačí pouze přidat lomítko a název souboru k otevření.

curDir(thisComponent.url)+getpathseparator+"01.txt"

Jak jsem psal, podmínkou je že zdroj i cíl se nachází v té samé složce.
Cur Dir zjistí adresu (např.:file:///D:/Slozka/podslozka)
getPathSeparator přidá oddělovač podle OS
Tento zápis můžete vložit do makra.

;o)

pancha · 20. 3. 2013 21:55:19

sedlacekdan: Cílový a zdrojové soubory jsou ve stejné složce, takže by mělo asi fungovat tebou navrhované řešení. Můžeš mi to prosím ukázat na tom mém vzorovém příkladu. Makro jsem si vytvořil pomocí funkce Zaznamenat makro, a tomu jazyku moc nerozumím. Díky.

sedlacekdan · 21. 3. 2013 14:47:14

Omlouvám se za omyl, funkce CurDir zjistí kořenovou složku. Použijeme funkci Dir

sub Main
dim document   as object
dim dispatcher as object
' zjistíme aktuální adresu dokumentu
adresa = thisComponent.url
' odstraníme název původního souboru a nahradíme ho názvem txt souboru
' odečteme počet znaků názvu souboru - len(dir(adresa)) 
' počtu znaků celé adresy - len(adresa)
' nakonec přidáme název souboru - + 01.txt
adresa_souboru_txt = left(adresa, len(adresa)-len(dir(adresa))) + "01.txt"
' ostatní se nemění
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Name"
args2(0).Value = adresa_souboru_txt
args2(1).Name = "Filter"
args2(1).Value = "Text (encoded)"
dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, args2())
end sub

;o)

pancha · 22. 3. 2013 08:21:12

2sedlacekdan: Fakt moc dík, už to funguje jak má :-)

OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

#1 20. 3. 2013 17:38:45

Relativní odkaz na soubor v makru - VYŘEŠENO!

#2 20. 3. 2013 18:02:17

Re: Relativní odkaz na soubor v makru - VYŘEŠENO!

#3 20. 3. 2013 19:03:09

Re: Relativní odkaz na soubor v makru - VYŘEŠENO!

#4 20. 3. 2013 21:55:19

Re: Relativní odkaz na soubor v makru - VYŘEŠENO!

#5 21. 3. 2013 14:47:14

Re: Relativní odkaz na soubor v makru - VYŘEŠENO!

#6 22. 3. 2013 08:21:12

Re: Relativní odkaz na soubor v makru - VYŘEŠENO!

Zápatí