Re,
Secrétariat a écrit :
Francois Gatto a écrit :
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
Ben, non, ça s'arrête à # Field 4: Root name of file(s) "en_US" or
"hyph_de" or "th_en_US
# (do not add extensions to the name)
Si quelqu'un d'autre veut bien tester.
Jean Michel
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Je t'ai répondu dans un précédent envoi, mais il semble que celui-ci ne
soit pas parvenu, aussi je réitère ma réponse :
Attention, la macro présentée n'installe pas les éléments du
dictionnaire français.
Il faut donc au préalable avoir installé / mis à jour le dico français,
puis lancer la macro pour qu'elle ne conserve que les éléments "fr FR"
dans l'exemple présenté.
Dans une version 1.1.x (si tel est le cas) tu devrais donc avoir :
DICT fr FR fr_FR
HYPH fr FR hyph_fr_FR
THES fr FR th_fr_FR
NB : si j'ai un peu de temps j'essaierai d'intégrer la macro dans le
script de Laurent Godard ... avec sa bénédiction of course ;)
--
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
