正则表达式

snowfly1112

请教大家，想提取某一段字符，不知道正则表达式如何写
QX385-040042GG.dwg
想提取QX385-040042GG，
QX385-040072GG 板.dwg
想提取QX385-040072GG
  QX385-040082GG板.dwg
想提取QX385-040082GG。  QX385-040082.dwg
想提取QX385-040082
目标是想提取扩展名前汉字，空格都去掉后，之前的文本。如果扩展名前是数字，就全部提取。
有朋友写的是
Public Function re(rng As Range)
    Dim ma
    With CreateObject("vbscript.regexp")
        .Pattern = "(\D[\s\S]*\d)"
        .Global = True
        Set ma = .Execute(rng.Value)
    End With
    re = ma(0).submatches(0)
End Function

但是QX385-040082GG板.dwg  提取成QX385-040082，希望提取的是QX385-040082GG

killq

^[^\u4e00-\u9fa5\s\.]+     你这挺没劲的，自己都搞不清楚自己想干嘛，反复的修改需求。要是学习就去看书，要是求助就把需求定死了，要是想要更深入的指导建议花钱。正则实际就是找规律，就给出几条数据还想让别人帮你找到全部的规律？

lh123lh1234

把这里改成这样
.Pattern = "(\D[\s\S]*\d[^.dwg]{2})"

gbgbxgb

楼主，你的行为让人不耻。

早先你另一帖说了提取至数字结尾，他人提供的正则错在何处？！！！！

发帖提供他人早先的代码要交待他人写此码时的背景，你的描述用语倒象早先的写码者水平很烂。


为免误解，声明：我不是楼主所张贴的代码的写码者，只是看到求助者的求助描述语焉不详，却往往骄傲的要命，有些求助者的求助明明描述狗屁不通，类似“好象我描述不到位”、“好象我描述错了一点”的回复让人看了既可笑又可气。

killq

gbgbxgb 发表于 2019-8-16 15:34
楼主，你的行为让人不耻。

早先你另一帖说了提取至数字结尾，他人提供的正则错在何处？！！！！

代码是我的，相当的愤怒，他喵的当初的需求可不是这样，而且我也交待了当时代码的适用范围

gbgbxgb

killq 发表于 2019-8-16 15:37
代码是我的，相当的愤怒，他喵的当初的需求可不是这样，而且我也交待了当时代码的适用范围

理解。正因如此，我才跟个帖发下牢骚，顺带告诫类似楼主的求助者。

论坛的这种丑陋现象让我看了非常生气。

qingc0221

所以说,提供思路就好,没必要喂到嘴边

killq

gbgbxgb 发表于 2019-8-16 15:40
理解。正因如此，我才跟个帖发下牢骚，顺带告诫类似楼主的求助者。

论坛的这种丑陋现象让我看了非常生 ...

这种类似模糊挂人的行为我第一眼看到时有点想骂人，不过还是忍了忍。
MD，感觉别人免费帮他帮出毛病来了

machunze

一步不行搞两步啊，先用mid套instr把点号和后面的干掉，再用正则把汉字干掉，空格不用管，提取出来的数据加trim。

snowfly1112

gbgbxgb 发表于 2019-8-16 15:34
楼主，你的行为让人不耻。

早先你另一帖说了提取至数字结尾，他人提供的正则错在何处？！！！！

由正则引发的血案！！！
以前不知正则，最近才发现，正有此需求，所以求助。不想却遭来一阵炮轰。现实是工作中的问题随时会出现新情况，遇到就会寻求方法，若您水平够用，大可指导一下正则表达式比较全面的帮助，提取方法，若不想回复，大可无声。