以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 不规则字符如何拆分? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=163320) |
-- 作者:lin98 -- 发布时间:2021/4/23 10:46:00 -- 不规则字符如何拆分? 如何实现将《编号表A》的数据拆成《编号表B》的数据? |
-- 作者:有点蓝 -- 发布时间:2021/4/23 11:20:00 -- 和这里2楼的用法一样:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=162930&authorid=0&page=0&star=1 |
-- 作者:lin98 -- 发布时间:2021/4/23 13:12:00 -- Dim s As String = "A1B1CB1CBC" Dim lst As new List(of String) Dim m As String = s(0) For i As Integer = 1 To s.Length - 1 If Char.IsDigit(s(i)) Then m = m & s(i) lst.Add(m) m = "" ElseIf m > "" lst.Add(m) m = s(i) Else m = s(i) End If Next lst.Add(m) For Each s1 As String In lst Output.Show(s1) Next Dim s As String = "A1B1CB1CBC"这个固定是一个一个拆,而上面不是,没看懂
|
-- 作者:lin98 -- 发布时间:2021/4/23 13:15:00 -- 还有二个问题: 1.如何让如:B,B1都看成一位数进行拆分? 2,如何让标识的拆分都在编号的第二位?
|
-- 作者:有点蓝 -- 发布时间:2021/4/23 13:49:00 -- 1、因为没有规律,所以没有办法 2、使用插入行功能
|