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

wcf

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

meflying

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

wcf

抱歉，刚才打错了，应是-，0。


也就是数字和符号分开，而数字又不能分成单个的。


烦版主能解决这个问题

meflying

(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
)

绝情一剑

我的第一种

2. (defun str-trim (a / b c)
3.   (setq a (vl-string-translate "-" " " a))
4.   (while(setq c (vl-string-search " " a))
5.              (setq b   (cons(substr a 1 c)b)
6.            b   (cons "-" b)
7.                          a (vl-string-trim " "(substr a (1+ c))))
8.    )
9.   (setq b (cons a b))(reverse b)
10. )

(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" "-" "哈哈")
  
  

无痕

2. ;|字符串替换-------------------------------无痕.2004.2
3. (xsubstr " " "-" "32-33-0.01-哈哈") -> "32 33 0.01 哈哈"
4. (xsubstr " - " "-"   "32-33-0.01-哈哈") -> "32 - 33 - 0.01 - 哈哈"
5. (read (strcat "(" (xsubstr " " "-" "32-33-0.01-哈哈") ")")) -> (32 33 0.01 哈哈)
6. (read (strcat "("" (xsubstr "" "" "-" "32-33-0.01-哈哈") "")")) -> ("32" "33" "0.01" "哈哈")
7. (read (strcat "("" (xsubstr """-""" "-" "32-33-0.01-哈哈") "")")) -> ("32" "-" "33" "-" "0.01" "-" "哈哈")
8. |;
9. (defun xsubstr (n$ o$ str / n)
10.    (setq n 0)
11.    (while (setq n (vl-string-search o$ str n))
12.      (setq str (vl-string-subst n$ o$ str n))
13.      (setq n (+ n (strlen n$)))
14.    )str
15. )

;|字符串替换-------------------------------无痕.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 )

绝情一剑

回：无痕


哈哈，天王盖地虎

wcf

版主的程序运行没有通过，我用的是R14，不知何因 Command: test
error: incorrect number of arguments to a function
(C:TEST)
*Cancel*

meflying

(test 32-6-0)是要参数的。。。。。。。。。。。。。。。。

wcf

能批量转换吗？