VBA自定义函数，提取封装中的0201、0402、0603等数字

1、提取坐标文件R/L/C PCB封装信息中的数字

''功能：提取PCB输出坐标文件中R/L/C元件封装值中的数字部分内容
''条件：PCB坐标文件必须要是最新的且完整的坐标文件
''结果：R/L/C的元件封装值会输出数字，其它元件则为原始值
''缺陷：用来与BOM中的物料描述中的封闭做对比，非R/L/Ｃ元件的值更需人式确认
Function my_Number(myStr As String)
Dim mySum As String
Dim my_tmp As String
    With CreateObject("VBSCRIPT.REGEXP")
                .Pattern = "[0-9]"                      '匹配数字以外的字符
        .Global = True
        If .Test(myStr) Then
            For Each Item In .Execute(myStr)
                my_tmp = my_tmp & Item
                If my_tmp = "01005" Or my_tmp = "0201" Or my_tmp = "0402" Or my_tmp = "0603" Or my_tmp = "0805" Or my_tmp = "1206" Or my_tmp = "1210" Or my_tmp = "1810" Or my_tmp = "2012" Or my_tmp = "2520" Or my_tmp = "3216" Then
                   my_Number = my_tmp
                Else
                   my_Number = myStr
                End If
            Next
        Else
            my_Number = myStr
        End If
    End With
End Function