如何利用正则表达式提取电缆规格型号，并自动计算截面积和芯数

laisme888

题目：电缆规格型号书写形式有如下3种情形，问如何利用正则表达式解决以下3个问题？

问题1：提取电缆规格问题2：计算电缆截面积
问题3：计算电缆芯数

ggmmlol

电缆截面积11怎么来的？可以用5+6计算吗？很神奇啊

microyip

1. Sub 正则取数()
   
2.     Dim vData As Variant, nRow As Variant
   
3.     Dim vFill As Variant, oData As Object, nI As Long, nJ As Long, vNum As Variant
   
4.    
   
5.     vData = Sheet1.UsedRange.Value
   
6.     ReDim vFill(2 To UBound(vData), 1 To 5)
   
7.     With CreateObject("Vbscript.RegExp")
   
8.         .Global = True
   
9.         .IgnoreCase = True
   
10.         For nRow = 2 To UBound(vData)
    
11.             .Pattern = "WDNH[^，]+"
    
12.             Set oData = .Execute(vData(nRow, 1))
    
13.             If oData.Count > 0 Then
    
14.                 vFill(nRow, 1) = oData(0)
    
15.                 .Pattern = "(\d+X)?(\d+)"
    
16.                 Set oData = .Execute(oData(0))
    
17.                 If oData.Count > 0 Then
    
18.                     For nI = 0 To oData.Count - 1
    
19.                         For nJ = 0 To oData(nI).SubMatches.Count - 1
    
20.                             vNum = Val(oData(nI).SubMatches(nJ))
    
21.                             If vNum = 0 And nJ = 0 Then vNum = 1
    
22.                             If vFill(nRow, 5 - nJ * 2) <> "" Then vFill(nRow, 4 - nJ * 2) = vFill(nRow, 5 - nJ * 2) & "+" & vNum
    
23.                             vFill(nRow, 5 - nJ * 2) = vFill(nRow, 5 - nJ * 2) + vNum
    
24.                         Next
    
25.                     Next
    
26.                 End If
    
27.             End If
    
28.         Next
    
29.     End With
    
30.     [C2:G2].Resize(UBound(vData) - 1) = vFill
    
31. End Sub

复制代码

microyip

附上附件以供参考

microyip

ggmmlol 发表于 2021-2-28 09:58
电缆截面积11怎么来的？可以用5+6计算吗？很神奇啊

这是型号表达方式，正常的。
3X5+4X6，表示 3根线 总截面积5 + 4根线 总截面积6，那么根数相加 3+4，总截面积相加 5+6
除非楼主把型号理解错误，实际是
3X5+4X6，表示 3根截面积5的线 + 4根截面积6的线，那么根数相加 3+4，总截面积 3X5+4X6

ggmmlol

microyip 发表于 2021-2-28 10:35
这是型号表达方式，正常的。
3X5+4X6，表示 3根线 总截面积5 + 4根线 总截面积6，那么根数相加 3+4，总 ...

我第一次听到电缆的规则的表示为 芯数X总面积。真神奇，我之前都听说是 ：芯数X单芯截面积 。 看来我要去图书馆翻看一下五金手册大全中关于电缆型号的表示方式了。

microyip

ggmmlol 发表于 2021-2-28 11:31
我第一次听到电缆的规则的表示为 芯数X总面积。真神奇，我之前都听说是 ：芯数X单芯截面积 。 看来我要去 ...

这个，我不是专业，不敢绝对说你的是对，或者楼主是对的。又或者楼主的数据里的要求这么填写的，也不出奇啊，有些考虑到方便，要求填写数据时候是这么填上来的，也是可以理解的呀

ggmmlol

microyip 发表于 2021-2-28 11:37
这个，我不是专业，不敢绝对说你的是对，或者楼主是对的。又或者楼主的数据里的要求这么填写的，也不出奇 ...

这个解释通不通我不知道，但确实很强，勉强的强。
本来我的疑问是向帖主的，你既然一再强调，大概是你认为自己的解释是正确的、因此可以替代贴主做出释疑，我的疑问就不该存在了，否则我想不到你有坚持己见的必要

microyip

ggmmlol 发表于 2021-2-28 12:40
这个解释通不通我不知道，但确实很强，勉强的强。
本来我的疑问是向帖主的，你既然一再强调，大概是你认 ...

你误解了我的意思了，抱歉了，我不再解释什么了

laisme888

microyip 发表于 2021-2-28 10:35
这是型号表达方式，正常的。
3X5+4X6，表示 3根线 总截面积5 + 4根线 总截面积6，那么根数相加 3+4，总 ...

3X5+4X6，表示 3根线 总截面积5 + 4根线 总截面积6，那么根数相加 3+4，总截面积相加 5+6
你的理解是对的，电缆规格型号截面积就是这么计算的