Topic: Make strange string in to a list?

[T.Willey]

Thought that might be a concern.  Oh well.  But in the interest of cat skinning.

Code: [Select]

((lambda ( s ) (substr s 1 (1- (strlen s))))(apply 'strcat (mapcar (function (lambda ( a ) (strcat a ","))) '("a" "b" "c"))))


[alanjt]

Thought that might be a concern.  Oh well.  But in the interest of cat skinning.

Code: [Select]

((lambda ( s ) (substr s 1 (1- (strlen s))))(apply 'strcat (mapcar (function (lambda ( a ) (strcat a ","))) '("a" "b" "c"))))


Nice.

[VovKa]

Code: [Select]

(substr (apply 'strcat (mapcar (function (lambda ( a ) (strcat "," a))) '("a" "b" "c"))) 2)

[CAB]

Code: [Select]

(mapcar (function (lambda(x) (setq str (cond (str (strcat str "," x))(x))))) strlist)

[alanjt]

Well now I fell dumb. LoL

[ElpanovEvgeniy]

Code: [Select]

(apply 'strcat (mapcar 'strcat '("a" "b" "c") '("," "," "")))

[Lee Mac]

Code: [Select]

(defun Str-Make (lst del / str x)
  (setq str  (car lst))
  (foreach x (cdr lst) (setq str (strcat str del x)))
str)


Code: [Select]

(defun Str-Make (lst del / str)
  (setq str (car lst))
  (while (setq lst (cdr lst)) (setq str (strcat str del (car lst))))
str)


[alanjt]

Code: [Select]

(defun Str-Make (lst del / str x)
    (setq str  (car lst))
    (foreach x (cdr lst) (setq str (strcat str del x)))
  str)


Code: [Select]

(defun Str-Make (lst del / str)
  (setq str (car lst))
  (while (setq lst (cdr lst)) (setq str (strcat str del (car lst))))
  str)


Very cool Lee! And to think, I was pretty happy with my recursive one.

[Lee Mac]

Very cool Lee! And to think, I was pretty happy with my recursive one.

Thanks Alan, just adding to the mix 

[CAB]

Just wrapped

Code: [Select]

(defun Str-Make (lst del / str)
  (mapcar (function (lambda(s) (setq str (if str (strcat str del s) s)))) lst)
  str
)

Code: [Select]

(defun Str-Make (lst del / str f)
  (apply 'strcat (mapcar (function (lambda (s) (setq f (if f (strcat del s) s)))) lst))
)

[KewlToyZ]

 

[alanjt]

That's just Silly.

[CAB]

Looks like someone working on "String Theory"

[jeff101217]

Another  

Code: [Select]

(defun StringStrip (str)
  ;; Lee Mac  ~  01.04.10

  (defun StringParser (str del)
    (if (setq pos (vl-string-search del str))
      (cons (substr str 1 pos)
            (StringParser (substr str (+ pos 1 (strlen del))) del))
      (list str)))

  (StringParser (vl-string-trim "*" str) "*"))


Code: [Select]

(StringStrip "*jsyq_g_list*G1*G2*G3*G4*G5*")
==> ("jsyq_g_list" "G1" "G2" "G3" "G4" "G5")


  great!

[jeff101217]

thanks a lot every one , i think this problem is solved;and  i got some new thought .