又来匹配型号并提取，不要定制要通用性

woniu3721

说明：原稿较凌人眼花缭乱，为避免误导大神，此是简化了。所有电器型号基本都是这几种格式特征，1：数字+字母的组合。2：数字+字母+另外7个符号其中1个或多个（连续的，不断开）。例子中的空格是作为各部分的分界点，但空格不是真空格，所代表的内容是包括有空格、中文、冒号、逗号甚至等号，但绝没有型号中的任何一个符号。写一个只匹配中间部分的代码，从左往右取第一个符合以上特征的连续的字符串就算成功100%了，你不要管其他后面还有没有。除数字和字母以外，其他7个符号是+-/().@ 最主要就是要避开前面的纯英文，这段正则就完全符合以上型号^.*?([\w-()/\+\.@]{2,})|.+ 但唯一缺点就是不能避开前面的纯英文字母的。
又来匹配型号.zip (10.16 KB, 下载次数: 19)

2022-11-12 12:19 上传

点击文件名下载附件

zxsea_7426

这种大海捞针式的万能代码。 需要万能你输入时按规范输入就啥问题也不存在。自己不规范，让别人来给你规范。坐等超级智能高手

limonet

代码在审核，其实用公式也可以。

liulang0808

按照图片看，空格分列就可以提取出来了吧？

limonet

Sub a()
    Dim i%
    With CreateObject("vbscript.regexp")
        For i = 2 To 32
            .Pattern = ".* (.*(?= )).*"
            Cells(i, "D") = .Replace(Cells(i, "B"), "$1")
        Next i
    End With
End Sub

捞屎人

直接分列不好吗

woniu3721

捞屎人 发表于 2022-11-12 15:02
直接分列不好吗

因为无法分列，并不是你看到的这样规整，所以一定要用正则进行匹配才行。

woniu3721

liulang0808 发表于 2022-11-12 13:55
按照图片看，空格分列就可以提取出来了吧？

不能以空格来分列，因为你看到的空格并不是空格，而是其他乱七八糟的东西

woniu3721

zxsea_7426 发表于 2022-11-12 13:54
这种大海捞针式的万能代码。 需要万能你输入时按规范输入就啥问题也不存在。自己不规范，让别人来给你规范 ...

不是我输入，是众人发过来的各式各样的哈，如果我自己输入就不存在要匹配这个问题了

woniu3721

limonet 发表于 2022-11-12 13:57
Sub a()
    Dim i%
    With CreateObject("vbscript.regexp")

你这玩意儿，我只要加一个中文就匹配不出来了，不要把型号以外的字符匹上去。