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

liulang0808

目前附件内容里按照空格拆分的结果
如果是其他不可见字符，可以考虑正则表达式拆分的

woniu3721

liulang0808 发表于 2022-11-12 20:20
目前附件内容里按照空格拆分的结果
如果是其他不可见字符，可以考虑正则表达式拆分的

空格不是不可见字符，而是可见的中文，或者冒号等号之类的，他作为商标和型号之间的分隔。为了避免眼花缭乱造成误导，所以以空格隔开，这个必须正则，否则无法拆分。

liulang0808

woniu3721 发表于 2022-11-12 20:33
空格不是不可见字符，而是可见的中文，或者冒号等号之类的，他作为商标和型号之间的分隔。为了避免误导， ...

如果楼主的问题还没有解决，建议上传有针对性的文档附件。。。。

limonet

woniu3721 发表于 2022-11-12 20:18
你这玩意儿，我只要加一个中文就匹配不出来了，不要把型号以外的字符匹上去。

你自己来吧

准提部林

woniu3721 发表于 2022-11-12 20:18
你这玩意儿，我只要加一个中文就匹配不出来了，不要把型号以外的字符匹上去。

看到了..發了兩帖~~想看看有無不用正則的方法

lkqsmxw

这是楼主给大家出考试题吗？不象是求助啊

lkqsmxw

通用性的前提条件就是规范性。俗话说没有规矩不成方圆。建议先把数据中的中文 冒号 逗号等都替换成空格，并且只留一个空格，再分就简单了。做不到就很难讲究通用性了。

woniu3721

lkqsmxw 发表于 2022-11-13 11:07
通用性的前提条件就是规范性。俗话说没有规矩不成方圆。建议先把数据中的中文 冒号 逗号等都替换成空格，并 ...

你这个思路倒是不错，那些不要的全部替换成空格倒是不难，但每条数据替换后的空格数量是不同的，最关键的是这个纯英文的字符串不好排除的，当然后面的纯数字就不管他了，因为你取是从左往右取，始终迈不过英文商标

woniu3721

准提部林 发表于 2022-11-13 09:46
看到了..發了兩帖~~想看看有無不用正則的方法

这个帖子里内容当然可以不用正则，你看我上一个帖子就晓得了，用正则能解决90%的，只不过他们写的正则很复杂，但如果不用正则的话，估计就只能解决10%的内容，因为这个空格实际上包含的是五花八门的东西。以前有个网友写了一个正则，很简单，准确率也很高，放在任何条件下都行，几乎就是万能，唯一的缺点就是遇到如果前面有英文商标的就失灵了，当然有英文商标的这种情况也不多，现在考虑把英文商标先干掉，就没问题了。
Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.Pattern = "^.*?([\w-()/\+\.@]{2,})|.+"
    ar = Range([b2], [b2].End(4))
    For i = 1 To UBound(ar)
        ar(i, 1) = reg.Replace(ar(i, 1), "$1")
    Next
    [c2].Resize(UBound(ar), 1) = ar

lkqsmxw

woniu3721 发表于 2022-11-13 12:17
你这个思路倒是不错，那些不要的全部替换成空格倒是不难，但每条数据替换后的空格数量是不同的，最关键的 ...

用替换，把两个空挌替换成一个空格就行了。