如何使用多字符分隔符拆分字符串并维护分隔符

拆分多个字符并不复杂;字符串上有重载。拆分方法可以做到这一点:

Dim input As String = "##RES00012## Some value ##RES00034## Another value"
Dim parts As String() = input.Split(New String() {"##RES"}, StringSplitOptions.RemoveEmptyEntries)

这将为您提供一个包含两个元素的数组:

"00012## Some value "
"00034## Another value"

但是,分隔符被省略了。不过,这并不太复杂;它应该在每个元素前面加上前缀(如果字符串不是以分隔符开头,则第一个元素除外):

Dim input As String = "##RES00012## Some value ##RES00034## Another value"
Dim parts As String() = input.Split(New String() {"##RES"}, StringSplitOptions.RemoveEmptyEntries)

For i As Integer = 0 To parts.Length - 1
    If i > 0 OrElse input.StartsWith("##RES") = True Then
        parts(i) = "##RES" & parts(i)
    End If
Next

有很多额外的代码人员…为什么不直接使用:

Dim inputs As String = "first value##second value##third value"
Dim parts As String() = Strings.Split(inputs,"##")