求正则表达式，Pattern=?

mzbao

1016373263 发表于 2019-9-2 11:09
出现空白，没有结果

我测试没有问题，你再用我的代码试试。

1016373263

mzbao 发表于 2019-9-2 11:05
Pattern="[%u4e00-%u9fa5]+(\w+).{1,10}?(\d{3,4}).+"
替换为 $1-$2

最好不用替换的方法获得数据，用提取数据的方法

小花鹿

1016373263 发表于 2019-9-2 11:02
详细的表达式？

Sub 提取房号()
Dim reg As Object, s, s1
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.Pattern = "[^A-Z0-9]"
s = "中都巴黎城S1幢4层0401号，面积102.02平米，单价9400元/平米。"
s1 = "中都巴黎6号楼1501房，面积132.16平米，单价4694.42元/平米。"
s = Split(s, "，")(0)
s = reg.Replace(s, " ")
s = Application.Trim(s)
s = Split(s, " ")
s = s(0) & "-" & s(UBound(s))
MsgBox s
End Sub

月关

Sub 提取房号()
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "(\w+)(.+)(\d{4})[号|房]"
For Each rn In [a1:a2]  '我是放到[A1:A2]区域试验的
Set match = .Execute(rn)
rn(1, 2) = match(0).submatches(0) & "-" & match(0).submatches(2)
Next
End With
End Sub

1016373263

月关 发表于 2019-9-2 11:10
我也献献丑：
Pattern = "(\w+)(.+)(\d{4})[号|房]"
代入到你的代码里，match(0).submatches(0)  和 matc ...

代入后不行哦

1016373263

月关 发表于 2019-9-2 11:10
我也献献丑：
Pattern = "(\w+)(.+)(\d{4})[号|房]"
代入到你的代码里，match(0).submatches(0)  和 matc ...

代入后不行哦

月关

killq

Sub test()
    Dim str, reg
    str = "a1:中都巴黎城S1幢4层0401号，面积102.02平米，单价9400元/平米。要提取房号：S1-0401，不提取其他的" & vbCrLf _
        & "a2:中都巴黎6号楼1501房，面$1积132.16平米，单价4694.42元/平米。  要提取房号: 6-1501"
    With CreateObject("vbscript.regexp")
        .Pattern = "(\w{1,4})(?=(?:幢|号|房))"
        .Global = True
        Set reg = .Execute(str)
    End With
    MsgBox reg(0) & "-" & reg(1)
    MsgBox reg(2) & "-" & reg(3)
End Sub

月关

1016373263 发表于 2019-9-2 11:20
代入后不行哦

难道，最最开始的
a1：。。。。
a2：。。。。
上面俩货也是原数据中的？我以为你代指的是a1和a2单元格

mzbao

1016373263 发表于 2019-9-2 11:12
最好不用替换的方法获得数据，用提取数据的方法

这不都一样吗，如果不想用替换的话，直接取也行：

1. Sub test()
   
2.     a$ = [A1].Value
   
3.     Set reg = CreateObject("VBScript.Regexp")
   
4.     reg.Pattern = "[\u4e00-\u9fa5]+(\w+).{1,10}?(\d{3,4}).+"
   
5.     Set Match = reg.Execute(a)
   
6.     Debug.Print Match.Item(0).SubMatches(0) & "-" & Match.Item(0).SubMatches(1)
   
7. End Sub

复制代码