在VLISP中使用正则表达式(一)取多行文字中的有用内容

zhaomc520

很好使，谢谢楼主帮忙

小弟会更加努力学习的，有一天也能帮助一下别人是我努力的目标。呵呵

dwg001

mccad:

请问怎么在autocad R2004下运行怎么无任何动作？

loulans

??

nic

版主，可否按照特定的特征进行提取字串而非替换呢？也即不用replace方法，只是复制出来特征字串的方法是何，请指点一下。谢谢。

lennie

mccad，这个好像不行啊

lennie

Public Function Mtext2text(MyString As String) As String
    Dim objRegExp As New RegExp
    Dim objMatch As Match
    Dim colMatches As MatchCollection
    Dim RetStr As String
    objRegExp.IgnoreCase = False       ' 如果设为True, 则当指定[a-z]，或[A-Z]时，将不会区分大小写判断。
    objRegExp.Global = True
   
    '替换\\字符
    objRegExp.Pattern = "\\\\\\\\"
    MyString = objRegExp.Replace(MyString, Chr(1))
    '替换\{字符
    objRegExp.Pattern = "\\\\{"
    MyString = objRegExp.Replace(MyString, Chr(2))
    '替换\}字符
    objRegExp.Pattern = "\\\\}"
    MyString = objRegExp.Replace(MyString, Chr(3))
    '删除段落缩进格式
    objRegExp.Pattern = "\\\\pi(.[^;]*);"
    MyString = objRegExp.Replace(MyString, "")
    '删除制表符格式
    objRegExp.Pattern = "\\\\pt(.[^;]*);"
    MyString = objRegExp.Replace(MyString, "")
    '删除堆迭格式
    objRegExp.Pattern = "\\\\S(.[^;]*)(\\^|#|\\\\)(.[^;]*);"
    MyString = objRegExp.Replace(MyString, "")
    '删除字体、颜色、字高、字距、倾斜、字宽、对齐格式
    objRegExp.Pattern = "(\\\\F|\\\\f|\\\\C|\\\\H|\\\\\T|\\\\Q|\\\\W|\\\\A)(.[^;]*);"
    MyString = objRegExp.Replace(MyString, "")
    '删除下划线、删除线格式
    objRegExp.Pattern = "(\\\\L|\\\\O|\\\\l|\\\\o)"
    MyString = objRegExp.Replace(MyString, "")
    '删除不间断空格格式
    objRegExp.Pattern = "\\\\~"
    MyString = objRegExp.Replace(MyString, "")
    '删除换行符格式
    objRegExp.Pattern = "\\\\P"
    MyString = objRegExp.Replace(MyString, "")
    '删除换行符格式(针对Shift+Enter格式)
    objRegExp.Pattern = "\n"
    MyString = objRegExp.Replace(MyString, "")
    '删除{}
    objRegExp.Pattern = "({|})"
    MyString = objRegExp.Replace(MyString, "")
   
    '替换回\\,\{,\}字符
    objRegExp.Pattern = Chr(1)
    MyString = objRegExp.Replace(MyString, "\\")
    objRegExp.Pattern = Chr(2)
    MyString = objRegExp.Replace(MyString, "{")
    objRegExp.Pattern = Chr(3)
    MyString = objRegExp.Replace(MyString, "}")
   
    Mtext2text = MyString
End Function

lennie

附上VBA代码

3. Public Function Mtext2text(MyString As String) As String
4.     Dim objRegExp As New RegExp
5.     Dim objMatch As Match
6.     Dim colMatches As MatchCollection
7.     Dim RetStr As String
8.     objRegExp.IgnoreCase = False       ' 如果设为True, 则当指定[a-z]，或[A-Z]时，将不会区分大小写判断。
9.     objRegExp.Global = True
10.    
11.     '替换\\字符
12.     objRegExp.Pattern = "\\\\\\\"
13.     MyString = objRegExp.Replace(MyString, Chr(1))
14.     '替换\{字符
15.     objRegExp.Pattern = "\\\\{"
16.     MyString = objRegExp.Replace(MyString, Chr(2))
17.     '替换\}字符
18.     objRegExp.Pattern = "\\\\}"
19.     MyString = objRegExp.Replace(MyString, Chr(3))
20.     '删除段落缩进格式
21.     objRegExp.Pattern = "\\\\pi(.[^;]*);"
22.     MyString = objRegExp.Replace(MyString, "")
23.     '删除制表符格式
24.     objRegExp.Pattern = "\\\\pt(.[^;]*);"
25.     MyString = objRegExp.Replace(MyString, "")
26.     '删除堆迭格式
27.     objRegExp.Pattern = "\\\\S(.[^;]*)(\\^|#|\\\\)(.[^;]*);"
28.     MyString = objRegExp.Replace(MyString, "")
29.     '删除字体、颜色、字高、字距、倾斜、字宽、对齐格式
30.     objRegExp.Pattern = "(\\\\F|\\\\f|\\\\C|\\\\H|\\\\\T|\\\\Q|\\\\W|\\\\A)(.[^;]*);"
31.     MyString = objRegExp.Replace(MyString, "")
32.     '删除下划线、删除线格式
33.     objRegExp.Pattern = "(\\\\L|\\\\O|\\\\l|\\\\o)"
34.     MyString = objRegExp.Replace(MyString, "")
35.     '删除不间断空格格式
36.     objRegExp.Pattern = "\\\\~"
37.     MyString = objRegExp.Replace(MyString, "")
38.     '删除换行符格式
39.     objRegExp.Pattern = "\\\\P"
40.     MyString = objRegExp.Replace(MyString, "")
41.     '删除换行符格式(针对Shift+Enter格式)
42.     objRegExp.Pattern = "\n"
43.     MyString = objRegExp.Replace(MyString, "")
44.     '删除{}
45.     objRegExp.Pattern = "({|})"
46.     MyString = objRegExp.Replace(MyString, "")
47.    
48.     '替换回\\,\{,\}字符
49.     objRegExp.Pattern = Chr(1)
50.     MyString = objRegExp.Replace(MyString, "\")
51.     objRegExp.Pattern = Chr(2)
52.     MyString = objRegExp.Replace(MyString, "{")
53.     objRegExp.Pattern = Chr(3)
54.     MyString = objRegExp.Replace(MyString, "}")
55.    
56.     Mtext2text = MyString
57. End Function

Public Function Mtext2text(MyString As String) As String     Dim objRegExp As New RegExp     Dim objMatch As Match     Dim colMatches As MatchCollection     Dim RetStr As String     objRegExp.IgnoreCase = False       ' 如果设为True, 则当指定[a-z]，或[A-Z]时，将不会区分大小写判断。     objRegExp.Global = True         '替换\\字符     objRegExp.Pattern = "\\\\\\\"     MyString = objRegExp.Replace(MyString, Chr(1))     '替换\{字符     objRegExp.Pattern = "\\\\{"     MyString = objRegExp.Replace(MyString, Chr(2))     '替换\}字符     objRegExp.Pattern = "\\\\}"     MyString = objRegExp.Replace(MyString, Chr(3))     '删除段落缩进格式     objRegExp.Pattern = "\\\\pi(.[^;]*);"     MyString = objRegExp.Replace(MyString, "")     '删除制表符格式     objRegExp.Pattern = "\\\\pt(.[^;]*);"     MyString = objRegExp.Replace(MyString, "")     '删除堆迭格式     objRegExp.Pattern = "\\\\S(.[^;]*)(\\^|#|\\\\)(.[^;]*);"     MyString = objRegExp.Replace(MyString, "")     '删除字体、颜色、字高、字距、倾斜、字宽、对齐格式     objRegExp.Pattern = "(\\\\F|\\\\f|\\\\C|\\\\H|\\\\\T|\\\\Q|\\\\W|\\\\A)(.[^;]*);"     MyString = objRegExp.Replace(MyString, "")     '删除下划线、删除线格式     objRegExp.Pattern = "(\\\\L|\\\\O|\\\\l|\\\\o)"     MyString = objRegExp.Replace(MyString, "")     '删除不间断空格格式     objRegExp.Pattern = "\\\\~"     MyString = objRegExp.Replace(MyString, "")     '删除换行符格式     objRegExp.Pattern = "\\\\P"     MyString = objRegExp.Replace(MyString, "")     '删除换行符格式(针对Shift+Enter格式)     objRegExp.Pattern = "\n"     MyString = objRegExp.Replace(MyString, "")     '删除{}     objRegExp.Pattern = "({|})"     MyString = objRegExp.Replace(MyString, "")         '替换回\\,\{,\}字符     objRegExp.Pattern = Chr(1)     MyString = objRegExp.Replace(MyString, "\")     objRegExp.Pattern = Chr(2)     MyString = objRegExp.Replace(MyString, "{")     objRegExp.Pattern = Chr(3)     MyString = objRegExp.Replace(MyString, "}")         Mtext2text = MyString End Function

BPE

明经高手多到数不清,我也有个想大家帮编的,不知有高手帮下菜人吗?

无痕

助淫为乐发表于2007-11-16 8:42:00用WCMATCH配合通配符进行替换不也一样?

不一样，试试看就知道了。你要能用WCMATCH配合通配符　写一个出来，我给你加分