0 Members and 1 Guest are viewing this topic.
'(("1" nil "France")("2" nil "Germany")("3" nil "Holland")("D" nil "Berne"))
"France(1)/Germany(2)/Holland(3)/Berne(D)/"
"France(1)/Germany(2)/Holland(3)/Berne(D)"
(strcat (caddar lst) "(" (caar lst) ")" (apply (function strcat) (mapcar (function (lambda (l) (strcat "/" (caddr l) "(" (car l) ")"))) (cdr lst))))-> "France(1)/Germany(2)/Holland(3)/Berne(D)"
(vl-string-right-trim "/" (apply 'strcat (mapcar '(lambda (x) (strcat (last x) "(" (car x) ")/")) '(("1" nil "France") ("2" nil "Germany") ("3" nil "Holland") ("D" nil "Berne")) ) ))