为什么任兵 发表于 2012-2-12 15:52:33

悬赏文字统计

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

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

yjr111 发表于 2012-2-12 15:52:34

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

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

革天明 发表于 2012-2-12 16:31:09

本帖最后由 革天明 于 2012-2-12 16:32 编辑

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

langjs 发表于 2012-2-12 16:37:34

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

为什么任兵 发表于 2012-2-12 16:41:40

langjs 发表于 2012-2-12 16:37 static/image/common/back.gif
这个还是比较简单的。楼主比较大方

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

为什么任兵 发表于 2012-2-12 16:47:01

本帖最后由 为什么任兵 于 2012-2-12 16:53 编辑

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

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

zhouren_cmi 发表于 2012-2-12 16:48:28

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

zhouren_cmi 发表于 2012-2-12 16:50:02

是这个吗？

zhouren_cmi 发表于 2012-2-12 16:51:09

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

为什么任兵 发表于 2012-2-12 16:56:14

zhouren_cmi 发表于 2012-2-12 16:50 static/image/common/back.gif
是这个吗？

我要的是TEXT 和MTEXT这两种文本都能显示，而且必须要输出EXCEL的
页: [1] 2 3 4
查看完整版本: 悬赏文字统计