CF下Split的使用

在Compact Framework 下 String的Split不能正确的处理 字符串 分割字符串

如对字符串 "abcfdef12abcedef23" 以"ef"进行分割.Split进行处理时会将"ef"分开进行"e"和"f"的分割

在使用正规表达式分割时也存在该问题.

要处理分隔符为多字符的情况 可以采用 IndexOf方法

 Public Shared Function Split(ByVal s As String, ByVal word As String) As String()
             If s.Length =  Then Return New String() {}
             Dim sl As New System.Collections.Generic.List(Of String)
             Dim cur As Integer =
             Dim tcur As Integer = -
             Dim wordlength As Integer = word.Length
             tcur = s.IndexOf(word, cur)
             While tcur > -
                 sl.Add(s.Substring(cur, tcur - cur))
                 cur = tcur + wordlength
                 tcur = s.IndexOf(word, cur)
             End While
             sl.Add(s.Substring(cur))
             Return sl.ToArray()
         End Function