Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctAutomatosWH - 1
Public Function AutomatosWH(mot)
If mot = "" Then Exit Function
Dim ofile$
Dim lfile%
Dim ligne$
nveaumot = mot
'If Right(mot, 1) = "j" Then mot = Mid(mot, 1, Len(mot) - 1) + "v"
'mot = Replace(mot, "x", "c")
'mot = Replace(mot, "q", "y")
ofile = App.Path & "\tools\corrwh.txt"
lfile = FreeFile
mot = Replace(mot, "V ", "n ")
mot2 = Replace(mot, "y", "§")
mot3 = Replace(mot, "q", "y")
Open ofile For Input As #lfile
Do
Line Input #lfile, ligne
ligne = Trim(ligne)
If InStr(1, ligne, LCase(mot)) 0 Or _
InStr(1, ligne, LCase(mot2)) 0 Or _
InStr(1, ligne, LCase(mot3)) 0 Then
repere1 = InStr(1, ligne, "{")
strong = Mid(ligne, Len(mot) + 1, repere1)
repere3 = InStr(1, strong, "{")
strong = Mid(strong, 1, repere3 - 1)
strong = Trim(strong)
If Len(strong) = 9 Then
strong = Mid(strong, 1, 4)
ElseIf InStr(1, strong, " ") 0 Then
strong = Mid(strong, 1, InStr(1, strong, " ") - 1)
End If
complement = Trim(Mid(ligne, Len(mot) + Len(strong) + 2, Len(ligne)))
If InStr(1, complement, " ") 0 Then
tempstrong = Mid(complement, 1, InStr(1, complement, " ") - 1)
complement = Mid(complement, InStr(1, complement, " ") + 1, Len(complement))
Exit Do
End If
End If
Loop While Not EOF(lfile)
lose
strong = strong
complement = complement
A partir du mot initial, j'ai trouvé le numéro strong
je cherche donc ce qu'il signifie
et je le mets toute la définition dans temp2
f strong "" Then
mot = strong
Call LireStrongFrN(strong)
nd If
--------------------------------------------
maintenant je lis temp2, et je regarde comment le mot a été traduit par Louis Segond
file = App.Path & "\tools\temp2.txt"
file = FreeFile
Open ofile For Input As #lfile
Do