悬赏文字统计

为什么任兵

求一个文字统计LISP
请看图片

可以把我框选的文字统计出来，比如，A01 多少个，  A02多少个
还请高人赐教！！！！
小弟不胜感激，虽然明经币不多，
但是，我需要很多，长期合作！！！！！

yjr111

俺比较喜欢简单的挣钱，试试看给你定制的吧

2. (DEFUN C:TJWB(/ N SS  STR_LST LST_STR STR1 SHUL STRLST )
   
3.   (SETQ SS(SSGET '((0 . "*TEXT"))))
   
4.   (SETQ N 0)
   
5.   (WHILE (< N (SSLENGTH SS))
   
6.     (SETQ LST_STR (APPEND LST_STR (LIST (CDR(ASSOC 1 (ENTGET (SSNAME SS N)))))))
   
7.     (SETQ N (1+ N))
   
8.    )
   
9.   (SETQ LST_STR (vl-sort LST_STR(function(lambda(x y) (< x y)))))
   
10.   (SETQ STRLSTLEN (LENGTH LST_STR))
    
11.   (WHILE LST_STR
    
12.     (SETQ SHUL(-  STRLSTLEN(LENGTH(SETQ LST_STR(VL-REMOVE (SETQ STR1 (CAR LST_STR))LST_STR)))))
    
13.     (SETQ STRLST (APPEND STRLST (LIST(LIST STR1 SHUL))))
    
14.     (SETQ STRLSTLEN (LENGTH LST_STR))
    
15.     )
    
16. (SETQ STRLST (append (list '("编号" "数量（个）"))STRLST ))
    
17. (setq ff1 (getfiled "输出到excel" "文本统计" "CSV" 1))
    
18. (setq ff2(open ff1 "a"))
    
19. (setq i 0)
    
20. (repeat (length STRLST)
    
21. (SETQ lst_bzmp (nth i  STRLST))
    
22. (setq txt (vl-string-translate "( )" ",,,"(vl-princ-to-string lst_bzmp)))
    
23. (setq txt (vl-string-subst "" "," txt))
    
24. (write-line txt ff2)
    
25. (setq i (1+ i))      
    
26. )
    
27.   )

(DEFUN C:TJWB(/ N SS  STR_LST LST_STR STR1 SHUL STRLST )<br />   (SETQ SS(SSGET '((0 . "*TEXT"))))<br />   (SETQ N 0)<br />   (WHILE (< N (SSLENGTH SS))<br />     (SETQ LST_STR (APPEND LST_STR (LIST (CDR(ASSOC 1 (ENTGET (SSNAME SS N)))))))<br />     (SETQ N (1+ N))<br />    )<br />   (SETQ LST_STR (vl-sort LST_STR(function(lambda(x y) (< x y)))))<br />   (SETQ STRLSTLEN (LENGTH LST_STR))<br />   (WHILE LST_STR<br />     (SETQ SHUL(-  STRLSTLEN(LENGTH(SETQ LST_STR(VL-REMOVE (SETQ STR1 (CAR LST_STR))LST_STR)))))<br />     (SETQ STRLST (APPEND STRLST (LIST(LIST STR1 SHUL))))<br />     (SETQ STRLSTLEN (LENGTH LST_STR))<br />     )<br /> (SETQ STRLST (append (list '("编号" "数量（个）"))STRLST ))<br /> (setq ff1 (getfiled "输出到excel" "文本统计" "CSV" 1))<br /> (setq ff2(open ff1 "a"))<br /> (setq i 0)<br /> (repeat (length STRLST)<br /> (SETQ lst_bzmp (nth i  STRLST))<br /> (setq txt (vl-string-translate "( )" ",,,"(vl-princ-to-string lst_bzmp)))<br /> (setq txt (vl-string-subst "" "," txt))<br /> (write-line txt ff2)<br /> (setq i (1+ i))       <br /> )<br />   )

革天明

上班时试着写一个，我对这个问题还有点信心，你最好再上传一个你的样例，这样更能明白你的要求

langjs

这个还是比较简单的。楼主比较大方

为什么任兵

langjs 发表于 2012-2-12 16:37
这个还是比较简单的。楼主比较大方

呵呵，过奖了，我很尊重劳动成果的，

为什么任兵

革天明 发表于 2012-2-12 16:31
上班时试着写一个，我对这个问题还有点信心，你最好再上传一个你的样例，这样更能明白你的要求

就是我框选文字，能把每个文字多少个，统计出来输出EXCEL表格中

zhouren_cmi

是这个吗？D:\20110615cadqq\lisp\lisp源码\已测试通过\统计文本

zhouren_cmi

是这个吗？

zhouren_cmi

明经上有人发过该贴，你找找

为什么任兵

zhouren_cmi 发表于 2012-2-12 16:50
是这个吗？

我要的是TEXT 和MTEXT这两种文本都能显示，而且必须要输出EXCEL的