Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireStrongNEG - 1
Public Function LireStrongNEG(mot)
Dim ofile
ofile = FreeFile
Dim lfile
lfile = App.Path & "\tools\corrigerneg.txt"
Dim ligne As String
Dim premierRepere As Integer
Dim secondrepere As Integer
Dim nstrong As String
Open lfile For Input As #ofile
o
ine Input #ofile, ligne
If InStr(1, ligne, mot & "