;;++++++++++++++++++ ;; parser by CAB ;;++++++++++++++++++ (defun sparser (str delim / ptr lst) (while (setq ptr (vl-string-search delim str)) (setq lst (cons (substr str 1 ptr) lst)) (setq str (substr str (+ ptr 2))) ) (reverse (cons str lst)) ) _$ (sparser "12,3,4,,5,6," ",") ("12" "3" "4" "" "5" "6" "") _$ (vl-remove "" (sphraser "12,3,4,,5,6," ",")) ("12" "3" "4" "5" "6")
info: Http://discussion.autodesk.com/forums/thread.jspa?threadID=759125&tstart=0
|