- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]单元格字符分拆 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134076)
-- 发布时间：2019/4/26 16:11:00
-- [求助]单元格字符分拆
怎样将[案号]列截取到[大写年号]、[截取案号]列。
谢谢！
此主题相关图片如下：截取案号.jpg
datachanged代码：
Dim str As String = e.newvalue
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "........")
e.DataRow("大写年号") = mc(0).groups(1).value
e.DataRow("截取案号") = mc(0).groups(2).value
-- 发布时间：2019/4/26 16:16:00
--
"截取案号"全部以“行”字开头？
-- 发布时间：2019/4/26 16:59:00
--
不一定，有的是"民”字
-- 发布时间：2019/4/26 17:12:00
--
Dim s As String = "(2018)鲁01行123456"
Dim p2 As String = "鲁\\d+"
Dim r As New System.Text.RegularExpressions.Regex(p2)
Dim str = r.Split(s)
For Each a As String In str
Output.Show(a)
Next