主题：字符串分段？

substring

中英文在一起，按中文两个字符分，会有拆半的情况发生的。

这样可以吗：

Dim r As  String="    中国国,经济ab123aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
Dim bs() As  Byte = System.Text.Encoding.Default.GetBytes(r)
Dim cd As  Short= bs.Length
'***MessageBox.Show(cd)
Dim n As Integer
If r.length Mod 10 > 0
    n = r.length/10
    For i As Integer = 0 To n-1

        output.show( r.substring(i*10,10))
    Next
    output.show(r.substring((n-1)*10,r.length Mod 10))
Else
    n = r.length/10
    For i As Integer = 0 To n-1
        output.show(r.substring(i*10,10))
    Next   
End If