Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctDicoNomsCommunsetPropres - 1
Public Function DicoNomsCommunsetPropres(mot) As String
Dim diconc$, diconp$
Dim ofile
Dim texte$
Dim result$, recherche$
diconc = App.Path & "modules\dictionnaires\dicosfr\diconc.txt"
diconp = App.Path & "modules\dictionnaires\dicosfr\diconp.txt"
lfile = FreeFile
result = ""
recherche = mot & " /"
Open diconc For Input As #lfile
o
Input #lfile, texte
If Mid(texte, 1, Len(recherche)) = recherche Then
End If
result = texte
oop While Not EOF(lfile)
sgBox result
nd Function