Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctRechercheMorphAPFG - 1
Public Function RechercheMorphAPFG(mot)
Dim ofile$, lfile%, ligne$, vientde$, code$, premierespace%, deuxiemeespace%, parenthese%, nouveles
pace%
ofile = App.Path & "\modules\LXX\lxx.txt"
lfile = FreeFile
ofile2 = App.Path & "\tools\temp.txt"
mot = mot & " "
Open ofile For Input As #lfile
o
Line Input #lfile, ligne
If InStr(1, ligne, mot) 0 Then
LFile2 = FreeFile
Open ofile2 For Output As #LFile2
ligne = Replace(ligne, ") ", ")" & vbCrLf)
Print #LFile2, ligne
Exit Do
'Close
End If
oop While Not EOF(lfile)
lose
file = FreeFile
Open ofile2 For Input As #lfile
o
ine Input #lfile, ligne
If Left(ligne, Len(mot)) = mot Then
premiereespace = InStr(1, ligne, " ")
deuxiemeespace = InStr(premiereespace, ligne, " ")
parenthese = InStr(1, ligne, "(")
vientde = Trim(Mid(ligne, premiereespace, Len(ligne)))
nouvelespace = InStr(1, vientde, " ")
vientde = Left(vientde, nouvelespace - 1)
'petit tour de passe passe...
code = StrReverse(ligne)
espace = InStr(1, code, "(")
code = Mid(code, 1, espace)
code = StrReverse(code)
code = Mid(code, 2, Len(code) - 1)
Exit Do
End If
oop While Not EOF(lfile)
lose
f Right(code, 1) = ")" Then code = Mid(code, 1, Len(code) - 1)
efinir = vientde
efinir = Replace(definir, "/", "=")
efinir = Replace(definir, "\", "|")
efinir = Replace(definir, "v", ")")
efinir = Replace(definir, "~", "(")
efinir = Replace(definir, ".", "\")
efinir = Replace(definir, "_", "(=")
efinir = Replace(definir, "+", ")=")
efinir = Replace(definir, "[", "(/")
efinir = Replace(definir, "]", "(\")
efinir = Replace(definir, ";", ")/")
efinir = Replace(definir, "'", ")\")
efinir = Replace(definir, ",", "/")
je renseigne la définition du mot grec
otr = definir