List to comma delimited string

[gschmidt]

Hi,

 

How can I convert a List to a comma delimited string?

 

(setq List '((a b c d e f))) -> (setq result "a, b, c, d, e, f")

[pBe]

Are those symbols as elements? i.e variable name, not as string

[gschmidt]

a = string

bcdef = float

[pBe]

a = string

bcdef = float

 

Sorry dude, I don't get it

[gschmidt]

Ok sorry maybe is this better?

(setq List '((Anchor1 10 10 6.5 900 600 500 400))) -> (setq result "Anchor1, 10, 10, 6.5, 900, 600, 500, 400")

I want to write the List as a row to a CSV file

[Tharwat]

Be careful , you are assigning a list to the function .

 

Maybe ?

 

(setq lst '((Anchor1 10 10 6.5 900 600 500 400)))

(mapcar '(lambda (l)
          (apply 'strcat (mapcar '(lambda (x) (if (eq (type x) 'SYM) (strcat (vl-princ-to-string x) ",") (strcat (rtos x 2) ","))) l))
           )
       lst
      )

[gschmidt]

It's just an example name, i'll give it a try...thanx

[gschmidt]

What happens if the List has NIL values?

I want to convert NIL values to an empty string: " "

[Tharwat]

What happens if the List has NIL values?

I want to convert NIL values to an empty string: " "

 

(setq lst '((Anchor1 10 nil 10 6.5 900 600 500 400)))

(mapcar '(lambda (l)
           (apply 'strcat (mapcar '(lambda (x) (cond ((eq (type x) 'SYM) (strcat (vl-princ-to-string x) ","))
                                                     ((numberp x) (strcat (rtos x 2) ","))
                                                     ((not x) " ,")
                                               )
                         )
                      l))
           )
             lst
      )

[gschmidt]

Works like a charm thanx!

[Tharwat]

Works like a charm thanx!

 

You're welcome .