0 Members and 1 Guest are viewing this topic.
;; == Function MeString2List; Converts a string to a list.; Arguments [Type]:; Stg = String [STR]; Del = Delimiter pattern [STR]; Return [Type]:; > Converted string [LIST]; > False if string empty; Notes:; None;(defun MeString2List (Stg Del / DelLgt StrPos TmpLst TmpStr) (if (not (eq Stg "")) (progn (setq TmpStr Stg DelLgt (1+ (strlen Del)) ) (while (setq StrPos (vl-string-search Del TmpStr)) (setq TmpLst (cons (substr TmpStr 1 StrPos) TmpLst) TmpStr (substr TmpStr (+ StrPos DelLgt)) ) ) (setq TmpLst (cons TmpStr TmpLst)) (reverse TmpLst) ) ))
(defun split ( str del / nlist i ) (While (setq i(vl-string-position (ascii del) str)) (setq nlist(append nlist (list (substr str 1 i))) str (substr str (+ i 2))) ) (setq nlist (append nlist (list str ))) )