Bonjour Jean Michel,
Secrétariat a écrit :
Francois Gatto a écrit :
Rafi wrote:
"Pierre Wenger" <[EMAIL PROTECTED]> a écrit
Je viens de faire une installation toute neuve sur un PC de test qui
avait un Windows tout frais et les dicos installés d'origine sont :
...
- Souahéli (Tanzanie) Ca ne s'invente pas...
Le swahili (orthographe plus commune) est une langue assez répandue
dans l'est de l'Afrique.
Une idée de traitement du fichier "dictionary.lst" :
Sub DictionaryCleaner
Dim oPathSettings
Dim oPSLing As String, oPSWork As String
Dim sUrl As String, sOutputUrl As String
Dim iInputFile As Integer, iOutputFile As Integer
Dim sLine As String, sMsg As String
oPathSettings = CreateUnoService( "com.sun.star.util.PathSettings" )
With oPathSettings
oPSLing = .Linguistic
oPSWork = .Work
End With
sUrl = convertToUrl( oPSLing & "/ooo/dictionary.lst" )
If FileExists( sUrl ) Then
iInputFile = Freefile
Open sUrl For InPut As iInputFile
iOutputFile = Freefile
sOutputUrl = convertToUrl( oPSWork & "/dictionary.lst" )
Open sOutputUrl For OutPut As iOutputFile
While NOT Eof( iInputFile )
Line Input #iInputFile, sLine
If Mid( sLine, 6, 5 ) = "fr FR" OR _
Left( sLine, 1 ) = "#" OR _
sLine = "" Then
Print #iOutputFile, sLine
End If
Wend
Close
sMsg = "Le fichier " & sOutputUrl & chr(10) _
& " a été créé." & chr(10) _
& "Vous pouvez remplacer le fichier original par celui-ci,"
&chr(10) _
& "si vous avez les droits d'accès requis."
MsgBox( sMsg, 64, "DictionaryCleaner" )
Else
Msgbox( "Le fichier " & chr(10) & sUrl & chr(10) & "n'existe
pas",48, "DictionaryCleaner")
End If
End Sub
Je n'ai pas fais de test sous Windows mais je pense que cela doit
fonctionner de même.
bonjuor,
Sous Win, ta macro permet de créer un fichier dictionary.list dans le
répertoire Mes documents, et il a ce contenu.
Dans quel répertoire ensuite faut-il le transférer ?
Jean Michel
# List of All Dictionaries to be Loaded by OpenOffice
# ---------------------------------------------------
# Each Entry in the list have the following space delimited fields
#
# Field 1: Entry Type "DICT" - spellchecking dictionary
# "HYPH" - hyphenation dictionary
# "THES" - thesaurus files
#
# Field 2: Language code from Locale "en" or "de" or "pt" ...
#
# Field 3: Country Code from Locale "US" or "GB" or "PT"
#
# Field 4: Root name of file(s) "en_US" or "hyph_de" or "th_en_US
# (do not add extensions to the name)
Heu !!!
Tu devrais avoir :
# List of All Dictionaries to be Loaded by OpenOffice
# ---------------------------------------------------
# Each Entry in the list have the following space delimited fields
#
# Field 1: Entry Type "DICT" - spellchecking dictionary
# "HYPH" - hyphenation dictionary
# "THES" - thesaurus files
#
# Field 2: Language code from Locale "en" or "de" or "pt" ...
#
# Field 3: Country Code from Locale "US" or "GB" or "PT"
#
# Field 4: Root name of file(s) "en_US" or "hyph_de" or "th_en_US
# (do not add extensions to the name)
# 25/03/2006 20:02:44
# 25/03/2006 20:02:46
DICT fr FR fr_FR
HYPH fr FR hyph_fr_FR
THES fr FR th_fr_FR_v2
Avec les indications des DICT, HYPH et THES
..... sinon ça va pas z'aller ;)
Normalement, et par défaut, le chemin devrait être :
C:\Program Files\OpenOffice.org 2.0\share\dict\ooo
--
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
