LISP实现相同文字的查找和标示？

doremidai · 发表于 2009-4-12 01:00

LISP如何实现相同文字的查找和标示？如图示意，输入要查找的文字“打头”，再输入其后“n”个字符，查找“打头”+其后“n”个字符相同的所有文字，并以红色表示。

vladimirputin · 发表于 2016-10-19 11:11

不错的程序，感谢楼主分享。

vladimirputin · 发表于 2016-10-19 09:51

这个功能很好，正需要啊。

vladimirputin · 发表于 2016-10-20 12:57

不错的程序，谢谢分享。

bendan250 · 发表于 2009-4-12 15:22

这个比较容易

xiaoma1023 · 发表于 2009-8-22 04:01

怎么做呢

ZZXXQQ · 发表于 2009-8-22 09:30

写了个找文字变色的程序，可使用文字匹配符。具体参见WCMATCH函数的帮助。
楼主的要求可用匹配串ZL-????

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

894560869 · 发表于 2009-10-20 21:19

如果要替换文字内容呢？

cxs259 · 发表于 2011-7-28 14:28

Z版能否一同显示数量呢？

ZZXXQQ · 发表于 2011-7-28 19:42

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

cxs259 · 发表于 2011-7-28 22:25

请教Z版上下怎样接起来？
;相同串变红色明经 ZZXXQQ 2009.8.22
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq sst (getstring "\n要查找字串 :"))
  (if (setq ss (ssget "X" (list '(0 . "TEXT") (cons 1 sst))))
(command "chprop" ss "" "c" 1 "")
  )
)
(setvar "CMDECHO" 1)
(princ)
)
;函数，显示相同串数量。明经 ZZXXQQ 2011.7.28
(defun numstr (str)
(if (setq ss (ssget "X" (list '(0 . "TEXT") (cons 1 str))))
  (sslength ss)
  0
)
)

cxs259 · 发表于 2011-7-29 08:54

请教Z版，上下合并，还是不行，是什么原因？
;相同串变红色明经 ZZXXQQ 2009.8.22
;函数，显示相同串数量。明经 ZZXXQQ 2011.7.28
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq sst (getstring "\n要<strong><font color=\\"#FF0000\\">查找</font></strong>字串 :"))
(defun numstr (str)
(if (setq ss (ssget "X" (list '(0 . "TEXT") (cons 1 str))))
(sslength ss)
0
)
)
(command "chprop" ss "" "c" 3 "")
)
)
(setvar "CMDECHO" 1)
(princ)
)

ZZXXQQ · 发表于 2011-7-29 20:33

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

账号		自动登录	找回密码
密码			注册

LISP实现相同文字的查找和标示？

本帖子中包含更多资源