Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctMorphWHPlus - 1
Public Function MorphWHPlus(mot)
Dim ofile$, lfile%, ligne$, vientde$, code$, premierespace%, deuxiemeespace%, parenthese%, nouveles
pace%, definir$
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)
code = Mid(ligne, parenthese + 1, Len(ligne) - 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, "`", "(")
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, ",", "/")
otr = definir
all DefinirGrec(motr, mott)
oad frmAnalyseMorphologique
rmAnalyseMorphologique.lblmot.Caption = mot
rmAnalyseMorphologique.lblvientde.Caption = vientde
rmAnalyseMorphologique.lblanalyse2.Caption = code
all LireCodeMorph(code)
Load frmRechercheMorphologique
frmAnalyseMorphologique.lblanalyse.Caption = frmRechercheMorphologique.cboType.Text & " " & frmRec
ercheMorphologique.cboTempsCas.Text & " " & frmRechercheMorphologique.cboGenre.Text & " " & frmRec
ercheMorphologique.cboNombre.Text & " " & frmRechercheMorphologique.cboPersonne.Text
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "
s", "1ère personne du singulier")
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "
s", "2ème personne du singulier")
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "
s", "3ème personne du singulier")
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "
p", "1ère personne du pluriel")
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "
p", "2ème personne du pluriel")
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "
p", "3ème personne du pluriel")
Unload frmRechercheMorphologique