vba中如何优化多行文本的TEXTSTRING属性？

truezhang

我的多行文本内容原本是RS1A40D25E 含底座50*80*50，由于位置排版原因，没有选择使用单行文本，发现选择集里面textstring属性有很长一串特殊符号，这些符号有可能去掉吗？想导入到EXCEL里面作为元件规格显示

你有种再说一遍

多行文字解析:
https://help.autodesk.com/view/A ... 5-BD75-9ED7112E5967

liuhe

简单粗暴的方法是，复制这个图元，然后用自带命令分解（一定要是command的分解命令）成单行文字，就可以读取里面纯文本内容。高级一点的是，通过正则规则，格式化这些格式，输出纯文本。

2. ;;-------------------=={ UnFormat String }==------------------;;
   
3. ;;                                                            ;;
   
4. ;;  Returns a string with all MText formatting codes removed. ;;
   
5. ;;------------------------------------------------------------;;
   
6. ;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
   
7. ;;------------------------------------------------------------;;
   
8. ;;  Arguments:                                                ;;
   
9. ;;  str - String to Process                                   ;;
   
10. ;;  mtx - MText Flag (T if string is for use in MText)        ;;
    
11. ;;------------------------------------------------------------;;
    
12. ;;  Returns:  String with formatting codes removed            ;;
    
13. ;;------------------------------------------------------------;;
    
14. 
    
15. (defun LM:UnFormat ( str mtx / _replace rx )
    
16. 
    
17.     (defun _replace ( new old str )
    
18.         (vlax-put-property rx 'pattern old)
    
19.         (vlax-invoke rx 'replace str new)
    
20.     )
    
21.     (if (setq rx (vlax-get-or-create-object "VBScript.RegExp"))
    
22.         (progn
    
23.             (setq str
    
24.                 (vl-catch-all-apply
    
25.                     (function
    
26.                         (lambda ( )
    
27.                             (vlax-put-property rx 'global     actrue)
    
28.                             (vlax-put-property rx 'multiline  actrue)
    
29.                             (vlax-put-property rx 'ignorecase acfalse)
    
30.                             (foreach pair
    
31.                                '(
    
32.                                     ("\032"    . "\\\\\\\")
    
33.                                     (" "       . "\\\\P|\\n|\\t")
    
34.                                     ("$1"      . "\\\\(\\\\[ACcFfHLlOopQTW])|\\\\[ACcFfHLlOopQTW][^\\\\;]*;|\\\\[ACcFfHLlOopQTW]")
    
35.                                     ("$1$2/$3" . "([^\\\\])\\\\S([^;]*)[/#\\^]([^;]*);")
    
36.                                     ("$1$2"    . "\\\\(\\\\S)|[\\\\](})|}")
    
37.                                     ("$1"      . "[\\\\]({)|{")
    
38.                                 )
    
39.                                 (setq str (_replace (car pair) (cdr pair) str))
    
40.                             )
    
41.                             (if mtx
    
42.                                 (_replace "\\\" "\032" (_replace "\\$1$2$3" "(\\\\[ACcFfHLlOoPpQSTW])|({)|(})" str))
    
43.                                 (_replace "\"   "\032" str)
    
44.                             )
    
45.                         )
    
46.                     )
    
47.                 )
    
48.             )
    
49.             (vlax-release-object rx)
    
50.             (if (null (vl-catch-all-error-p str))
    
51.                 str
    
52.             )
    
53.         )
    
54.     )
    
55. )
    
56. (vl-load-com)
    
57. 
    
58. _ (LM:UnFormat "{\\O\\C1;L\\C256;ee} {\\L\\C2;M\\C256;ac}" nil)
    
59. "Lee Mac"
    

;;-------------------=={ UnFormat String }==------------------;;<br /> ;;                                                            ;;<br /> ;;  Returns a string with all MText formatting codes removed. ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Author: Lee Mac, Copyright &#169; 2011 - www.lee-mac.com       ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Arguments:                                                ;;<br /> ;;  str - String to Process                                   ;;<br /> ;;  mtx - MText Flag (T if string is for use in MText)        ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Returns:  String with formatting codes removed            ;;<br /> ;;------------------------------------------------------------;;<br /> <br /> (defun LM:UnFormat ( str mtx / _replace rx )<br /> <br />     (defun _replace ( new old str )<br />         (vlax-put-property rx 'pattern old)<br />         (vlax-invoke rx 'replace str new)<br />     )<br />     (if (setq rx (vlax-get-or-create-object "VBScript.RegExp"))<br />         (progn<br />             (setq str<br />                 (vl-catch-all-apply<br />                     (function<br />                         (lambda ( )<br />                             (vlax-put-property rx 'global     actrue)<br />                             (vlax-put-property rx 'multiline  actrue)<br />                             (vlax-put-property rx 'ignorecase acfalse) <br />                             (foreach pair<br />                                '(<br />                                     ("\032"    . "\\\\\\\")<br />                                     (" "       . "\\\\P|\\n|\\t")<br />                                     ("$1"      . "\\\\(\\\\[ACcFfHLlOopQTW])|\\\\[ACcFfHLlOopQTW][^\\\\;]*;|\\\\[ACcFfHLlOopQTW]")<br />                                     ("$1$2/$3" . "([^\\\\])\\\\S([^;]*)[/#\\^]([^;]*);")<br />                                     ("$1$2"    . "\\\\(\\\\S)|[\\\\](})|}")<br />                                     ("$1"      . "[\\\\]({)|{")<br />                                 )<br />                                 (setq str (_replace (car pair) (cdr pair) str))<br />                             )<br />                             (if mtx<br />                                 (_replace "\\\" "\032" (_replace "\\$1$2$3" "(\\\\[ACcFfHLlOoPpQSTW])|({)|(})" str))<br />                                 (_replace "\"   "\032" str)<br />                             )<br />                         )<br />                     )<br />                 )<br />             )<br />             (vlax-release-object rx)<br />             (if (null (vl-catch-all-error-p str))<br />                 str<br />             )<br />         )<br />     )<br /> )<br /> (vl-load-com)<br /> <br /> _ (LM:UnFormat "{\\O\\C1;L\\C256;ee} {\\L\\C2;M\\C256;ac}" nil)<br /> "Lee Mac"<br />

mikewolf2k

liuhe 发表于 2024-3-25 08:54
简单粗暴的方法是，复制这个图元，然后用自带命令分解（一定要是command的分解命令）成单行文字，就可以读 ...

炸开方式漏洞太大，如果只读的话还得恢复；如果有不同格式，会被炸成多个单行文字。论坛里有去除格式字符的vba源代码。