Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctMorphNA27Plus - 1
Public Function MorphNA27Plus(mot)
ancienmot = mot
Dim ofile$, lfile%, ligne$, vientde$, code$, premierespace%, deuxiemeespace%, parenthese%, nouveles
pace%
ofile = App.Path & "\modules\WHpars\morphwh.txt"
lfile = FreeFile
Open ofile For Input As #lfile
o
Line 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
je dois maintenant retransformer le fort Bwgrkn en Grenet/SPIonic
otr = Replace(motr, "-", ")")
otr = Replace(motr, "`", "(")
otr = Replace(motr, "V", ")")
f Mid(motr, 1, 2) = ")A" Then mot = "a)" & Mid(mot, 3, Len(mot))
f Mid(motr, 1, 2) = ")E" Then mot = "e)" & Mid(mot, 3, Len(mot))
all DefinirGrec(motr, mott)
oad frmAnalyseMorphologique
rmAnalyseMorphologique.lblDefinition.Caption = mott
je m'occupe à décrypter le code morphologique
rmAnalyseMorphologique.lblmot.Caption = ancienmot
rmAnalyseMorphologique.lblvientde.Caption = vientde
rmAnalyseMorphologique.lblanalyse2.Caption = code
all LireCodeMorph(code)
Load frmRechercheMorphologique