Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireStrongFr - 2
End If
frmParse2.Text1.Text = ""
Open ofile For Input As #lfile
Do
rr:
pres:
lose
On Error GoTo err:
Line Input #lfile, ligne
If Left(ligne, Len(mot)) = mot Then
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne
Do While Not EOF(lfile)
Line Input #lfile, ligne
If Mid(ligne, 1, 1) = "0" Then
GoTo apres:
End If
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne
Loop
End If
Loop While Not EOF(lfile)
oad frmResultatStrong
commenc = 2 * Len(mot) + 1
exte = Trim(Mid(frmParse2.Text1.Text, Len(mot) + 1, Len(frmParse2.Text1.Text)))
space = InStr(1, texte, " ")
exte = Mid(texte, espace + 1, Len(texte))
epere = InStr(1, texte, "\~")
trong = mot
f repere 0 Then
mot = Trim(Mid(texte, 1, repere - 1))
texte = Mid(texte, Len(mot) + 1, Len(texte))
repere2 = InStr(1, texte, "\~ ")
mot = Mid(texte, 1, repere2)
mot = Trim(mot)
mot = Mid(mot, 3, Len(mot) - 1)
mot = Replace(mot, "\", "")
If Right(mot, 1) = "v" Then mot = Mid(mot, 1, Len(mot) - 1) & "j"
mot = Replace(mot, "y", "q")
mot = Replace(mot, "c", "x")
mot = Replace(mot, "Ioa", "Iwa")
mot = Replace(mot, "pho", "fw")
mot = Replace(mot, "-", "")
If Left(mot, 3) = "Ies" And mot "Iessai" Then mot = Replace(mot, "Ies", "Ihs")
lse
espace = InStr(1, texte, " ")
mot = Trim(Mid(texte, 1, espace))
mot = Replace(mot, "ch", "x")
mot = Replace(mot, "Ch", "x")
mot = Replace(mot, "Ioa", "Iwa")
mot = Replace(mot, "pho", "fw")
mot = Replace(mot, "ph", "f")
mot = Replace(mot, "Ph", "f")
mot = Replace(mot, "-", "")
mot = Replace(mot, "s ", "j")
mot = Replace(mot, "y", "q")
mot = Replace(mot, "c", "x")
If Left(mot, 3) = "Ies" And mot "Iessai" Then mot = Replace(mot, "Ies", "Ihs")
nd If
If Right(mot, 1) = "s" Then mot = Mid(mot, 1, Len(mot) - 1) & "j"
If Right(mot, 1) = "o" Then mot = Mid(mot, 1, Len(mot) - 1) & "w"
If Left(mot, 1) = "h" Then mot = Mid(mot, 2, Len(mot))