UniCode字符串转Ansi字节数组代码

Private Sub Command1_Click()

   Dim b(0 To 6) As Byte'定义Ansi字符串存放字节数组

   doVBUniCodeToAnsiByte "123斯", b

   MsgBox StrConv(b, vbUnicode)'Ansi字符串字节数组转UniCode字符串

End Sub

 

Private Sub doVBUniCodeToAnsiByte(ByVal strUniCode As String, ByRef Dest() As Byte)

   Dim i As Long Dim b() As Byte

   Erase Dest

   b = StrConv(strUniCode, vbFromUnicode)

   ' For i = 0 To UBound(b)

   ' Debug.Print b(i)

   ' Next i

   For i = 0 To UBound(b)

      Dest(i) = b(i)

      If i > UBound(Dest) Then Exit For

   Next i

End Sub