Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctAnalyseSeptante - 1
Public Function AnalyseSeptante(mot) As String
Dim septante$
Dim analyse$
Dim codemot$
Dim pourcodemot$
Dim origine$
Dim file$, ligne$, motr$, mott$
chercher = mot
file = FreeFile
septante = App.Path & "\tools\septante.txt"
frmParse2.Text1.Text = ""
Open septante For Input As #file
Do
Input #file, ligne
If InStr(1, ligne, chercher, vbTextCompare) 0 Then
' MsgBox ligne
analyse = Trim(Mid(ligne, Len(mot) + 1, Len(ligne)))
' MsgBox analyse, vbInformation, "Analyse complète"
pourcodemot = InStrRev(analyse, " ", , vbTextCompare)
pourcodemot = Val(pourcodemot)
codemot = Mid(analyse, 1, pourcodemot)
codemot = Trim(codemot)
'MsgBox "Analyse morpho : " & codemot
origine = Mid(analyse, Len(codemot) + 1, Len(analyse))
origine = Trim(origine)
End If
Loop While Not EOF(file)
lose #file
all AfficherAnalyseSeptante(mot, origine, codemot)
nd Function