求正则表达式，Pattern=?

1016373263

求正则表达式，Pattern=?
a1:中都巴黎城S1幢4层0401号，面积102.02平米，单价9400元/平米。要提取房号：S1-0401，不提取其他的
a2:中都巴黎6号楼1501房，面积132.16平米，单价4694.42元/平米。  要提取房号: 6-1501

月关

你最好多提供点数据，这两条本身太简单，写出来估计也不具有通用性。
我的意思是，如果其他所有数据全部像上面两种这样，那就简单的很了

1016373263

月关 发表于 2019-9-2 10:40
你最好多提供点数据，这两条本身太简单，写出来估计也不具有通用性。
我的意思是，如果其他所有数据全部像 ...

数据10000多条，但就是这两种情况

1016373263

Sub 提取房号()
Dim reg As Object, match As Object, m As String
Set reg = CreateObject("vbscript.regexp")
Range("j3:j13").ClearContents
reg.Global = True
reg.Pattern = "[A-Za-z]*\d+"
For i = 3 To 13
Set match = reg.Execute(Cells(i, "p"))
If match.Count > 0 Then
Cells(i, "j") = match(0) & "-" & match(1) & "-" & match(2)
End If
Next
End Sub


提取结果是S1-4-0401，不能要4

小花鹿

把逗号前的内容提取出来，再把汉字替换为空格，再稍加处理就行了                                                

microyip

1. .Pattern = "([^\u4e00-\u9fa5]+)(幢|号楼)(\d+[^\d]+)?(\d+)(号|房)"

复制代码

1016373263

小花鹿 发表于 2019-9-2 10:51
把逗号前的内容提取出来，再把汉字替换为空格，再稍加处理就行了                                         ...

详细的表达式？

mzbao

Pattern="[\u4e00-\u9fa5]+(\w+).{1,10}?(\d{3,4}).+"
替换为 $1-$2

你试试。

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.     s$ = reg.Replace(a, "$1-$2")
   
6.     Debug.Print s
   
7. End Sub

复制代码

1016373263

microyip 发表于 2019-9-2 11:02

出现空白，没有结果

月关

我也献献丑：
Pattern = "(\w+)(.+)(\d{4})[号|房]"
代入到你的代码里，match(0).submatches(0)  和 match(0).submatches(2) 就是你想要的结果，中间插入一个 - 就可以了。