Makrá v OpenOffice.org – typografická kontrola textu (III)

Na úplný záver makier pre hľadanie a označovanie chýb si, samozrejme, musíme uviesť procedúry pre hľadanie konkrétnych chýb, pre volanie dialógu a pre ukladanie nastavení do súborov. Skôr, než uvedieme zdrojové texty sa musíme ešte pristaviť pri prázdnych odsekoch. Pretože sa jedná o prázdne odseky, ich priame vyznačenie nie je možné a preto ich budeme nahrádzať znakom „¶“, a až tento znak označíme ako ktorúkoľvek inú chybu, čím sa prázdny odsek stane viditeľný.

REM Procedúra pre vlastné hľadanie a označenie chýb
 sub PodciarkniChyby
  dim kolko as long : kolko=0
  
  REM Nadbytočné medzery
  if CoKontrolovat(0)=1 then
   ' Viacnásobné medzery a tabelátory v texte
   kolko=kolko+Hladaj_a_Oznac("[:space:][:space:]+") 'Viacnásobné medzery
   kolko=kolko+Hladaj_a_Oznac("tt+") ' Viacnásobné tabelátory
   kolko=kolko+Hladaj_a_Oznac("[:space:]t[:space:]|t[:space:]|[:space:]t") ' Kombinácie medzier a tabelátorov
  endif
  if CoKontrolovat(1)=1 then
   ' Medzery a tabelátory na začiatku odseku
   kolko=kolko+Hladaj_a_Oznac("^[:space:]*") ' Medzery na začiatku odseku
   kolko=kolko+Hladaj_a_Oznac("^t*") ' Tabelátory na začiatku odseku
  endif
  if CoKontrolovat(2)=1 then
   ' Medzery a tabelátory na konci odseku
   kolko=kolko+Hladaj_a_Oznac("[:space:]*$") ' Medzery na konci odseku
   kolko=kolko+Hladaj_a_Oznac("t*$") ' Tabelátory na konci odseku
  endif
  if CoKontrolovat(3)=1 then
   ' Medzery a tabelátory medzi zátvorkou a textom
   kolko=kolko+Hladaj_a_Oznac("((|[|{)([:space:]|t)") ' Ľavá zátvorka + medzera/tabelátor
   ' Medzery a tabelátory medzi zátvorkou a textom
   kolko=kolko+Hladaj_a_Oznac("([:space:]|t)()|]|})") ' Medzera/tabelátor + pravá zátvorka
  endif
  if CoKontrolovat(4)=1 then
   ' Medzery a tabelátory medzi úvodzovkou a textom
   kolko=kolko+Hladaj_a_Oznac("(„|‚|»|›)([:space:]|t)") ' Ľavá úvodzovka+ medzera/tabelátor
    'Medzery a tabelátory medzi zátvorkou a textom
   kolko=kolko+Hladaj_a_Oznac("([:space:]|t)(“|‘|«|‹)") ' Medzera/tabelátor + pravá úvodzovka
  endif
  if CoKontrolovat(5)=1 then
   ' Medzera pred interpunkčnými znamienkami .?!:,;
   kolko=kolko+Hladaj_a_Oznac("([:space:]|t)(.|?|!|:|,|;)")
  endif
  if CoKontrolovat(6)=1 then
   ' Medzera pred výpustkou …
   kolko=kolko+Hladaj_a_Oznac("([:space:]|t)…")
  endif
  REM Chýbajúce medzery
  if CoKontrolovat(7)=1 then
   ' Medzera medzi bodkou a textom
   kolko=kolko+Hladaj_a_Oznac(".[:alpha:]+") ' Bodka môže označovať čas, preto iba bodka + písmeno
   kolko=kolko+Hladaj_a_Oznac("[:alpha:].[:alnum:]+") ' Ak je písmeno.znak, je to chyba
  endif
  if CoKontrolovat(8)=1 then
   ' Medzera medzi interpunkčným znamienkom a textom – ?!:,;…
   kolko=kolko+Hladaj_a_Oznac("(?|!|;|…)[:alnum:]+") ' ?T !T ;T
   ' Čiarka môže byť desatinná, preto iba písmená
   kolko=kolko+Hladaj_a_Oznac(",[:alpha:]+") ' ,T
   kolko=kolko+Hladaj_a_Oznac("[:alpha:],[:alnum:]+") ' Ak je písmeno,číslo, je to chyba
   ' Dvojbodka môže označovať čas, preto iba písmená
   kolko=kolko+Hladaj_a_Oznac(":[:alpha:]+") ' :T
   kolko=kolko+Hladaj_a_Oznac("[:alpha:]:[:alnum:]+") ' Ak je písmeno:číslo, je to chyba 
  endif 
  REM Ostatné
  if CoKontrolovat(9)=1 then
   ' Prázdne odseky nahradíme znakom ¶ a tento označíme, inak by zostali "neviditeľné"
   kolko=kolko+Vymen_a_Oznac("^$", "¶"+chr$(&H0D))
  endif
  sOznam1="Nájdených "
  sOznam2=" chýb."
  sOznam3="Kontrola a označenie typografických chýb"
  kde=basiclibraries.getLibraryLinkURL("JP_typokontrola_textu") ' Adresár, kde je rozšírenie nainštalované
  nazov=left(kde,len(kde)-10)+"jp_typokontrola_textu_"+Jazyk_OOo+".txt" ' Súbor s jazykovou lokalizáciou
  Set_jazyk_vypisu(nazov) ' Nastavenie textov výpisu
  msgbox (sOznam1+trim(str(kolko))+sOznam2,0,sOznam3)
 end sub
 
 REM Funkcia volaná pri stlačení tlačidla "Ulož"
 sub uloz_initiated
  dim sf, outStream, outFile ' Pre zápis do súboru
  dim i%
  dim sNazov$, kde$, riadok$
  
  NastavKontrolu ' Nastavenie premenných podľa dialógu
 
  kde=basiclibraries.getLibraryLinkURL("JP_typokontrola_textu") ' Adresár, kde je rozšírenie nainštalované
  sNazov=left(kde,len(kde)-10)+"jp_typokontrola_set.txt" ' Súbor s nastaveniami
  sf = createUnoService("com.sun.star.ucb.SimpleFileAccess")
  outStream = sf.openFileWrite(sNazov) 
  outFile = createUnoService("com.sun.star.io.TextOutputStream") 
  outFile.OutputStream = outStream
  outFile.Encoding = "UTF-8" ' Súbor bude v UTF-8 aby bola dobrá diakritika
  outStream.truncate() ' Vymazanie predchádzajúceho obsahu
  for i=0 to 9
   riadok="K"+trim(str(i))+"="+trim(str(CoKontrolovat(i)))+chr$(13)
   outFile.writeString(riadok)
  next i
  for i=0 to 1
   riadok="N"+trim(str(i))+"="+trim(str(CoNastavit(i)))+chr$(13)
   outFile.writeString(riadok)
  next i
  riadok="A0="+AkoNastavit(0)+chr$(13)
  outFile.writeString(riadok)
  riadok="A1="+AkoNastavit(1)
  outFile.writeString(riadok)
  outStream.closeOutput
  outFile.closeOutput
 end sub
 
 REM Funkcia volaná pri stlačení tlačidla "Nastav"
 sub Nastav_Initiated
  NastavKontrolu ' Inicializácia označovania z dialógu
  PodciarkniChyby ' Hľadanie a označenie chýb
 end sub
 
 REM Makro, ktoré zneviditeľní dialóg – t.j. nastaví, že sa má ukončiť čakací cyklus (volané stlačením klávesy "Koniec" v dialógu)
 sub Koniec_Dialog_Initiated
  oDlg.setVisible(false )' Zneviditeľnenie dialógu
 end sub
 
 REM Procedúra pre označenie chýb podľa definície v súbore
 sub OznacChyby
  InitKontrolu ' Inicializácia označovania zo súboru
  PodciarkniChyby ' Hľadanie a označenie chýb
 end sub
 
 REM Procedúra pre volanie dialógu
 sub NastavChyby
  DialogLibraries.LoadLibrary("JP_typokontrola_textu")
  oDlg=CreateUnoDialog(DialogLibraries.JP_typokontrola_textu.DialogTypoKontrola)
  
  kde=basiclibraries.getLibraryLinkURL("JP_typokontrola_textu") ' Adresár, kde je rozšírenie nainštalované
  nazov=left(kde,len(kde)-10)+"jp_typokontrola_textu_"+Jazyk_OOo+".txt" ' Súbor s jazykovou lokalizáciou
  
  Set_jazyk_dialogu(oDlg, nazov, "DialogTypoKontrola") ' Nastavenie jazyka dialógu
  Init_dialog_Kontrola ' Inicializácia podľa nastavení v súbore
  oDlg.setVisible(true) ' zviditeľnenie dialógu – namiesto dlg.Execute(), aby sa dalo paralelne pracovať s textom
  while oDlg.isVisible() ' Cyklus, ktorý čaká na stlačenie klávesy "Koniec" v dialógu (kým je dialóg viditeľný)
   wait 500 ' Časová medzera 500 milisekúnd (0,5 sec) na to, aby sa dalo paralelne pracovať s dokumentom
  wend
  oDlg.dispose() ' Zatvorenie dialógu
 end sub