主题：字符串分段？

Dim aa As String
Dim strRet As String
Dim bb As Byte()
aa = "截取4字符串abcjdj142你好"
bb = Encoding.Default.GetBytes(aa.ToCharArray())
For i As Integer = 0 To aa.Length  Step 10
    strRet = New String(Encoding.Default.GetChars(bb,0,10))
    If aa.IndexOf(strRet) = -1
        strRet = New String(Encoding.Default.GetChars(bb,0,9))
    End If
    Output.show(strRet)
    aa = aa.Replace(strRet,"")
    bb = Encoding.Default.GetBytes(aa.ToCharArray())
Next
Output.show(aa)

补充说明一下，遇到需要从中文（全角）支付位置需要按字节分割的时候，得到的仅仅是一个问号，所以，这里必须增减一个字节长度来求得整个字符，是增是减楼主自己看着办，如果必须按照一定的字节来截取，中文（全角字符）我暂时还找不到解决办法，还得高手出招！

呵呵，我也是到处收破烂似的乱捡来的！

经过这样，10楼的代码有问题，经过测试，修改如下，这样试一试：

 

Dim aa As String
Dim strRet As String
Dim bb As Byte()
aa = "截取4字符串abcjdj142你好中国国,经济ab123aasdffgghsdfghjkl;'qwertyuiop[zxcvbnm,.qwertyuisdfghjk"
bb = Encoding.Default.GetBytes(aa.ToCharArray())
For i As Integer = 0 To 100000  Step 10
    strRet = New String(Encoding.Default.GetChars(bb,0,10))
    If aa.IndexOf(strRet) = -1
        strRet = New String(Encoding.Default.GetChars(bb,0,9))
    End If
    Output.show(strRet)
    aa = aa.Replace(strRet,"")
    bb = Encoding.Default.GetBytes(aa.ToCharArray())
    If System.Text.Encoding.Default.GetBytes(aa).Length <= 10
        Exit For
    End If
Next
Output.show(aa)