李.麦克的查找替换程序，中国不能用？??
本帖最后由 wowan1314 于 2012-4-19 23:56 编辑如题，今天找到李.麦克的文字查找替换程序。结果在我的电脑上不能用？！
在多字节的目标代码页中，没有此 Unicode 字符可以映射到的字符这怎么解决
(setq lst (_RegExExecute "\\\\Q[-]?*?[.]?+;" str t)
;; height
lst (append lst (_RegExExecute "\\\\H?[.]?+x;" str t))
;; color
lst (append lst (_RegExExecute "\\\\?[.]?+;" str t))
;; alignment
lst (append lst (_RegExExecute "\\\\A;" str t))
;; font
lst (append lst (_RegExExecute"\\\\.*?;" str t))
;; overline
lst (append lst (_RegExExecute "\\\\" str t))
;; underline
lst (append lst (_RegExExecute "\\\\" str t))
;; width
lst (append lst (_RegExExecute "\\\\W?[.]?+;" str t))
;; tracking
lst (append lst (_RegExExecute "\\\\T?[.]?+;" str t))
;; stacking
lst (append lst (_RegExExecute "\\\\S.*?;" str t))
;; linefeed
lst (append lst (_RegExExecute "\\\\P" str t))
;; paragraph
lst (append lst (_RegExExecute "\\\\p.*?;" str t))
(setq oldstr (_RegExReplace "$1\\*" "([^衇|^)\\*" oldstr))
搞了一天明白一点点。可能是E文与中文的编码不同。转换不完全出现乱码，导致程序无法运行。
尝试很多方法无法解决。可能是编码本身不完美吧？！ 因为这个乱码还是出现的比较少！
下面是正则表达式里的东西（复杂的东西）？可能是？也可能不是，我是看不懂了。（此贴无解）只是可惜他写的蛮多程序都无法直接使用了。
有人下载，怎么没人反应下情况 啊！ 本帖最后由 muwind 于 2020-7-7 22:51 编辑
(defun _lst->str ( lst del )
(if (cdr lst)
(strcat (car lst) del (_lst->str (cdr lst) del))
(car lst)
)
)
这个函数 是表转字符串，引用了自身？
muwind 发表于 2020-7-7 22:21
(defun _lst->str ( lst del )
(if (cdr lst)
(strcat (car lst) del (_lst->str (cdr lst) de ...
这叫递归函数 什么样的查找替换，源码这么长！ 【KAIXIN】 发表于 2012-4-19 14:14 static/image/common/back.gif
什么样的查找替换，源码这么长！
就文字查找替换啊！ 属性块什么都支持,像CAD一样还可以设置替换规则。功能貌似很强大，就是我这里不能用。
http://bbs.mjtd.com/thread-91168-1-1.html wowan1314 发表于 2012-4-19 14:18 static/image/common/back.gif
就文字查找替换啊！ 属性块什么都支持,像CAD一样还可以设置替换规则。功能貌似很强大，就是我这里不能用。 ...
你是来打广告的吧！
你的想法太......给你解决还说打广告！
用不了..... 【KAIXIN】 发表于 2012-4-19 15:19 static/image/common/back.gif
你是来打广告的吧！
你的想法太......给你解决还说打广告！
呵呵，开个玩笑而已。
据说他这个可以把打开的图纸全查找替换掉。我本相研究下。结果用不了！
开心大人就花点时间测试一下吧，大家都很期待 我顶！ 达人来帮忙啊！ 这种乱码该怎么弄。找了好几个乱码查看的都不行呀！ 我也试过了，用不了，不知道什么原因，遗憾