如何利用正则表达式提取出信息

shixuan2008

例如：“地下三层顶板配筋平面图”
提取出“地下三”，“顶板”、“配筋”三个信息？
请大神指点一二！

chxw68

楼主提供的数据太少了，没法找出其中的规律。

shixuan2008

哦 “层” 和“图”是一定会有的
“顶板”是可变的 但仅限“底板”、“梁”、“柱”、“墙”几类
“配筋平面”也是可变的，但可变项比较多
不知道这样说清楚不？

shixuan2008

“地下三” 也是可变的 可能性也比较多

chxw68

shixuan2008 发表于 2020-3-9 15:57
“地下三” 也是可变的 可能性也比较多

你提供一个模拟表格，把所有可能的情况都罗列出来。

shixuan2008

需求见表格

林越洋

^(\w{3})(\w{2})(\w{2})
用这名规格可以产生三个捕捉组，依次拿出来就行了

liulang0808

按照楼主的文字描述，可以直接mid按照字符串长度提取吧。
如果有其他出入，上传具体模拟数据，目前的附件看不大明白

fypm1009

请参考
正则表达式为 RegEx.Pattern = "([\u4e00-\u9fa5]+)([层])([顶板]+|[墙]|[柱]|[板]|[梁])([\u4e00-\u9fa5]+)([图])"


Sub findwenxiandx()

Set RegEx = CreateObject("VBscript.RegExp")
    RegEx.Global = True
    RegEx.MultiLine = True
    With ActiveDocument
         sr = .Content.Text

        '  RegEx.Pattern = "(\d+)(层)(顶板梁|墙|柱|板|梁)(\d+)(图)"
         RegEx.Pattern = "([\u4e00-\u9fa5]+)([层])([顶板]+|[墙]|[柱]|[板]|[梁])([\u4e00-\u9fa5]+)([图])"
           Set Mat = RegEx.Execute(sr)
      
             n = 0
             For Each mt In Mat
             n = n + 1
          MsgBox mt
          MsgBox mt.submatches(0)
          MsgBox mt.submatches(2)
          MsgBox mt.submatches(3)
          MsgBox n
                 
             Next
    End With
      
End Sub

fypm1009

fypm1009 发表于 2020-3-10 09:55
请参考
正则表达式为 RegEx.Pattern = "([%u4e00-%u9fa5]+)([层])([顶板]+|[墙]|[柱]|[板]|[梁])([%u4e00- ...

如果有数字或者特殊字符，可以再次基础上进行修改