按字符串位数截分段截取,请问该如何做呢?
有以下一段字段:
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 "
[解决办法]
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))
[解决办法]
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)
