主题：字符串分段？

Dim r As  String="    中国国,经济ab123"
Dim bs() As  Byte = System.Text.Encoding.Default.GetBytes(r)
Dim cd As  Short= bs.Length
MessageBox.Show(cd)
执行后cd=20
请问如何将每10个字节赋值给一个变量？r的长度不定，各位帮帮忙！

substring

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

是的，先不考虑拆半的问题，先解决这一步。

多谢！

Array.Copy

如果要使用的话，直接用bs这个变量就可以了啊,没必要拆开使用。

你是不是想分段保存下来啊

是的，请问这个怎么用？多谢！

即使是分段保存，也不需要 分到各个变量里面去

直接用for循环处理就可以了

Array.Copy的用法

http://msdn.microsoft.com/zh-cn/library/system.array.copy.aspx

Dim r As  String="    中国国,经济ab123"
Dim bs() As  Byte = System.Text.Encoding.Default.GetBytes(r)
Dim cd As  Short= bs.Length
Dim d As array=bs
Dim f As array=d.copy(2,4)

最后这一句报错，对VB一窍不通啊！还请各位老师费心！

这样可以吗：

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