15.07.2013 Views

Microsoft Visual Basic - Encyclopaedia Gentium Boni

Microsoft Visual Basic - Encyclopaedia Gentium Boni

Microsoft Visual Basic - Encyclopaedia Gentium Boni

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

fctAnalyseMorphoLatin - 3<br />

ligne = Replace(ligne, " IND ", " indicatif ")<br />

ligne = Replace(ligne, " SUB ", " subjonctif ")<br />

ligne = Replace(ligne, " IMP ", " impératif ")<br />

ligne = Replace(ligne, " INF ", " infinitif ")<br />

ligne = Replace(ligne, " PPL ", " participe ")<br />

ligne = Replace(ligne, " DEP ", " déponent ")<br />

ligne = Replace(ligne, " SEMIDEP ", " semidéponent ")<br />

ligne = Replace(ligne, " PERFDEF ", " verbe défini parfait ")<br />

ligne = Replace(ligne, " PPL", " participe ")<br />

ligne = Replace(ligne, " IND", " indicatif ")<br />

ligne = Replace(ligne, " SUB", " subjonctif ")<br />

ligne = Replace(ligne, " IMP", " impératif ")<br />

ligne = Replace(ligne, " INF", " infinitif ")<br />

ligne = Replace(ligne, " PPL", " participe ")<br />

ligne = Replace(ligne, " DEP", " déponent ")<br />

ligne = Replace(ligne, " SEMIDEP", " semidéponent ")<br />

ligne = Replace(ligne, " PERFDEF", " verbe défini parfait ")<br />

ligne = Replace(ligne, " unkown ", " ? ")<br />

ligne = Replace(ligne, " PERS ", " personnel ")<br />

ligne = Replace(ligne, " REL ", " relatif ")<br />

ligne = Replace(ligne, " REFLEX ", " réflexif ")<br />

ligne = Replace(ligne, " DEMONS ", " démonstratif ")<br />

ligne = Replace(ligne, " INTERR ", " interrogatif ")<br />

ligne = Replace(ligne, " INDEF ", " indéfini ")<br />

ligne = Replace(ligne, " ADJECT ", " adjectival ")<br />

ligne = Replace(ligne, " TO_BE ", " verbe être ")<br />

ligne = Replace(ligne, " TO_BEING ", " (dérivé du verbe être) ")<br />

ligne = Replace(ligne, " PRES ", " présent ")<br />

ligne = Replace(ligne, " TRANS ", " transitif ")<br />

ligne = Replace(ligne, " INTRANS ", " présent ")<br />

ligne = Replace(ligne, " IMPERS ", " présent ")<br />

ligne = Replace(ligne, " 1 S", " 1ère pers. sing. ")<br />

ligne = Replace(ligne, " 2 S", " 2ème pers. sing. ")<br />

ligne = Replace(ligne, " 3 S", " 3ème pers. sing. ")<br />

ligne = Replace(ligne, " 1 P", " 1ère pers. plur. ")<br />

ligne = Replace(ligne, " 2 P", " 2ème pers. plur. ")<br />

ligne = Replace(ligne, " 3 P", " 3ème pers. plur. ")<br />

ligne = Replace(ligne, " NUM ", " numéral ")<br />

ligne = Replace(ligne, " ORD ", " ordinal ")<br />

ligne = Replace(ligne, " CARD ", " cardinal ")<br />

ligne = Replace(ligne, " COMP ", " comparatif ")<br />

ligne = Replace(ligne, " SUPER ", " superlatif ")<br />

ligne = Replace(ligne, " DIST ", " distributif ")<br />

ligne = Replace(ligne, "0 ", "")<br />

ligne = Replace(ligne, "1 ", "")<br />

ligne = Replace(ligne, "2 ", "")<br />

ligne = Replace(ligne, "3 ", "")<br />

ligne = Replace(ligne, "4 ", "")<br />

ligne = Replace(ligne, "5 ", "")<br />

ligne = Replace(ligne, "6 ", "")<br />

ligne = Replace(ligne, "7 ", "")<br />

ligne = Replace(ligne, "8 ", "")<br />

ligne = Replace(ligne, "9 ", "")<br />

ligne = Replace(ligne, " ", " ")<br />

ligne = Replace(ligne, " X", "")<br />

ligne = Replace(ligne, " POS", " positif ")<br />

ligne = Replace(ligne, " Late", " (tardif) ")<br />

'ligne = Replace(ligne, " (archaïqe)", " A")<br />

'ligne = Replace(ligne, " (préclassique)", " B")<br />

'ligne = Replace(ligne, " (moderne)", " H")<br />

ligne = Trim(ligne)<br />

End Function

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!