以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  有没有什么方法可以使一串订单自动分类到相对应的列中吗？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148072)

--  作者：ainihen123 --  发布时间：2020/3/30 17:29:00 --  有没有什么方法可以使一串订单自动分类到相对应的列中吗？ 例如 他人给我发来的订单是：   铅笔500钢笔500橡皮300练习本1000       这样的一个数据订单    我要如何把它们自动归类到文具列   和  数量列

--  作者：有点蓝 --  发布时间：2020/3/30 17:47:00 --   比如 Dim s As String="铅笔500钢笔500橡皮300练习本1000" Dim p As String = "\\d+" Dim r As New System.Text.RegularExpressions.Regex(p) Dim str = r.Split(s) p = "\\D+" r = New System.Text.RegularExpressions.Regex(p) Dim str2 = r.Split(s) For i As Integer = 0 To str.length - 2     Output.Show(str(i) & "=" & str2(i+1)) Next