read

[zebulon_]

Bonjour,

 

 

mon problème de départ est de transformer la chaine "1 2" en une liste (1 2).

 

J'ai regardé dans les vl-string, mais je n'ai rien trouvé de concluant (j'ai peut-être mal regardé) ;)

 

Du coup je me suis embarqué à faire une itération, qui trouve les espaces dans le texte et qui rajoute le chiffre à une liste.

 

J'ai trouvé cela peu performant et j'ai poussé plus loin ma recherche en étudiant les fonctions qui se rapportent aux textes.

 

Et je me suis intéressé à la fonction (read chaine), qui retourne la première liste ou le premier atome obtenu de chaine

 

(read "1 2") renvoie l'entier 1

 

(read "(1 2)") revoie la liste (1 2)

 

Et voilà ! il suffit de rajouter des "(" et ")" au texte !

 

donc :

 

(setq TXT "1 2")

(read (strcat "(" TXT ")"))

 

et le tour est joué !

 

Bon, c'est peut être un truc qui est connu comme le loup blanc... Mais comme je viens de le découvrir, je m'empresse de partager mon enthousiasme.

 

Amicalement

Vincent