专家坐堂-Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=170471)

--  作者：有点蓝
--  发布时间：2021/7/27 22:46:00
--
如果中间部分只有字母和数字，参考

Dim p As String = "[0-9a-zA-Z]+"
Dim txt = "字符串48AB123文字"
Dim r As New System.Text.RegularExpressions.Regex(p)
Dim str = r.Split(txt)
For i As Integer = 0 To str.length - 1
Output.Show(str(i))
Next

--  作者：有点蓝
--  发布时间：2021/8/2 15:24:00
--

Dim str = r.Split(txt)
For i As Integer = 0 To str.length - 1
r("品牌") = str(0)
r("产品名称") = str(1)
Next
r("型号") = txt.replace(str(0),"").replace(str(1),"")

--  作者：有点蓝
--  发布时间：2021/8/2 20:18:00
--

If e.DataCol.Name = "商品名称"
Dim p As String = "[0-9a-zA-Z]+"
Dim txt = e.DataRow("商品名称")
Dim r As New System.Text.RegularExpressions.Regex(p)
Dim str = r.Split(txt)
e.DataRow("备注") = str(0)
e.DataRow("商品分类") = str(1)
e.DataRow("公司") = txt.replace(str(0),"").replace(str(1),"")
End If