按字符串位数截分段截取,请问该如何做呢?

zxmsgdhr

有以下一段字段:
04002005000807102980

截取后结果如下:
string a(1)="0"
string a(2)="4002"
string a(3)="0050"
string a(4)="0"
string a(5)="0807"
string a(6)="1"
string a(7)="0"
string a(8)="2980"

3521565

说说是什么规律，没有规律怎么分

zxmsgdhr

a(1)即为第1个字符
a(2)第2至第5字符
a(3)第6至第9字符
a(4)第10个字符
a(5)第11至第14字符
a(6)第15字符
a(7)第16字符
a(8)第17至第20字符

zxmsgdhr

请高手帮帮忙啰

美味佳

Dim sa As String = "04002005000807102980"
        Dim oArray As New List(Of String) ' 定义数组
        oArray.Add(sa.Substring(0, 1))
        oArray.Add(sa.Substring(1, 4))
        oArray.Add(sa.Substring(5, 4))
        oArray.Add(sa.Substring(9, 1))
        oArray.Add(sa.Substring(10, 4))
        oArray.Add(sa.Substring(14, 1))
        oArray.Add(sa.Substring(15, 1))
        oArray.Add(sa.Substring(16, 4))

美味佳

没有什么规律，只能这样做了！
要是有规律的话，做起来更有逻辑！

clcvictor

Dim MyString As String = "04002005000807102980"
        Dim A1 As String = Mid(MyString, 1, 1)
        Dim A2 As String = Mid(MyString, 2, 4)
        Dim A3 As String = Mid(MyString, 6, 4)
        Dim A4 As String = Mid(MyString, 10, 1)
        Dim A5 As String = Mid(MyString, 11, 4)
        Dim A6 As String = Mid(MyString, 15, 1)
        Dim A7 As String = Mid(MyString, 16, 1)
        Dim A8 As String = Mid(MyString, 17, 4)