[求助]：[求助]：怎么知道某字符串内有多少个汉字、多少个数字？

fengjianwei

怎么知道某字符串内有多少个汉字、多少个数字(或阿拉伯数字呢)

Hossman

[php]
(defun filter (cha / num)
  (setq num (ascii cha))
  (cond
   ((and (<= num 90) (>= num 65))
    (setq counter1 (1+ counter1)))
   ((and (<= num 122) (>= num 97))
    (setq counter2 (1+ counter2)))
   ((and (<= num 57) (>= num 48))
    (setq counter3 (1+ counter3)))
   (t (setq counter4 (1+ counter4)))))
(defun count-string (/ str times lst idx char counter1 counter2 counter3 counter4)
  (if (setq str (entsel "\select a string:"))
      (setq str (cdr (assoc 1 (entget (car str))))))
  (setq times (strlen str)
        counter1 0
        counter2 0
        counter3 0
        counter4 0)
  (setq lst (vl-string->list str)
        idx 0)
  (repeat times
          (setq char (chr (nth idx lst)))
          (filter char)
          (setq idx (1+ idx)))
  (princ (strcat "\n有 " (itoa counter1) " 个大写字母."))
  (princ (strcat "\n有 " (itoa counter2) " 个小写字母."))
  (princ (strcat "\n有 " (itoa counter3) " 个数字."))
  (princ (strcat "\n有 " (itoa counter4) " 个字符."))
  (princ)
)
[/php]

carrot1983

好像很厉害的样子。。拷下来学习。。。

adisonmaster

2楼好像是忘记统计汉字了！