求正则表达式，Pattern=?

1016373263

killq 发表于 2019-9-2 11:23
Sub test()
    Dim str, reg
    str = "a1:中都巴黎城S1幢4层0401号，面积102.02平米，单价9400元/平米 ...

凡热心解答者，都 有花，花完了，明天补上！！！！！！！！！！！

1016373263

mzbao 发表于 2019-9-2 11:27
这不都一样吗，如果不想用替换的话，直接取也行：

你这个可以，明天再加花！！！！！！！！！！！！！！

ggmmlol

查找内容：

^\W*([A-Z]*\d+)(?:幢|号楼).*?(\d{3,}).*|.+

替换为：

$1-$2

ggmmlol

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

为什么不喜欢用替换的方法呢？
你要知道，如果你期望的结果，只是要把提取到的字符简单地拼合起来，那么，用Replace方法是远优于Execute方法的。
换句话说，正则引擎内置的Replace方法，就是专门用来完成 字符提取、以及把它们简单拼合 这种工作的。放着现成的专业工具不用，非得自己去手工打造，这除非是为了打磨一个你喜欢的“艺术品”，否则就是舍近求远了。

killq

ggmmlol 发表于 2019-9-2 12:05
为什么不喜欢用替换的方法呢？
你要知道，如果你期望的结果，只是要把提取到的字符简单地拼合起来，那么 ...

我觉得，对于像俺们这些大多数人，能知道正则这个方法，知道几个元字符就已经是神一样的存在了，就不要深究了

powerremain

我就看不说话 看谁的正则表达式写得好

killq

powerremain 发表于 2019-9-2 12:40
我就看不说话 看谁的正则表达式写得好

大神，请问评价标准是什么？

ggmmlol

killq 发表于 2019-9-2 12:15
我觉得，对于像俺们这些大多数人，能知道正则这个方法，知道几个元字符就已经是神一样的存在了，就不要深 ...

你应当看过我的正则万能公式[\s\S]*(eXp)|[\s\S]+，只要你能写出Execute方法所用的Pattern，把它代入万能公式的(eXp)，就它就变成可以用Replace方法的Pattern了。
所以，就学习的难度来说，无论是用Replace方法，还是用Execute方法，都完全是一样的。

Execute方法，只是在对提取的内容需要进行复杂的运算处理时，才会比Replace方法方便。

甚至，像Js语言中的正则Replace方法，可以用回调函数对提取的内容进行二次处理之后再替代回去，这种情况下，几乎就是用不着Execute方法了。

powerremain

killq 发表于 2019-9-2 12:41
大神，请问评价标准是什么？

能这么说话的都是菜鸟，我也是来学习的。 我的标准是看谁的通用性好，查找简洁

killq

ggmmlol 发表于 2019-9-2 12:42
你应当看过我的正则万能公式[\s\S]*(eXp)|[\s\S]+，只要你能写出Execute方法所用的Pattern，把它代入万能 ...

讲真，我正则用的不多，所以水平很低，一直停留在能用就行的认知水平，想提高都难。虽然尽量想优化，但因为没遇着高水平大师的指点，所以。。。。哎
写出好的正则太TMD难了