以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何提取需要的数据?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106422)

--  作者:yds
--  发布时间:2017/9/8 11:33:00
--  [求助]如何提取需要的数据?

图片点击可在新窗口打开查看此主题相关图片如下:00.jpg
图片点击可在新窗口打开查看

如上图所示,如何根据产品名称,提取出来需要的数据填充到后面的列,
IISJ-SP27.5X19.8-L275E
所有的产品名称都是三段,中间用“-”隔开
第一段包含叶数和类型信息
II=2      叶数
IIS=2    类型
第二段包含直径和螺距信息
X前面的数字式直径,后面的数字是螺距
第二段开头有四种规格S,P,SP,SP
第三段包含的数字为桨型


新手请大神指导,搞了半天一直弄不成.


--  作者:有点甜
--  发布时间:2017/9/8 13:17:00
--  

Dim str As String = "IISJ-SP27.5X19.8-L275E"
Dim reg As new System.Text.RegularExpressions.Regex("IIS|II|(?<=-)[SP]+?(?=[0-9.]+)|[0-9.]+")
Dim mc As object = reg.Matches(str)
For i As Integer = 0 To mc.count-1
    msgbox(mc(i).value)
Next

msgbox(mc(1).value)