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 = 0 Then Return New String() {}
            Dim sl As New System.Collections.Generic.List(Of String)
            Dim cur As Integer = 0
            Dim tcur As Integer = -1
            Dim wordlength As Integer = word.Length
            tcur = s.IndexOf(word, cur)
            While tcur > -1
                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