Acces a un fichier texte ou xls-mdb

[fabcad]

Bonjour,

la sous routine dont le code est ci-dessous me permet de sortir une catégorie d'une chaine de caractères, elle fonctionne bien mais pour mettre a jour la liste des prénoms par exemple c'est un peu dur pour des non programmeurs, c'est pourquoi je souhaiterais les mettre dans un bloc notes sous la forme :

("mot1" . "catégorie")
("mot2" . "catégorie")
("mot3" . "catégorie")
........................................
("motN" . "catégorie")

 

ou alors dans un fichier Excel (Open office Calc) ou mieux dans un fichier mdb d'access via les fonctions ADOLisp.

 

Quelles seraient pour vous le choix le plus judicieux et le plus facile à coder ?

 

C'est une sorte de challenge !

Merci,

 

;---------------------------------------------------------------
;;; sous-fonction permettant de vérifier la catégorie d'un mot suivant les listes de contrôle et de renvoyer cette catégorie dans le programme principal
(defun verification_mot (mot_a_verifier / outpout_categorie)

(setq LISTE_PRENOMS (list "A." "Adam" "Adolphe" "Adrien" "Aimee" ............................ "Yves" "Yvonnick" "Zacharie" "Zenaide" "Hilarion" "E." "Ermangarde"))
(setq LISTE_TYPES (list "Allée" "Avenue" "Bosquets" "Boulevard" "Canal" "Carré" ............................ "Terrain" "Villa" "Village"))
(setq LISTE_ARTICLES (list "d'" "de" "de" "de" "l'" "de" "la" "des" "du" "l'" "le" "au" "aux"))
(setq LISTE_TITRES (list "Abbé" "Abbe" "Amiral" "Capitaine" ............................ "Sous-Lieutenant" "Sous_Lieutenant"))
(setq LISTE_PARTICULES (list "D'" "De" "De" "L'" "De" "La" "Des" "Du" "L'" "La" "Le"))
(setq LISTE_TEXTES (list "et" "Et" "Dit" "DIT" "dit"))
(cond
((vl-position mot_a_verifier LISTE_PRENOMS) (setq outpout_categorie "PRENOM")); fin member dans LISTE_PRENOMS
((vl-position mot_a_verifier LISTE_TYPES) (setq outpout_categorie "TYPE_VOIE")); fin member dans LISTE_TYPE
((vl-position mot_a_verifier LISTE_ARTICLES) (setq outpout_categorie "ARTICLE")); fin member dans LISTE_ARTICLE
((vl-position mot_a_verifier LISTE_TITRES) (setq outpout_categorie "TITRE")); fin member dans LISTE_TITRE
((vl-position mot_a_verifier LISTE_PARTICULES) (setq outpout_categorie "PARTICULE")); fin member dans LISTE_PARTICULE
((vl-position mot_a_verifier LISTE_TEXTES) (setq outpout_categorie "TEXTE")); fin member dans LISTE_TEXTE
(T (setq outpout_categorie "INCONNU"))
); fin cond
outpout_categorie
)
; fin defun verification_mot

 

 

[Edité le 12/11/2009 par fabcad]