如何将字符串分解成如下格式

wcf · 发表于 2004-2-24 07:42:00

将32-6-0，分解为32，-，6，-0，而不是单个字符
将325;46;21(为一字符串)，分解为3个字符串325; 46; 21

meflying · 发表于 2004-2-24 08:40:00

还是看不出规律是什么，比如：-6和-0为什么一个要分开而一个又不分开？

wcf · 发表于 2004-2-24 10:56:00

抱歉，刚才打错了，应是-，0。
也就是数字和符号分开，而数字又不能分成单个的。
烦版主能解决这个问题

meflying · 发表于 2004-2-24 12:10:00

(defun test(str / i str_lst item_num)
   (setq i 1)
   (setq str_lst nil)
   (setq item_num "")
   (setq item_chr "")
   (repeat (strlen str)
   (setq ch (substr str i 1))
   (if (or (wcmatch ch "[0-9]") (= ch "."))
   (progn
(setq item_num (strcat item_num ch))
(if (/= item_chr "")
   (setq str_lst (append str_lst (list item_chr)))
)
(setq item_chr "")
   )
   (progn
(setq item_chr (strcat item_chr ch))
(if (/= item_num "")
   (setq str_lst (append str_lst (list item_num)))
)
(setq item_num "")
   )
   )
   (setq i (1+ i))
   )
   (if (and (or (wcmatch ch "[0-9]") (= ch ".")) (/= item_num ""))
   (setq str_lst (append str_lst (list item_num)))
   (setq str_lst (append str_lst (list item_chr)))
   )
   str_lst
)

绝情一剑 · 发表于 2004-2-24 12:46:00

我的第一种

copy


(defun str-trim (a / b c)
  (setq a (vl-string-translate "-" " " a))
  (while(setq c (vl-string-search " " a))
             (setq b   (cons(substr a 1 c)b)
           b   (cons "-" b)
                         a (vl-string-trim " "(substr a (1+ c))))
   )
  (setq b (cons a b))(reverse b) 
)

;;;(setq c "0-2-3-4-5-6-7-8-9-33-35.20-90.5-哈哈")(str-trim c)---->  返回"0" "-" "2" "-" "3" "-" "4" "-" "5" "-" "6" "-" "7" "-" "8" "-" "9" "-" "33" "-" "35.20" "-" "90.5" "-" "哈哈")

无痕 · 发表于 2004-2-24 14:23:00

copy


;|字符串替换-------------------------------无痕.2004.2
(xsubstr " " "-" "32-33-0.01-哈哈") -> "32 33 0.01 哈哈"
(xsubstr " - " "-"   "32-33-0.01-哈哈") -> "32 - 33 - 0.01 - 哈哈"
(read (strcat "(" (xsubstr " " "-" "32-33-0.01-哈哈") ")")) -> (32 33 0.01 哈哈)
(read (strcat "("" (xsubstr "" "" "-" "32-33-0.01-哈哈") "")")) -> ("32" "33" "0.01" "哈哈") 
(read (strcat "("" (xsubstr """-""" "-" "32-33-0.01-哈哈") "")")) -> ("32" "-" "33" "-" "0.01" "-" "哈哈") 
|;
(defun xsubstr (n$ o$ str / n)
   (setq n 0)
   (while (setq n (vl-string-search o$ str n))
     (setq str (vl-string-subst n$ o$ str n))
     (setq n (+ n (strlen n$)))
   )str
)