Difference between revisions of "API/Samples/StarBasic/Office/SpellChecker"
From Apache OpenOffice Wiki
Line 6: | Line 6: | ||
| Programming Language: || StarBasic | | Programming Language: || StarBasic | ||
|+ | |+ | ||
− | | Author: || [[User: | + | | Author: || [[User:Lgodard| Laurent Godard]] <laurentgodard@openoffice.org> , 2007 |
|+ | |+ | ||
| License: || LGPL | | License: || LGPL |
Revision as of 08:09, 25 August 2007
Snippet: | SpellChecking.BAS | Description: | Illustrate the use of the spellchecker to know if a word is valid. | Programming Language: | StarBasic | Author: | Laurent Godard <laurentgodard@openoffice.org> , 2007 | License: | LGPL |
[starbasic]
Sub Main
' Selects the language dim locale as new com.sun.star.lang.Locale locale.Language="fr" 'ISO 639 locale.Country="FR" 'ISO 3166
' Get the service LinguService = createUnoService("com.sun.star.linguistic2.LinguServiceManager") spellChecker = LinguService.getSpellchecker()
msgbox "is dictionary detected ? " +chr(10)+ spellChecker.hasLocale(locale)
word = inputbox("File to check (empty for end) ?")
while word<>""
isWordValid = spellChecker.isValid(word, locale, array())
if isWordValid then msgbox word + " is valid" else msgbox word + " is NOT valid" endif
word = inputbox("File to check (empty for end) ?")
wend
End Sub