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.
--
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
