使用无限拆分拆分VB.NET字符串

Question

在VB.Net中，如何按每个实数拆分字符串（数字和字母）。例如

1. 缺少会员申请2.会员信用评分低3.没有报告收入

到

1. 缺少会员申请
2. 会员信用评分低
3. 没有报告收入

Answer 1

    Dim source = "1. Membership application is missing 2. Members credit score is low 3. No reported income"

    Dim split = source.Split(New Char() {"1"c, "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c, "0"c})

    For i = 0 To split.GetUpperBound(0)
        If String.IsNullOrWhiteSpace(split(i)) Then
            Continue For
        End If
        Console.WriteLine("{0}. {1}", i, split(i).Trim("."c, " "c))
    Next

请注意，如果包含的项目超过9项，则会中断此项（如果包含0则为10项）。实际上有很多方法可以解决这个问题，但是没有一种方法可以解决这个问题。