专家坐堂-不规则字符分割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)

--  作者：yifan3429
--  发布时间：2021/7/27 22:33:00
--  不规则字符分割

Dim chrs() As Char = {"*", " "}
        Dim ary() As String = e.NewValue.split(chrs)
        e.DataRow("规格(mm)长") = ary(0)
        e.DataRow("规格(mm)宽") = ary(1)
        e.DataRow("规格(mm)高") = ary(2)

下图这种无标识如何分解呢

此主题相关图片如下：企业微信截图_20210727223155.png

[此贴子已经被作者于2021/7/27 22:34:06编辑过]

--  作者：有点蓝
--  发布时间：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

--  作者：yifan3429
--  发布时间：2021/8/2 15:02:00
--
优客FM6301Y休闲椅
分解成
品牌列优客
型号列 FM6301Y
产品名称列休闲椅

求助

--  作者：有点蓝
--  发布时间：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),"")

--  作者：yifan3429
--  发布时间：2021/8/2 19:46: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)
For i As Integer = 0 To str.length - 1
r("备注") = str(0)
r("商品分类") = str(1)
Next
r("公司") = txt.replace(str(0),"").replace(str(1),"")
End If

此主题相关图片如下：企业微信截图_20210802194716.png

--  作者：有点蓝
--  发布时间：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