在vb6当中我有一个byte数组要转化为字符串，请问如何指定字符集转化，我的byte数组内容是gb2312编码

Question

在vb6当中我有一个byte数组要转化为字符串，请问如何指定字符集转化，我的byte数组内容是gb2312编码

Answer 1

如果数组名是a，转Unicode编码直接用a
转gb2312编码、GBK编码、ANSI编码，都可以用 StrConv(a, vbUnicode)
转其它编码，用以下代码

With CreateObject("ADODB.Stream")
  .Open
  .Type = 1
  .Write a '数组名
  .Position = 0
  .Type = 2
  .Charset = "UTF-8" '编码
  MsgBox .ReadText '字符串结果
  .Close
End With