AutoLisp‎ > ‎Việt Lisp Functions‎ > ‎

vlp-string->kens

đăng 07:20, 10 thg 10, 2011 bởi Lisp Việt   [ đã cập nhật 07:21, 10 thg 10, 2011 ]
 
(defun vlp-string->kens (str char / pos kens)
  (if (and str char)
    (progn
      (setq kens (append))
      (while (setq pos (vl-string-search char str))
             (setq kens (append kens (list (substr str 1 pos))))
             (setq str (substr str (+ pos 2)))
      )
      (vl-remove "" (append kens (list str)))
    )
  )
)
 
Comments