vb2008：字符串

byteArray转换为string:

 

        Dim b(3) As Byte
        b(0) = &HCE
        b(1) = &HD2
        b(2) = &HC3
        b(3) = &HC7

 

        Dim z As System.Text.Encoding
        z = System.Text.Encoding.GetEncoding("gb2312")

        Debug.Print(z.GetString(b))

 

从文件中读取中文字符

        Dim m As New IO.FileStream("d:/out.txt", IO.FileMode.Open)
        Dim ss As New IO.StreamReader(m, Encoding.GetEncoding(936))
        Dim p As String
        Do While Not ss.EndOfStream
            p = ss.ReadLine()
            If p.Length Then ListBox1.Items.Add(p)
        Loop