filtrer une liste...

[CADy]

Bonjour à tous,...

 

j'aimerais savoir comment filtrer une liste.

 

ex:

 

(setq a (List "Bonjour" "BonMatin" "Benoit" "Bernard" "Maurice"))

 

Donc si je filtre " Bon* " je devrai obtenir ceci..:

 

"Bonjour" BonMatin"

 

qq1 sait ?

[Bred]

Salut,

Une méthode (que des gens qui se reconnaitrons s'empresserons de simplifier magnifiquement.... ;) )

 

(setq a (List "Bonjour" "BonMatin" "Benoit" "Bernard" "Maurice" "QuiquaBon" "boBon"))
(setq x 0
     lst-Bon nil)
(repeat (length a)
 (if (and
(vl-string-search "Bon" (nth x a))
(not (equal (vl-string-left-trim "Bon" (nth x a)) (nth x a))))
   (setq lst-Bon (append (list (nth x a)) lst-Bon))
)
 (setq x (+ x 1))
 )

 

[Edité le 22/1/2007 par Bred]

[Bred]

Pour info je viens d'éditer mon code ci-dessus car l'ancien prenait tous les mots contenant "Bon", que ce soit en début ou n'importe-où (ex : "QuiquaBon" "boBon")

[(gile)]

Salut,

 

(setq a (List "Bonjour" "BonMatin" "Benoit" "Bernard"  "QuiquaBon" "boBon"))

(vl-remove-if-not '(lambda (x) (wcmatch x "Bon*")) a) 

[Bred]

(que des gens qui se reconnaitrons s'empresserons de simplifier magnifiquement.... )

Qu'est ce que je disais !!!!. ....

 

 wcmatch

... je ne connaissais pas....

[(gile)]

... je ne connaissais pas....

 

Tu ne pourras plus le dire ;)

[didier]

Bonjour,

 

pour mémoire, il existe une fonction qui trie les listes alphanumériques.

(setq ListeTriee (acad_strlsort ListeNonTriee))

 

amicalement

[Bred]

acad_strlsort trie par ordre alphabétique...

[didier]

coucou,

 

navré d'être Hors Sujet,

j'avais mal lu le message, et la façon de trier ne m'a pas attiré le regard.

 

excuses :cool:

[CADy]

WoO !...

 

j'avais commencer à écrire un paragraphe comme code..

et même....que je pensais mettre des alinéas !...;-P

 

Merci !.....