如何提取多行文字里面的内容

勤快小熠

请问大神，我如何把{和; 之间的内容删掉啊，字符串如下：

14123{\fArial Black|b0|i0|c0|p34;1+63}3.036

llsheng_73

1. (defun mtext2txt(s / ob)
   
2.   (vlax-put-property(setq ob(vlax-create-object"Vbscript.RegExp"))"IgnoreCase"0)
   
3.   (vlax-put-property ob "Global" 1)
   
4.   (setq s(mapcar'(lambda(x y)(vlax-put-property ob"Pattern"x)(setq s(vlax-invoke-method ob"Replace"s y)))
   
5.                 '("\\\\\\\\""\\\\{""\\\\}""\\\\pi(.[^;]*);""\\\\pt(.[^;]*);""\\\\S(.[^;]*)(\\^|#|\\\\)(.[^;]*);"
   
6.                   "(\\\\F|\\\\f|\\\\C|\\\\H|\\\\T|\\\\Q|\\\\W|\\\\A)(.[^;]*);""(\\\\L|\\\\O|\\\\l|\\\\o)""\\\\~"
   
7.                   "\\\\P" "\n" "({|})" "\\x01" "\\x02" "\\x03")(list(CHR 1)(CHR 2)(CHR 3)"""""""""""" (chr 13) "" "" "\\" "{" "}")))
   
8.   (if ob(vlax-release-object ob))
   
9.   (last s))

(defun mtext2txt(s / ob)<br />   (vlax-put-property(setq ob(vlax-create-object"Vbscript.RegExp"))"IgnoreCase"0)<br />   (vlax-put-property ob "Global" 1)<br />   (setq s(mapcar'(lambda(x y)(vlax-put-property ob"Pattern"x)(setq s(vlax-invoke-method ob"Replace"s y)))<br />                 '("\\\\\\\\""\\\\{""\\\\}""\\\\pi(.[^;]*);""\\\\pt(.[^;]*);""\\\\S(.[^;]*)(\\^|#|\\\\)(.[^;]*);"<br />                   "(\\\\F|\\\\f|\\\\C|\\\\H|\\\\T|\\\\Q|\\\\W|\\\\A)(.[^;]*);""(\\\\L|\\\\O|\\\\l|\\\\o)""\\\\~"<br />                   "\\\\P" "\n" "({|})" "\\x01" "\\x02" "\\x03")(list(CHR 1)(CHR 2)(CHR 3)"""""""""""" (chr 13) "" "" "\\" "{" "}")))<br />   (if ob(vlax-release-object ob))<br />   (last s))

这是根据MCCAD的修改的,其中换行符替换为(chr 13)是因为我有特殊用途，如果用不着，可以把它替换为""

yuanziyou

llsheng_73 发表于 2014-12-16 14:53
这是根据MCCAD的修改的,其中换行符替换为(chr 13)是因为我有特殊用途，如果用不着，可以把它替换为""

如果多行文字设置了行间距，代码提取会出错，在你的基础上修改了一下，可以测试一下

1. ;;测试文件
   
2. (defun C:test2()
   
3.   (mtext2txt2 (vlax-get (vlax-ename->vla-object (car(entsel "\n选择多行文字"))) 'TextString))
   
4. )
   
5. 
   
6. ;;说明:提取多行文字的内容(去除所有格式)
   
7. ;;参数:s:多行文字的值
   
8. ;;返回:string
   
9. ;;换行符替换为""(如果想替换成其他值，修改倒数第4行的 “(chr 0)”为其他值)
   
10. ;;在llsheng_73的基础上修改，参考http://bbs.mjtd.com/forum.php?mod=viewthread&tid=112421
    
11. (defun mtext2txt2(s / ob)
    
12.   (vlax-put-property (setq ob(vlax-create-object"Vbscript.RegExp")) "IgnoreCase" 0)
    
13.   (vlax-put-property ob "Global" 1)
    
14.   (setq s (mapcar '(lambda(x y)(vlax-put-property ob"Pattern"x) (setq s (vlax-invoke-method ob "Replace" s y)))
    
15.         '("\\\\\\\\""\\\\{""\\\\}""\\\\p(.[^;]*);""\\\\S(.[^;]*)(\\^|#|\\\\)(.[^;]*);"
    
16.            "(\\\\F|\\\\f|\\\\C|\\\\H|\\\\T|\\\\Q|\\\\W|\\\\A)(.[^;]*);""(\\\\L|\\\\O|\\\\l|\\\\o)""\\\\~"
    
17.            "\\\\P" "\n" "({|})" "\\x01" "\\x02" "\\x03")(list (CHR 1) (CHR 2) (CHR 3)"" "" "" "" "" (chr 0) "" "" "\\" "{" "}")))
    
18.   (if ob (vlax-release-object ob))
    
19.   (last s)
    
20. )

;;测试文件<br /> (defun C:test2()<br />   (mtext2txt2 (vlax-get (vlax-ename->vla-object (car(entsel "\n选择多行文字"))) 'TextString))<br /> )<br /> <br /> ;;说明:提取多行文字的内容(去除所有格式)<br /> ;;参数:s:多行文字的值<br /> ;;返回:string<br /> ;;换行符替换为""(如果想替换成其他值，修改倒数第4行的 “(chr 0)”为其他值)<br /> ;;在llsheng_73的基础上修改，参考<a href="http://bbs.mjtd.com/thread-112421-1-1.html" target="_blank">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=112421</a><br /> (defun mtext2txt2(s / ob)<br />   (vlax-put-property (setq ob(vlax-create-object"Vbscript.RegExp")) "IgnoreCase" 0)<br />   (vlax-put-property ob "Global" 1)<br />   (setq s (mapcar '(lambda(x y)(vlax-put-property ob"Pattern"x) (setq s (vlax-invoke-method ob "Replace" s y)))<br />         '("\\\\\\\\""\\\\{""\\\\}""\\\\p(.[^;]*);""\\\\S(.[^;]*)(\\^|#|\\\\)(.[^;]*);"<br />            "(\\\\F|\\\\f|\\\\C|\\\\H|\\\\T|\\\\Q|\\\\W|\\\\A)(.[^;]*);""(\\\\L|\\\\O|\\\\l|\\\\o)""\\\\~"<br />            "\\\\P" "\n" "({|})" "\\x01" "\\x02" "\\x03")(list (CHR 1) (CHR 2) (CHR 3)"" "" "" "" "" (chr 0) "" "" "\\" "{" "}")))<br />   (if ob (vlax-release-object ob))<br />   (last s)<br /> )

自贡黄明儒

对于Mtxet,建议如下，这样你就不用去除前面的控制符了

(setq obj(vlax-ename->vla-object e))
(setq tex (vlax-get obj 'TextString))

lucas_3333

论坛里有发过，仔细找找

HGQ8888

llsheng_73 发表于 2014-12-16 14:53
这是根据MCCAD的修改的,其中换行符替换为(chr 13)是因为我有特殊用途，如果用不着，可以把它替换为""

强,如果要保留图片所示的公差内容呢?