Makrá v OpenOffice.org 6/IV. – Drobnosti, ktoré potešia.
Július Pastierik / 18. 07. 2007, 00:00
V dnešnom pokračovaní seriálu o programovaní makier v OpenOffice.org si uvedieme rôzne naozaj drobné makrá, ktoré nám pomôžu pri formátovaní dokumentu.
V doterajších dieloch sme si o. i. uviedli makrá, pomocou ktorých sme vkladali nezalomiteľné medzery za jednoznakové predložky, akademické tituly, do vnútra napr. telefónnych čísiel a pod. V bežnej praxi sa však mnohokrát stretávame aj s ďalšími potrebami v tejto oblasti. Napríklad, pokiaľ chceme použiť úzku sadzbu, potom nám nezalomiteľné medzery naopak prekážajú a potrebujeme ich nahradiť zalomiteľnými.
S týmto istým (alebo podobným) problémom sa môžeme stretnúť napr. aj pri potrebe zaslania rukopisu, keď si vydavateľ žiada, aby sme v texte nezalomiteľné medzery nepoužívali, pretože ich prípadné vloženie (t.j. zalomenie textu) si robí sám pomocou iných nástrojov.
Podobná problematika vzniká napr. aj vtedy, keď potrebujeme spracovať text, ktorý bol pripravený napr. v textovom procesore MS Word. Tento program vkladá nezalomiteľné medzery automaticky, čo nám však nemusí vyhovovať, pretože mi ich chceme mať napr. iba tam, kde sme si to nastavili v našom pracovnom profile. To je aj prípad, keď musíme upravovať text, ktorý pripravil niekto iný.
Osobne sa stretávam aj s ďalším problémom – potrebujem nahradiť úplne všetky medzery sa nezalomiteľné. Jedná sa napr. aj o príspevky do tohto seriálu o programovaní makier – konkrétne o zdrojové texty. Problém je vlastne v tom, že potrebujem dosiahnuť, aby zdrojové texty boli odsadené podľa štruktúry príkazov. Pokiaľ tam nechám obyčajné medzery (ktoré sa v zdrojovom texte automaticky nachádzajú po jeho skopírovaní z modulu Basic), tieto mi redakčný systém na začiatku riadku „odreže“. Preto ich musím nahradiť medzerami nezalomiteľnými.
Pravdaže, zároveň chcem, aby jeden programový riadok bol aj zobrazený ako jeden riadok a preto musím nahradiť zalomiteľné medzery za nezalomiteľné aj vo vnútri vlastných príkazov. Samozrejme, tí používatelia, ktorí si prípadne skopírujú takto uvedený zdrojový text musia počítať s tým, že im modul Basic následne vyhlási chybu (t.j. nebudú priamo fungovať) a musia si ho opraviť. Je to však seriál o programovaní a nie o kopírovaní hotových zdrojových textov, takže si každý môže dať tú námahu, aby si ich aspoň prepísal…
Ako posledná problematika, ktorej sa budeme dnes venovať je problematika rôznych nezalomiteľných medzier. V predchádzajúcich dieloch sme si uviedli dva typy – bežnú nezalomiteľnú medzeru (znak „Non Break Space“) a tzv. pružnú nezalomiteľnú medzeru (znak „Word Joiner“). Pri bežnej práci sa nám môžu hodiť makrá, ktoré dokážu automaticky zamedziť vzájomne tieto znaky, t.j. podľa potreby môžeme previesť jeden typ na druhý a opačne. Pravdaže, keď sme už spomínali zámenu všetkých medzier za nezalomiteľné medzery, aj v tých makrách uvedieme obidve tieto možnosti.
Tak, ako v predchádzajúcich dieloch, vlastné makrá nebudeme osobitne popisovať, pretože sú (podľa môjho názoru) dostatočne okomentované. Iba pripomeňme, že v nich používame funkcie, ktoré sme už uviedli pri formátovaní dokumentu (konkrétne funkcie „Init“ a „Vymen“), pri ktorých budeme predpokladať, že sú uložené v module „Formatovanie_funkcie“ – t.j. voláme ich Formatovanie_funkcie.init a Formatovanie_funkcie.Vymen. Dnes uvedené funkcie si uložíme do modulu „Rozne“.
REM Makro pre nahradenie nezalomiteľných medzier zalomiteľnými
REM Musíme nahradiť ako znak NBSP – hexadecimálny kód A0,
REM tak aj znak WJ – hexadecimálny kód 2060
function f_Zalomitelna_Medzera as long
Formatovanie_funkcie.init
f_Zalomitelna_Medzera=Formatovanie_funkcie.Vymen(chr$(&HA0)," ", false, false, false)+_
Formatovanie_funkcie.Vymen(chr$(&H2060),"", false, false, false)
end function
REM Makro pre nahradenie zalomiteľných medzier nezalomiteľnými medzerami NBSP
function f_Nezalomitelna_Medzera_NBSP as long
Formatovanie_funkcie.init
f_Nezalomitelna_Medzera_NBSP=Formatovanie_funkcie.Vymen(" ", chr$(&HA0), false, false, false)
end function
REM Makro pre nahradenie zalomiteľných medzier nezalomiteľnými medzerami WJ
function f_Nezalomitelna_Medzera_WJ as long
Formatovanie_funkcie.init
f_Nezalomitelna_Medzera_WJ=Formatovanie_funkcie.Vymen(" ", chr$(&H2060)+" ", false, false, false)
end function
REM Makro pre zámenu NBSP za WJ
function f_NBSP_za_WJ as long
Formatovanie_funkcie.init
f_NBSP_za_WJ=Formatovanie_funkcie.Vymen(chr$(&HA0), chr$(&H2060)+" ", false, false, false)
end function
REM Makro pre zámenu WJ za NBSP
function f_WJ_za_NBSP as long
Formatovanie_funkcie.init
f_WJ_za_NBSP=Formatovanie_funkcie.Vymen(chr$(&H2060)+" ", chr$(&HA0), false, false, false)
end function
REM Funkcie môžeme volať aj priamo, ale vtedy nám nevypíše počet zámen.
REM Ak chceme vidieť aj tento počet, musíme si na to naprogramovať procedúry.
sub Zalomitelna_Medzera
' Nahradenie nezalomiteľných medzier zalomiteľnými
msgbox("Zmenených "+f_Zalomitelna_Medzera+" nezalomiteľných medzier.", 0,"Zalomiteľné medzery")
end sub
sub Nezalomitelna_Medzera_NBSP
' Nahradenie zalomiteľných medzier nezalomiteľnými medzerami NBSP
msgbox("Zmenených "+f_Nezalomitelna_Medzera_NBSP+" zalomiteľných medzier.", 0,"Nezalomiteľné medzery NBSP")
end sub
sub Nezalomitelna_Medzera_WJ
' Nahradenie zalomiteľných medzier nezalomiteľnými medzerami WJ
msgbox("Zmenených "+f_Nezalomitelna_Medzera_WJ+" zalomiteľných medzier.", 0,"Nezalomiteľné medzery WJ")
end sub
sub NBSP_za_WJ
' Zámena NBSP za WJ
msgbox("Zmenených "+f_NBSP_za_WJ+" NBSP za WJ.", 0,"Zámena NBSP za WJ")
end sub
sub WJ_za_NBSP
' Zámena WJ za NBSP
msgbox("Zmenených "+f_WJ_za_NBSP+" WJ za NBSP.", 0,"Zámena WJ za NBSP")
end sub
Na budúce: Ako dosiahnuť, aby celý dokument bol iba jeden odstavec, alebo čarujeme s koncami odstavcov.