怎样求出出现次数最多的字符

shenfjliu

怎样求出出现次数最多的字符？
比如，我建立一个字符串选择集，如何求出字符串选择集中出现频率最高的字符串？
谢谢！

炫翔

先分组统计,剩下的就是比较了

shenfjliu

谢谢，可否说得具体一些？比如使用什么命令进行分组统计还有比较。

HLCAD

2. <div class="blockcode"><blockquote>(setq lst '("1" "2" "3" "2" "2" "2" "3" "4"))
   
3. (setq len (mapcar '(lambda(x) (length (vl-remove x lst))) lst))
   
4. (setq l-m (apply 'min len))
   
5. (nth (- (length lst) (length (member l-m len))) lst)

<div class="blockcode"><blockquote>(setq lst '("1" "2" "3" "2" "2" "2" "3" "4"))<br /> (setq len (mapcar '(lambda(x) (length (vl-remove x lst))) lst))<br /> (setq l-m (apply 'min len))<br /> (nth (- (length lst) (length (member l-m len))) lst)

csharp

表压缩或者 groupbyindex 都可以

shenfjliu

谢谢！我研究研究！

zxq0220

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (setq n 0)
   
5. (if (setq ss (ssget '((0 . "TEXT"))))
   
6.   (repeat (setq i (sslength ss))
   
7.    (setq ent (entget(ssname ss (setq i (1- i)))))
   
8.    (command "select" ss "")
   
9.    (setq m (sslength (ssget "P" (list '(0 . "TEXT") (assoc 1 ent)))))
   
10.    (if (> m n) (setq n m))
    
11.   )
    
12. )
    
13. (setvar "CMDECHO" 1)
    
14. (princ)
    
15. )

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (setq n 0)<br /> (if (setq ss (ssget '((0 . "TEXT"))))<br />   (repeat (setq i (sslength ss))<br />    (setq ent (entget(ssname ss (setq i (1- i)))))<br />    (command "select" ss "")<br />    (setq m (sslength (ssget "P" (list '(0 . "TEXT") (assoc 1 ent)))))<br />    (if (> m n) (setq n m))<br />   )<br /> )<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )