Tranformer string en liste ?

[Bred]

Salut,

Quelque fois je bute sur des choses moi... :casstet:

 

Je réccupère dans un fichier texte des données sous forme

"(toto . Tête)\n(titi . grosminet)\n(coco . chanel)"

 

... et je n'arrive pas à le changer en liste

(toto . Tête)(titi . grosminet)(coco . chanel)

 

... merci....

 

(j'ai tester (read "(rrere.......)") mais le résultat est transformer)

 

[Edité le 4/12/2006 par Bred]

[(gile)]

Salut,

 

(setq str  "(toto . Tête)\n(titi . grosminet)\n(coco . chanel)"
     ferm 0
)
(while (and (setq ouvr (vl-string-position (ascii "(") str ferm))
    (setq ferm (vl-string-position (ascii ")") str ouvr))
      )
 (setq lst (cons (read (substr str (1+ ouvr) (- ferm ouvr -1))) lst))
)
(reverse lst) 

[Patrick_35]

Salut

Une autre manière de faire

 

(defun creer_liste(val sep / lst pos)
 (while (not (eq val ""))
   (setq pos (vl-string-search sep val)
         lst (append lst (list (read (substr val 1 pos))))
         val (substr val (if pos (+ pos 2) (1+ (strlen val))) (strlen val))
   )
 )
 lst
)

(creer_liste "(toto . Tête)\n(titi . grosminet)\n(coco . chanel)" "\n")

 

@+

[Bred]

Merci !

j'avoue que je n'étais vraiment pas partis sur cette logique... je cherchais une fonction déjà existante en fait ...

[Bred]

Ah zut ! :casstet:

 

un truc qui m'arrive : dans une des liste j'ai cette forme :

 

"(101F7 . 101FA)\n( 101E8 . 101EB)"

 

...et le 101E8 se transforme en 1.01e+010 ...

(je m'en étais aperçu avec le "read" en fait ...)

[Bred]

... personne aurait une piste suplémentaire Siou'plait ?

[(gile)]

J'ai un peu cherché, mais en dehors de read, je ne vois pas...