请教一个用正则表达式提取字符串的问题

xiaoangel

请教正则高手一个问题
我想从源字符串里提取一些有规律的字符
如下表所示
想把源字符串里的以ISO三个大写字母+7个数字这样的字符串，全部找出来，放在一起，中间以|分开。
请教如何实现？ 谢谢

源字符串	提取出的字符串
ISO8956000 |  EIPU 56848 | ISO5457856 | OPU~745	ISO8956000  |ISO5457856 |
RESIS6MP  |ISO8956000 | EIPU 56848 | ISO1247851 | OPU~745	ISO8956000  |ISO1247851 |

as42065300

用这个表达式匹配下
Public Sub t()
Dim reg As Object
Dim brr, ar(), mac As Object
Set reg = CreateObject("VBScript.RegExp")
brr = Sheet1.Range("a1").CurrentRegion
ReDim ar(1 To UBound(brr) - 1, 1 To 1)
For i = 2 To UBound(brr)
    With reg
        .Global = True
        .Pattern = "ISO\d*"
        Set mac = .Execute(brr(i, 1))
        For Each m In mac
           If rr = "" Then rr = m.Value Else rr = rr & "|" & m.Value
        Next
        ar(i - 1, 1) = rr
        rr = ""
    End With
Next
Sheet1.Range("c2").Resize(UBound(ar)) = ar
End Sub

yeminqiang

1. "ISO\d{7}"

复制代码

xiaoangel

yeminqiang 发表于 2016-12-13 08:19

这个我也知道，但一个源字符串里有可能有很多很多符合"ISO\d{7}"的小字符串，最后不知道要怎么输出？

fxl447098457

xiaoangel 发表于 2016-12-13 08:57
这个我也知道，但一个源字符串里有可能有很多很多符合"ISO\d{7}"的小字符串，最后不知道要怎么输出？

二楼已经给了代码啊。

lcjy11185

学习正则表达式，好用

yeminqiang

xiaoangel 发表于 2016-12-13 08:57
这个我也知道，但一个源字符串里有可能有很多很多符合"ISO\d{7}"的小字符串，最后不知道要怎么输出？

你看看正则的那几个方法就会输出的了。论坛有正则的资料很多哈。

hhjjpp

1. Sub t()
   
2. Dim reg As Object, brr, mh, n&, m, rr$
   
3. Set reg = CreateObject("VBScript.RegExp")
   
4. reg.Global = True
   
5. reg.Pattern = "(ISO\d{7})"
   
6. n = [a65536].End(xlUp).Row - 1
   
7. brr = Sheet1.[a2].Resize(n)
   
8. For i = 1 To n
   
9.     Set mh = reg.Execute(brr(i, 1))
   
10.     For Each m In mh
    
11.         If rr = "" Then rr = m Else rr = rr & "|" & m
    
12.     Next
    
13.     brr(i, 1) = rr
    
14.     rr = ""
    
15. Next
    
16. Sheet1.[c2].Resize(n) = brr
    
17. End Sub

复制代码

sdc3211772

Sub test()
Dim arr(), i%, n%, rng As Range, rngs As Range
Set rex = CreateObject("vbscript.regexp")
    With rex
    .Global = True
    .Pattern = "ISO\d{7}"
        For Each rng In Range("a2", Cells(Rows.Count, 1).End(xlUp))
        Set met = .Execute(rng)
            For i = 0 To met.Count - 1
                n = n + 1
                ReDim Preserve arr(1 To n)
                arr(n) = met(i)
            Next
        rng(1, 3) = Join(arr, "|")
        n = 0
        Next
    End With
End Sub

zzghty

支持一下！！！