Tak przygotowany tekst jest stosowany przy konwersji do formatu epub.Łącznik opcjonalny
Wstawia w wyrazie niewidoczny łącznik, który pojawi się i utworzy podział wiersza w przypadku, gdy będzie ostatnim znakiem wiersza.
Tak, rozumiem, tylko nie byłem świadom, że fizyczne wstawianie soft-hyphenów do tekstu może mieć realne zastosowanie.valderis pisze:Wiele powinien wyjaśnić ten screen.
Kod: Zaznacz cały
rem wykonaj na bieżącym dokumencie, po polsku
sub MainTest()
oDoc = ThisComponent
dim aLocale As New com.sun.star.lang.Locale
aLocale.Language = "pl"
aLocale.Country = "PL"
SetOptionalHyphens(oDoc, aLocale)
end sub
rem wykonaj na wskazanym dokumencie, we wskazanym języku
sub SetOptionalHyphens(oDoc, aLocale)
if not HasUnoInterfaces (oDoc, "com.sun.star.text.XTextDocument") then
exit sub
end if
oTextCursor = oDoc.Text.createTextCursor()
oTextCursor.gotoStart(False)
noArgs = Array()
equalsign = "="
softhyphensign = chr(173)
oHyphen = createUnoService("com.sun.star.linguistic2.Hyphenator")
if isNull(oHyphen) then
exit sub
end if
do
if oTextCursor.isStartOfWord() then
oTextCursor.gotoEndOfWord(True)
oCharLoc = oTextCursor.getPropertyValue("CharLocale")
res = oHyphen.createPossibleHyphens(oTextCursor.getString(), aLocale, noArgs())
if not IsNull(res) then
srcWord = res.getPossibleHyphens()
if InStr(1, srcWord, softhyphensign) = 0 then
hyphenatedWord = Replace(srcWord, equalsign, softhyphensign)
oTextCursor.setString(hyphenatedWord)
end if
end if
oTextCursor.collapseToEnd()
end if
loop while oTextCursor.gotoNextWord(False)
end sub
function Replace(Source As String, Search As String, NewPart As String)
dim Result As String
dim StartPos As Long
dim CurrentPos As Long
Result = ""
StartPos = 1
CurrentPos = 1
if Search = "" then
Result = Source
else
do while CurrentPos <> 0
CurrentPos = InStr(StartPos, Source, Search)
if CurrentPos <> 0 then
Result = Result + Mid(Source, StartPos, _
CurrentPos - StartPos)
Result = Result + NewPart
StartPos = CurrentPos + Len(Search)
else
Result = Result + Mid(Source, StartPos, Len(Source))
end if
loop
end if
Replace = Result
end function
Dzielenie tekstu na sylaby
Program umożliwia podzielenie tekstu na sylaby w oparciu o wbudowany słownik zawierający wyjątki dzielenia oraz – dla pozostałych wyrazów – w oparciu o programowy algorytm dzielenia.
Algorytm dzielenia tekstu na sylaby w KombiKorze jest następujący: najpierw analizator tekstu wydziela kolejny wyraz z tekstu i sprawdza, czy wyraz zawiera przynajmniej taką liczbę liter jak zadeklarowano w polu Minimalna liczba liter wyrazu dzielonego w oknie opcji dzielenia.
Dalej sprawdzana jest opcja Dziel wyrazy pisane kapitalikami. Jeśli jest ona wyłączona – program sprawdza, czy wyraz nie składa się z samych wielkich liter. Jeśli tak jest, to program przechodzi do następnego wyrazu. Kolejną sprawdzaną opcją jest Nie dziel ostatniego wyrazu w akapicie. Jeśli jest ona aktywna, a po analizowanym wyrazie nie ma już innych wyrazów przed następnym akapitem, to program nie dzieli tego wyrazu.
Następnie program sprawdza, czy wyraz znajduje się w bazie słów, a jeżeli tak, to do jakiego słownika należy. Jeśli wyraz należy do słownika symboli, to nie jest on dzielony, w przeciwnym wypadku program buduje tablicę podziałów dla wyrazu. Przy budowaniu tej tablicy najpierw uwzględniane są podziały wskazane przez użytkownika (jeśli użytkownik zakazał dzielenia wyrazu, to program w tym miejscu przechodzi do następnego wyrazu). W drugiej kolejności (jeśli nie było podziałów użytkownika) program porównuje początek wyrazu z listą przedrostków do dzielenia (listę tę można edytować w oknie konfigurowania modułu słownikowego). Jeśli początek wyrazu zostanie dopasowany do jednego z przedrostków, program to zapamiętuje i przechodzi do trzeciego etapu dzielenia, czyli do szukania sylab. Tutaj program poszukuje samogłosek (poczynając od następnej litery po ewentualnym podziale po przedrostku) i wstawia podział między dwie sąsiednie samogłoski lub jeśli są przedzielone jedną spółgłoską – to po pierwszej samogłosce, lub jeśli więcej niż jedną spółgłoską – to po pierwszej spółgłosce (chyba, że rozdzielana para spółgłosek należy do zbioru nie rozdzielanych dwuznaków, np. sz, cz, rz, itd.; listę tę możemy zmieniać w oknie konfigurowania modułu słownikowego). Jest to na razie tablica podziałów dla wyrazu. Teraz dane z tablicy porównywane są z opcjami Minimalna liczba liter przed pierwszym podziałem oraz Minimalna liczba liter po ostatnim podziale. W tekst wstawiane są tylko te wartości z utworzonej wcześniej tablicy, które spełniają wymienione wcześniej warunki.
Jeśli wyraz nie został znaleziony w słowniku – sprawdzany jest stan opcji Dziel tylko wyrazy znalezione w słowniku. Jeśli opcja jest wyłączona, to program realizuje wcześniej omówiony algorytm poczynając od etapu poszukiwania przedrostków.
Po podzieleniu całego tekstu sprawdzany jest stan opcji Wstaw podziały bez znaku. Podział bez znaku jest specjalnym podziałem, który stosujemy np. w takich ciągach znaków: C:\Kombi\Dokumenty\Moje\Test.KMD. W ciągu tym dozwolone jest przeniesienie po każdym znaku \, ale nie chcemy, aby po tym znaku pojawił się znak przeniesienia. Z drugiej strony, aby umożliwić przeniesienie moglibyśmy po tych znakach wstawić spacje, ale w przypadku niewykorzystania takiego przeniesienia wyglądałoby to brzydko. Podziały bez znaku rozwiązują ten problem. Przy ich wstawianiu program wykorzystuje listę Podziały bez znaku po znakach, którą edytujemy w oknie konfigurowania modułu słownikowego.
Ostatnim etapem dzielenia tekstu jest znalezienie miejsc występowania łączników (np. w połączeniach typu matematyczno-fizyczny) i wstawieniu znaku podziału przed każdy łącznik. Zapewnia to graficznie prawidłową postać podzielenia takiego połączenia, która polega na występowaniu dwóch łączników – na końcu wiersza dzielonego i na początku następnego.
Dzielenie odbywa się zawsze od miejsca, w którym znajduje się kursor do końca tekstu, chyba że w tekście jest zaznaczony fragment – wtedy dzielony jest tylko ten fragment.
Działa! Brawo!Jan_J pisze:Pierwsza próba...
byłoby świetnie gdyby ta próba była z rozszerzeniem .oxtJan_J pisze:Pierwsza próba...
.
Kod: Zaznacz cały
# coding: utf8
import sys
import uno
def createUnoService(serviceName):
ctx = uno.getComponentContext()
return ctx.ServiceManager.createInstanceWithContext(serviceName, ctx)
# Danny Brewer 2004
def hasUnoInterface( oObject, cInterfaceName ):
"""Similar to Basic's HasUnoInterfaces() function, but singular not plural."""
# Get the Introspection service.
oIntrospection = createUnoService("com.sun.star.beans.Introspection")
# Now inspect the object to learn about it.
oObjInfo = oIntrospection.inspect(oObject)
# Obtain an array describing all methods of the object.
oMethods = oObjInfo.getMethods(uno.getConstantByName("com.sun.star.beans.MethodConcept.ALL"))
# Now look at every method.
for oMethod in oMethods:
# Check the method's interface to see if
# these aren't the droids you're looking for.
cMethodInterfaceName = oMethod.getDeclaringClass().getName()
if cMethodInterfaceName == cInterfaceName:
return True
return False
def setOptionalHyphens(oDoc, aLocale):
''' wykonaj na wskazanym dokumencie, we wskazanym języku '''
if not hasUnoInterface(oDoc, "com.sun.star.text.XTextDocument"):
return
equalitySign = "="
if sys.version_info.major < 3:
softHyphenSign = unichr(173)
else:
softHyphenSign = chr(173)
oHyphen = createUnoService("com.sun.star.linguistic2.Hyphenator")
if oHyphen is None:
return
oTextCursor = oDoc.Text.createTextCursor()
oTextCursor.gotoStart(False)
result = True
while result:
if oTextCursor.isStartOfWord():
oTextCursor.gotoEndOfWord(True)
# oCharLoc = oTextCursor.getPropertyValue("CharLocale")
res = oHyphen.createPossibleHyphens(oTextCursor.getString(), aLocale, ())
if res is not None:
aWord = res.getPossibleHyphens()
if equalitySign in aWord and not softHyphenSign in aWord:
aWord = aWord.replace(equalitySign, softHyphenSign)
oTextCursor.setString(aWord)
oTextCursor.collapseToEnd()
result = oTextCursor.gotoNextWord(False)
def mainTest():
''' wykonaj na bieżącym dokumencie, po polsku '''
desktop = createUnoService("com.sun.star.frame.Desktop")
doc = desktop.getCurrentComponent()
loc = uno.createUnoStruct('com.sun.star.lang.Locale')
loc.Language = "pl"
loc.Country = "PL"
setOptionalHyphens(doc, loc)
g_exported_script = (mainTest, setOptionalHyphens, )
ale u mnie wygląda to tak, nie ma możliwości rozwinięcia.Jan_J pisze:Rozwiń gałąź shy, uruchom maniTest()