Re: [sr.openoffice.org] Re: Recnik za OOo 3.0

[Aleksandar Urošević]

Upravo probao da izvezem svoj standard.dic i u tekstualnu datoteku uredno
idu i latinična i ćirilična slova, bez ikakvih upitnika. Evo rezultata
(test.txt je iz OOo 2.4 a test2.txt je iz OOo 3.0). Preuzeo sam i pokrenuo
datoteku ImportExportDictionary1-1.sxw

pp

-- 
Aleksandar Urošević
http://urosevic.net

On Wed, Nov 19, 2008 at 3:00 PM, Miloš Komarčević 
<[&#1045;-&#1055;&#1054;&#1064;&#1058;&#1040; 
&#1047;&#1040;&#1064;&#1058;&#1048;&#1035;&#1045;&#1053;&#1040;]> wrote:

> 2008/11/19 Aleksandar Urošević <[&#1045;-&#1055;&#1054;&#1064;&#1058;&#1040; 
> &#1047;&#1040;&#1064;&#1058;&#1048;&#1035;&#1045;&#1053;&#1040;]>
> > A da li može taj makro da se napiše u Perlu? Šta on zapravo radi?
>
> Koliko sam skontao, korisiti već postojeći UNO API za korisničke
> rečnike i stavku po stavku upisuje u tekstualnu datoteku. Znači jako
> jednostavno i u principu samo čupanje stavki radi ok, samo što UTF-8
> ispis ne radi. Evo i koda:
>
> Sub ExportDictionary
>
>        'Get DictionaryList UNO service
>        oList = createUnoService ("com.sun.star.linguistic2.DictionaryList")
>
>        'Open text file with words to be added (one word per line)
>        iFileNo = FreeFile
>        sURL = ConvertToURL (oDlg.getControl ("txtFile").Text)
>        open sURL for output as iFileNo
>
>        'Get dictionary object
>        sDicName = oDlg.getControl ("cboDicChooser").Text
>        oDic = oList.GetDictionaryByName (sDicName)
>
>        'Go through dictionary
>        for iWord = LBound (oDic.Entries) to UBound (oDic.Entries)
>                'Write word to text file
>                 print #iFileNo, oDic.Entries (iWord).DictionaryWord
>                 'Display status
>                oDlg.getControl ("lblStatus").Text = "Exporting: word " &
> iWord + 1
> & " of " & oDic.Count
>        next iWord
>
>        oDlg.getControl ("lblStatus").Text = "Finished. " & oDic.Count & "
> words exported"
>        MsgBox oDic.Count & " words were exported from " & sDicName
>
>        'Close text file
>        close #iFileNo
>
> End Sub
>
> Znači petlja radi ok, i oDic.Entries (iWord).DictionaryWord vraća
> ispravne reči iz rečnika, samo print izgleda ne radi posao...
>
> Pozdrav,
> M
>

funkcioniše
ilustracija
informatičko
instalacije
instalaciju
instalacioni
instaliranih
korisnicima
lektorisano
lokalizacije
lokalizacijom
lokalizacionim
lokalizovan
lokalizovanih
lokalizovano
lokalizovanoj
manipulaciju
ministarstva
particiju
podrazumeva
predstavimo
predstavljanja
pretraživanja
prevedenost
prevodilačkog
pročešljate
repozitorijuma
telekomunikacije
uspostavljanje
zapakovanu
Контактираће
Процуњам
вонтају
играчкица
информацију
компликовано
комуникацији
контактирао
контактирати
контам
локализовано
малопродајну
поручивању
поруџбина
препоручише
рефабриковани
рефабриковано
статив
теткица
трипод
трипода
фоткам
фотки
функционише
јебига

funkcioniše
ilustracija
informatičko
instalacije
instalaciju
instalacioni
instaliranih
korisnicima
lektorisano
lokalizacije
lokalizacijom
lokalizacionim
lokalizovan
lokalizovanih
lokalizovano
lokalizovanoj
manipulaciju
ministarstva
particiju
podrazumeva
predstavimo
predstavljanja
pretraživanja
prevedenost
prevodilačkog
pročešljate
repozitorijuma
telekomunikacije
uspostavljanje
zapakovanu
информацију
комбинација
контактирати
поручивању
рефабриковани
рефабриковано
статив
фотографима
функционише
јебига