Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireComplement - 1
Public Function LireComplement(complement)
Dim ofile$
Dim lfile%
Dim ligne$
Dim Resultat$
complement = Replace(complement, "{", "")
complement = Replace(complement, "}", "")
ofile = App.Path & "\lex\Robinson.dat"
lfile = FreeFile
Open ofile For Input As #lfile
Do
Line Input #lfile, ligne
If ligne = complement Then
Line Input #lfile, ligne
Resultat = LCase(ligne)
Exit Do
End If
Loop While Not EOF(lfile)
lose
PLUSIEURS MOTS
esultat = Replace(Resultat, "conjunctive particle", "particule conjonctive")
esultat = Replace(Resultat, "proper noun", "nom propre")
esultat = Replace(Resultat, "personal pronoun", "pronom personnel")
esultat = Replace(Resultat, "relative pronoun", "pronom relatif")
esultat = Replace(Resultat, "demonstrative pronoun", "pronom démonstratif")
esultat = Replace(Resultat, "reflexive pronoun", "pronom réfléchi")
esultat = Replace(Resultat, "personal adjective", "adjectif personnel")
esultat = Replace(Resultat, "relative adjective", "adjectif relatif")
esultat = Replace(Resultat, "demonstrative adjective", "adjectif démonstratif")
esultat = Replace(Resultat, "reflexive adjective", "adjectif réfléchi")
esultat = Replace(Resultat, "definite article", "article défini")
esultat = Replace(Resultat, "indefinite article", "article indéfini")
TYPE DE MOTS
esultat = Replace(Resultat, "adjective", "adjectif")
esultat = Replace(Resultat, "noun", "nom")
esultat = Replace(Resultat, "verb", "verbe")
esultat = Replace(Resultat, "pronoun", "pronom")
esultat = Replace(Resultat, "adverb", "adverbe")
esultat = Replace(Resultat, "preposition", "préposition")
esultat = Replace(Resultat, "participle", "participe")
DECLINAISONS DES NOMS
esultat = Replace(Resultat, "nominative", "nominatif")
esultat = Replace(Resultat, "accusative", "accusatif")
esultat = Replace(Resultat, "dative", "datif")
esultat = Replace(Resultat, "genitive", "genitif")
esultat = Replace(Resultat, "vocative", "vocatif")
GENRES
esultat = Replace(Resultat, "masculine", "masculin")
esultat = Replace(Resultat, "feminine", "feminin")
esultat = Replace(Resultat, "neuter", "neutre")
NOMBRE
esultat = Replace(Resultat, "singular", "singulier")
esultat = Replace(Resultat, "plural", "pluriel")
VOIX
esultat = Replace(Resultat, "middle or passive", "moyen ou passif")
esultat = Replace(Resultat, "active", "actif")
esultat = Replace(Resultat, "passive", "passif")
esultat = Replace(Resultat, "middle", "moyen")
esultat = Replace(Resultat, "deponent", "déponent")
TYPES DE PRONOM
esultat = Replace(Resultat, "relative", "relatif")
esultat = Replace(Resultat, "demonstrative", "demonstratif")
esultat = Replace(Resultat, "reflexive", "réfléchi")