13 messages in org.openoffice.fr.progRe: [prog] Le mot est-il dans le dict...
FromSent OnAttachments
Bernard Siaud alias TroumadAug 22, 2007 8:28 am 
pascal.brognezAug 22, 2007 9:31 am 
Laurent GodardAug 22, 2007 9:41 am 
Francois GattoAug 22, 2007 9:43 am 
Laurent GodardAug 22, 2007 9:58 am 
Bernard Siaud alias TroumadAug 22, 2007 10:02 am 
Bernard Siaud alias TroumadAug 23, 2007 5:43 am 
Laurent GodardAug 23, 2007 6:47 am 
Bernard Siaud alias TroumadAug 23, 2007 9:27 am 
Bernard Siaud alias TroumadAug 23, 2007 9:30 am 
Laurent GodardAug 23, 2007 9:37 am 
Bernard Siaud alias TroumadAug 23, 2007 10:00 am 
Bernard Siaud alias TroumadAug 23, 2007 12:30 pm 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] Le mot est-il dans le dictionnaire ?Actions...
From:Laurent Godard (lgod@indesko.com)
Date:Aug 23, 2007 6:47:47 am
List:org.openoffice.fr.prog

Bonjour Bernard

J'ai l'impression que ce n'est pas du Basic, mais peut-être du Java ! Je ne connais pas ce langage.

c'est du java mais ca se transform pas mal voila vite fait sans garantie

HTH

Laurent

Sub Main

dim props() as new com.sun.star.beans.PropertyValue

dim locale as new com.sun.star.lang.Locale locale.Language="fr" locale.Country="FR"

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