怎样将字节转换为字符串

Question

大家好，现有一个问题请教，在一个二进制文件中有一段字节：BA C3 BA C3 D1 A7 CF B0 CC EC CC EC CF F2 C9 CF 0D 0A 68 65 6C 6C 6F 77 20 77 6F 72 6C 64 0D 0A 32 30 31 31 2D 31 30 2D 31 32 0D 0A我需要将它们提取出来并转为字符串保存到文本文件中，以上内容的结果是下面三段内容：好好学习天天向上
hellow world
2011-10-12请问该怎么编程，谢谢大家。

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim strUniCode() As String
    Dim bytUniCode() As Byte
    Dim intP As Integer
    strUniCode = Split("BA C3 BA C3 D1 A7 CF B0 CC EC CC EC CF F2 C9 CF 0D 0A 68 65 6C 6C 6F 77 20 77 6F 72 6C 64 0D 0A 32 30 31 31 2D 31 30 2D 31 32 0D 0A", " ")
    ReDim bytUniCode(UBound(strUniCode) - LBound(strUniCode) + 1)
    For intP = LBound(strUniCode) To UBound(strUniCode)
        bytUniCode(intP) = Val("&H" & strUniCode(intP))
    Next intP
    Debug.Print StrConv(bytUniCode, vbUnicode)
End Sub