Microsoft Visual Basic - Encyclopaedia Gentium Boni
Microsoft Visual Basic - Encyclopaedia Gentium Boni
Microsoft Visual Basic - Encyclopaedia Gentium Boni
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
fctAnalyseMorphoLatin - 1<br />
Public Function AnalyseMorphoLatin(ligne)<br />
ligne = Replace(ligne, " NOM ", " nominatif ")<br />
ligne = Replace(ligne, " ACC ", " accusatif ")<br />
ligne = Replace(ligne, " GEN ", " génitif ")<br />
ligne = Replace(ligne, " DAT ", " datif ")<br />
ligne = Replace(ligne, " LOC ", " locatif ")<br />
ligne = Replace(ligne, " ABL ", " ablatif")<br />
ligne = Replace(ligne, " NOM", " nominatif ")<br />
ligne = Replace(ligne, " ACC", " accusatif ")<br />
ligne = Replace(ligne, " GEN", " génitif ")<br />
ligne = Replace(ligne, " DAT", " datif ")<br />
ligne = Replace(ligne, " LOC", " locatif ")<br />
ligne = Replace(ligne, " ABL", " ablatif")<br />
ligne = Replace(ligne, " V 0", " Verbe ")<br />
ligne = Replace(ligne, " V 1", " Verbe ")<br />
ligne = Replace(ligne, " V 2", " Verbe ")<br />
ligne = Replace(ligne, " V 3", " Verbe ")<br />
ligne = Replace(ligne, " V 4", " Verbe ")<br />
ligne = Replace(ligne, " V 5", " Verbe ")<br />
ligne = Replace(ligne, " V 6", " Verbe ")<br />
ligne = Replace(ligne, " V 7", " Verbe ")<br />
ligne = Replace(ligne, " V 8", " Verbe ")<br />
ligne = Replace(ligne, " V 9", " Verbe ")<br />
ligne = Replace(ligne, "V 0", " Verbe ")<br />
ligne = Replace(ligne, "V 1", " Verbe ")<br />
ligne = Replace(ligne, "V 2", " Verbe ")<br />
ligne = Replace(ligne, "V 3", " Verbe ")<br />
ligne = Replace(ligne, "V 4", " Verbe ")<br />
ligne = Replace(ligne, "V 5", " Verbe ")<br />
ligne = Replace(ligne, "V 6", " Verbe ")<br />
ligne = Replace(ligne, "V 7", " Verbe ")<br />
ligne = Replace(ligne, "V 8", " Verbe ")<br />
ligne = Replace(ligne, "V 9", " Verbe ")<br />
ligne = Replace(ligne, " N 0", " Nom ")<br />
ligne = Replace(ligne, " N 1", " Nom ")<br />
ligne = Replace(ligne, " N 2", " Nom ")<br />
ligne = Replace(ligne, " N 3", " Nom ")<br />
ligne = Replace(ligne, " N 4", " Nom ")<br />
ligne = Replace(ligne, " N 5", " Nom ")<br />
ligne = Replace(ligne, " N 6", " Nom ")<br />
ligne = Replace(ligne, " N 7", " Nom ")<br />
ligne = Replace(ligne, " N 8", " Nom ")<br />
ligne = Replace(ligne, " N 9", " Nom ")<br />
ligne = Replace(ligne, " N N", " Nom neutre")<br />
ligne = Replace(ligne, " N M", " Nom masculin")<br />
ligne = Replace(ligne, " N F", " Nom féminin")<br />
ligne = Replace(ligne, " N X", " Nom ")<br />
ligne = Replace(ligne, " N 0", " Nom ")<br />
'ligne = Replace(ligne, "N 1", " Nom ")<br />
'ligne = Replace(ligne, "N 2", " Nom ")<br />
'ligne = Replace(ligne, "N 3", " Nom ")<br />
'ligne = Replace(ligne, "N 4", " Nom ")<br />
'ligne = Replace(ligne, "N 5", " Nom ")<br />
'ligne = Replace(ligne, "N 6", " Nom ")<br />
'ligne = Replace(ligne, "N 7", " Nom ")<br />
'ligne = Replace(ligne, "N 8", " Nom ")<br />
'ligne = Replace(ligne, "N 9", " Nom ")<br />
'ligne = Replace(ligne, "N N", " Nom neutre")<br />
'ligne = Replace(ligne, "N M", " Nom masculin")<br />
'ligne = Replace(ligne, "N F", " Nom féminin")<br />
'ligne = Replace(ligne, "N X", " Nom ")<br />
ligne = Replace(ligne, " X ", " (?) ")<br />
ligne = Replace(ligne, " ADJ ", " Adjectif ")<br />
ligne = Replace(ligne, " PRON ", " Pronom ")<br />
ligne = Replace(ligne, " ADV ", " Adverbe ")<br />
ligne = Replace(ligne, " NUM ", " numéral ")<br />
ligne = Replace(ligne, " SUPINE ", " supin ")<br />
ligne = Replace(ligne, " CONJ ", " Conjonction ")<br />
ligne = Replace(ligne, " INTERJ ", " Interjection ")