求正则表达式解题

morpheus126

都是高手，但是为什么不规范数据源呢

sunya_0529

1. 
   
2. <div>Option Explicit
   
3. 
   
4. Sub 提取条码信息()
   
5. Application.ScreenUpdating = False
   
6. Dim c As Range, i%, str$, s$, j%
   
7. i = 2
   
8. With ActiveSheet
   
9.   str = .Cells(i, 1).Value
   
10.   s = ".(\d{4})(\*|×|-)(\d+)[\d\s-]*(有盖)?"
    
11.   Do While Len(str) > 0
    
12.     str = .Cells(i, 1).Value
    
13.     For j = 0 To UBound(PickStr(str, s)) - 1
    
14.       .Cells(i, 2) = "'" & PickStr(str, s, 0)(j)
    
15.       .Cells(i, 3) = IIf(PickStr(str, s, 1)(j) = "-", 1, PickStr(str, s, 2)(j))
    
16.       .Cells(i, 4) = PickStr(str, s, 3)(j)
    
17.       .Cells(i + 1, 1).EntireRow.Insert shift:=xlDown
    
18.       i = i + 1
    
19.     Next j
    
20.     i = i + 1
    
21.   Loop
    
22.   '删除空行
    
23.   .Range("B2:B" & i + 2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
24. End With
    
25. Application.ScreenUpdating = True
    
26. End Sub
    
27. 
    
28. Function PickStr(str$, ptr$, Optional i% = -1)
    
29. 'i, 显示匹配到的值里的分组数组项
    
30. Dim reg As Object, ms, m, sub_str$
    
31. Set reg = CreateObject("VBScript.RegExp")
    
32. With reg
    
33.   .Pattern = ptr '正则表达式
    
34.   .Global = True '匹配出所有符合条件的字符
    
35.   .IgnoreCase = False '不忽略大小写
    
36.   .MultiLine = True '多行模式
    
37.   Set ms = .Execute(str) '执行匹配
    
38. End With
    
39. If ms.Count Then
    
40.   For Each m In ms
    
41.     If i = -1 Then
    
42.       sub_str = sub_str & m & "|"
    
43.     Else
    
44.       sub_str = sub_str & m.SubMatches(i) & "|"
    
45.     End If
    
46.   Next
    
47. Else '未匹配到值时显示空值
    
48.    sub_str = sub_str & "|"
    
49. End If
    
50. PickStr = Split(sub_str, "|")
    
51. Set ms = Nothing
    
52. Set reg = Nothing
    
53. End Function</div>

复制代码

1588078/37

ggmmlol 发表于 2023-3-17 00:34

现在遇到这问题

1588078/37

剑指E 发表于 2023-3-16 22:12

这不是产品，是赠品，不娶这个

grf1973

感觉很难用一个pattern解决，要组合运用正则和split等。

1588078/37

grf1973 发表于 2024-5-22 16:06
感觉很难用一个pattern解决，要组合运用正则和split等。

谢谢啊。。。。。。。。。。。。。。。。。

1588078/37

grf1973 发表于 2024-5-22 16:06
感觉很难用一个pattern解决，要组合运用正则和split等。

数据是EXCEL直接连着ORACL数据库的

1588078/37

grf1973 发表于 2024-5-22 16:06
感觉很难用一个pattern解决，要组合运用正则和split等。

还有一个情况，条码后面，有带（券）的不要，

1588078/37

grf1973 发表于 2024-5-22 16:06
感觉很难用一个pattern解决，要组合运用正则和split等。

* x X  这些都是算是*号，

带券的数据不要，
麻烦下

grf1973

略作改动即可。