備忘:利用提取出如下字符串
美規 SJTW 12AWG 3C 60℃ ZRD004/WH018耐寒15.16M 31L+52N(透明+燈) |
Function GetLength(text)
Dim reg As New RegExp
With reg
.Global = True
.IgnoreCase = True
.Pattern = "[0-9.]+M"
End With
Dim mc As MatchCollection
Dim m As Match
Set mc = reg.Execute(text)
For Each m In mc
GetLength = m.Value
Next
End Function
必須添加引用
同时请支持网站 武潭门户 www.5tan.net