怎样去除多行文字里的控制符

54256

提取出的多行文字里包含了“\p”、“\w”这些
要怎么才能提取出纯的文本呢？

自贡黄明儒

简单办法是炸开，上策是：正则表达式

54256

自贡黄明儒 发表于 2018-6-7 16:45
简单办法是炸开，上策是：正则表达式

炸开不太合适
正则表达式怎么弄的？能说下吗

ㄘ丶转裑ㄧ灬

http://bbs.mjtd.com/thread-96376-1-1.html

1.           ;文字刷子程序
   
2. (defun wenzishua (entype entype_source ob source_text en1 ent)
   
3.           ; cad多行文字
   
4.   (if (= entype "MTEXT")
   
5.     (progn
   
6.       (vla-put-TextString ob source_text)
   
7.       (entupd en1)
   
8.       (entupd ent)
   
9.     )
   
10.   )
    
11.           ;去掉多行文字无用格式符号
    
12.   (if (= entype_source "MTEXT")
    
13.     (setq source_text (mtext2text source_text))
    
14.   )
    
15.           ; cad单行文字
    
16.   (if (= entype "TEXT")
    
17.     (progn
    
18.       (vla-put-TextString ob source_text)
    
19.       (entupd en1)
    
20.       (entupd ent)
    
21.     )
    
22.   )
    
23.           ; 天正文字的内容格式刷
    
24.   (if (or
    
25.   (= entype "TCH_TEXT")
    
26.   (= entype "TCH_ELEVATION")
    
27.       )
    
28.     (progn
    
29.       (vlax-put-property ob 'Text source_text)
    
30.       (entupd en1)
    
31.       (entupd ent)
    
32.     )
    
33.   )
    
34.           ; 天正图名、标高的内容格式刷
    
35.   (if (= entype "TCH_DRAWINGNAME")
    
36.     (progn
    
37.       (vlax-put-property ob 'NameText source_text)
    
38.       (entupd en1)
    
39.       (entupd ent)
    
40.     )
    
41.   )
    
42.           ; 属性文字 只改"标记"
    
43.   (if (= entype "ATTDEF")
    
44.     (progn
    
45.       (vla-put-TagString ob source_text) ;改标记
    
46.       (entupd en1)
    
47.       (entupd ent)
    
48.     )
    
49.   )
    
50.           ; 块中属性文字 只改"默认"
    
51.   (if (= entype "ATTRIB")
    
52.     (progn
    
53.       (vla-put-TextString ob source_text) ;改默认
    
54.       (entupd en1)
    
55.       (entupd ent)
    
56.     )
    
57.   )
    
58. )
    
59. 
    
60.           ;提取多行文字,去除无用格式符号--来自明经
    
61. (defun mtext2text (MTextString / regex s)
    
62.   (setq regex (vlax-create-object "Vbscript.RegExp"))
    
63.           ;引用正则表达式控件
    
64.   (vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写
    
65.   (vlax-put-property regex "Global" 1)  ;匹配方式，全文字匹配
    
66.   (setq s MTextString)
    
67.           ;替换\\字符
    
68.   (vlax-put-property regex "Pattern" "\\\\\\\\")
    
69.   (setq s (vlax-invoke-method regex "Replace" s (chr 1)))
    
70.           ;替换\{字符
    
71.   (vlax-put-property regex "Pattern" "\\\\{")
    
72.   (setq s (vlax-invoke-method regex "Replace" s (chr 2)))
    
73.           ;替换\}字符
    
74.   (vlax-put-property regex "Pattern" "\\\\}")
    
75.   (setq s (vlax-invoke-method regex "Replace" s (chr 3)))
    
76.           ;删除段落缩进格式
    
77.   (vlax-put-property regex "Pattern" "\\\\pi(.[^;]*);")
    
78.   (setq s (vlax-invoke-method regex "Replace" s ""))
    
79.           ;删除制表符格式
    
80.   (vlax-put-property regex "Pattern" "\\\\pt(.[^;]*);")
    
81.   (setq s (vlax-invoke-method regex "Replace" s ""))
    
82.           ;删除堆迭格式
    
83.   (vlax-put-property
    
84.     regex
    
85.     "Pattern"
    
86.     "\\\\S(.[^;]*)(\\^|#|\\\\)(.[^;]*);"
    
87.   )
    
88.   (setq s (vlax-invoke-method regex "Replace" s ""))
    
89.           ;删除字体、颜色、字高、字距、倾斜、字宽、对齐格式
    
90.   (vlax-put-property
    
91.     regex
    
92.     "Pattern"
    
93.     "(\\\\F|\\\\f|\\\\C|\\\\H|\\\\\T|\\\\Q|\\\\W|\\\\A)(.[^;]*);"
    
94.   )
    
95.   (setq s (vlax-invoke-method regex "Replace" s ""))
    
96.           ;删除下划线、删除线格式
    
97.   (vlax-put-property
    
98.     regex
    
99.     "Pattern"
    
100.     "(\\\\L|\\\\O|\\\\l|\\\\o)"
     
101.   )
     
102.   (setq s (vlax-invoke-method regex "Replace" s ""))
     
103.           ;删除不间断空格格式
     
104.   (vlax-put-property regex "Pattern" "\\\\~")
     
105.   (setq s (vlax-invoke-method regex "Replace" s ""))
     
106.           ;删除换行符格式
     
107.   (vlax-put-property regex "Pattern" "\\\\P")
     
108.   (setq s (vlax-invoke-method regex "Replace" s ""))
     
109.           ;删除换行符格式(针对Shift+Enter格式)
     
110.   (vlax-put-property regex "Pattern" "\n")
     
111.   (setq s (vlax-invoke-method regex "Replace" s ""))
     
112.           ;删除{}
     
113.   (vlax-put-property regex "Pattern" "({|})")
     
114.   (setq s (vlax-invoke-method regex "Replace" s ""))
     
115. 
     
116.           ;替换回\\,\{,\}字符
     
117.   (vlax-put-property regex "Pattern" "\\x01")
     
118.   (setq s (vlax-invoke-method regex "Replace" s "\\"))
     
119.   (vlax-put-property regex "Pattern" "\\x02")
     
120.   (setq s (vlax-invoke-method regex "Replace" s "{"))
     
121.   (vlax-put-property regex "Pattern" "\\x03")
     
122.   (setq s (vlax-invoke-method regex "Replace" s "}"))
     
123. 
     
124.   (vlax-release-object regex)
     
125.   s
     
126. )

          ;文字刷子程序<br /> (defun wenzishua (entype entype_source ob source_text en1 ent)<br />           ; cad多行文字<br />   (if (= entype "MTEXT")<br />     (progn<br />       (vla-put-TextString ob source_text)<br />       (entupd en1)<br />       (entupd ent)<br />     )<br />   )<br />           ;去掉多行文字无用格式符号<br />   (if (= entype_source "MTEXT")<br />     (setq source_text (mtext2text source_text))<br />   )<br />           ; cad单行文字<br />   (if (= entype "TEXT")<br />     (progn<br />       (vla-put-TextString ob source_text)<br />       (entupd en1)<br />       (entupd ent)<br />     )<br />   )<br />           ; 天正文字的内容格式刷<br />   (if (or<br />   (= entype "TCH_TEXT")<br />   (= entype "TCH_ELEVATION")<br />       )<br />     (progn<br />       (vlax-put-property ob 'Text source_text)<br />       (entupd en1)<br />       (entupd ent)<br />     )<br />   )<br />           ; 天正图名、标高的内容格式刷<br />   (if (= entype "TCH_DRAWINGNAME")<br />     (progn<br />       (vlax-put-property ob 'NameText source_text)<br />       (entupd en1)<br />       (entupd ent)<br />     )<br />   )<br />           ; 属性文字 只改"标记"<br />   (if (= entype "ATTDEF")<br />     (progn<br />       (vla-put-TagString ob source_text) ;改标记<br />       (entupd en1)<br />       (entupd ent)<br />     )<br />   )<br />           ; 块中属性文字 只改"默认"<br />   (if (= entype "ATTRIB")<br />     (progn<br />       (vla-put-TextString ob source_text) ;改默认<br />       (entupd en1)<br />       (entupd ent)<br />     )<br />   )<br /> )<br /> <br />           ;提取多行文字,去除无用格式符号--来自明经<br /> (defun mtext2text (MTextString / regex s)<br />   (setq regex (vlax-create-object "Vbscript.RegExp"))<br />           ;引用正则表达式控件<br />   (vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写<br />   (vlax-put-property regex "Global" 1)  ;匹配方式，全文字匹配<br />   (setq s MTextString)<br />           ;替换\\字符<br />   (vlax-put-property regex "Pattern" "\\\\\\\\")<br />   (setq s (vlax-invoke-method regex "Replace" s (chr 1)))<br />           ;替换\{字符<br />   (vlax-put-property regex "Pattern" "\\\\{")<br />   (setq s (vlax-invoke-method regex "Replace" s (chr 2)))<br />           ;替换\}字符<br />   (vlax-put-property regex "Pattern" "\\\\}")<br />   (setq s (vlax-invoke-method regex "Replace" s (chr 3)))<br />           ;删除段落缩进格式<br />   (vlax-put-property regex "Pattern" "\\\\pi(.[^;]*);")<br />   (setq s (vlax-invoke-method regex "Replace" s ""))<br />           ;删除制表符格式<br />   (vlax-put-property regex "Pattern" "\\\\pt(.[^;]*);")<br />   (setq s (vlax-invoke-method regex "Replace" s ""))<br />           ;删除堆迭格式<br />   (vlax-put-property<br />     regex<br />     "Pattern"<br />     "\\\\S(.[^;]*)(\\^|#|\\\\)(.[^;]*);"<br />   )<br />   (setq s (vlax-invoke-method regex "Replace" s ""))<br />           ;删除字体、颜色、字高、字距、倾斜、字宽、对齐格式<br />   (vlax-put-property<br />     regex<br />     "Pattern"<br />     "(\\\\F|\\\\f|\\\\C|\\\\H|\\\\\T|\\\\Q|\\\\W|\\\\A)(.[^;]*);"<br />   )<br />   (setq s (vlax-invoke-method regex "Replace" s ""))<br />           ;删除下划线、删除线格式<br />   (vlax-put-property<br />     regex<br />     "Pattern"<br />     "(\\\\L|\\\\O|\\\\l|\\\\o)"<br />   )<br />   (setq s (vlax-invoke-method regex "Replace" s ""))<br />           ;删除不间断空格格式<br />   (vlax-put-property regex "Pattern" "\\\\~")<br />   (setq s (vlax-invoke-method regex "Replace" s ""))<br />           ;删除换行符格式<br />   (vlax-put-property regex "Pattern" "\\\\P")<br />   (setq s (vlax-invoke-method regex "Replace" s ""))<br />           ;删除换行符格式(针对Shift+Enter格式)<br />   (vlax-put-property regex "Pattern" "\n")<br />   (setq s (vlax-invoke-method regex "Replace" s ""))<br />           ;删除{}<br />   (vlax-put-property regex "Pattern" "({|})")<br />   (setq s (vlax-invoke-method regex "Replace" s ""))<br /> <br />           ;替换回\\,\{,\}字符<br />   (vlax-put-property regex "Pattern" "\\x01")<br />   (setq s (vlax-invoke-method regex "Replace" s "\\"))<br />   (vlax-put-property regex "Pattern" "\\x02")<br />   (setq s (vlax-invoke-method regex "Replace" s "{"))<br />   (vlax-put-property regex "Pattern" "\\x03")<br />   (setq s (vlax-invoke-method regex "Replace" s "}"))<br /> <br />   (vlax-release-object regex)<br />   s<br /> )

蛋疼的东东

ㄘ丶转裑ㄧ灬 发表于 2018-6-8 08:47
http://bbs.mjtd.com/thread-96376-1-1.html

大佬  怎么在这个基础上去除多行文字对齐样式  如：\\pxql这类

ㄘ丶转裑ㄧ灬

蛋疼的东东 发表于 2023-6-27 19:39
大佬  怎么在这个基础上去除多行文字对齐样式  如：\\pxql这类

蛋疼的东东

ㄘ丶转裑ㄧ灬 发表于 2023-6-28 17:03

太感谢啦