如何删除一字符中的逗号？？以求字符中含有的逗号个数...

afeng0712

如何删除一字符中的逗号？？以求字符中含有的逗号个数（有两个变量被赋值，如A="-9,-4,4,9"，B="0,0,0,0"，如何判断两变量含有的逗号数相等？因为需要对应）

Ea

实用函数中有个字串拆分的函数可以满足要求。

CADghost

(defun c:ti ()
(Setq A (getstring "\nÇëÊäÈëAÖµ:"))
(Setq B (getstring "\nÇëÊäÈëBÖµ:"))
(Setq num 1)
(setq ch_num 0)
(repeat (strlen A)
(setq ch (substr A num 1))
(if (= ch ",")
(setq ch_num (1+ ch_num))
)
(setq num (1+ num))
) (setq num1 1)
(Setq ch_num1 0)
(repeat (strlen B)
(setq ch (substr b num1 1))
(if (= ch ",")
(setq ch_num1 (1+ ch_num1))
)
(setq num1 (1+ num1))
) (if (= ch_num ch_num1)
(princ "\n字符A的格式和B相等")
(princ "\n字符A的格式不等B")
)
(princ)
)