以文本方式查看主题

-  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》的数据?

图片点击可在新窗口打开查看此主题相关图片如下:拆分字符问题.jpg
图片点击可在新窗口打开查看




--  作者:有点蓝
--  发布时间: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、使用插入行功能