Question

我收到了字符串。字符串的长度不固定，但最大值为16.在长度为8时，它必须拆分为下一个字符串。我怎么知道拆分成字符串。以下是我目前的代码。请帮忙。感谢

   Dim input As String = "5210000000011754"

    If input.Length >= 8 Then
        Dim str1 As String = input.Substring(0, 8)
        Dim str2 As String = input.Substring(8, 8)

        Console.WriteLine(str1)
        Console.WriteLine(str2)
    End If

Answer 1

以这种方式尝试：

dim str1 = New String(input.Take(8).ToArray())
dim str2 = New String(input.Skip(8).ToArray())

这一直使用空字符串一直到16个字符的限制，并以8个字符标记分割。

它不会比那简单。

Answer 2

像这样改变

 If input.Length >= 8 Then

    Dim str1 As String = input.Substring(0, 8)
    Dim str2 As String = input.Substring(8)

end if

如果代码上显示input字符串521000000001

str1=52100000
str2=0001

Answer 3

如果字符串小于8，该怎么办？

    Dim input As String = "521"
    Dim str1 As String
    Dim str2 As String

    If input.Length >= 8 Then
        str2 = input.Substring(8)
    End If

    str1 = input.Substring(0, If(input.Length >= 8, 8, input.Length))

    Console.WriteLine(str1)
    Console.WriteLine(str2)

VB.NET Substring获取最后一个char位置

3 个答案: