求二进制转成UTF-8编码的函数

MagicianLiu 2004-08-27 04:19:12
如题
...全文
540 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
MagicianLiu 2004-08-27
  • 打赏
  • 举报
回复
多谢多谢!
我笨了点,用Stream实现了:)
dim objStream
set objStream =CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = "UTF-8"
BytesToBstr = objStream.ReadText
objStream.Close
set objStream = nothing
rainstormmaster 2004-08-27
  • 打赏
  • 举报
回复
呵呵:)

直接转更好,我只是想告诉楼主,怎么变通的解决问题
supergreenbean 2004-08-27
  • 打赏
  • 举报
回复
反对rainstormmaster(暴风雨 v2.0) 一下
不要转字串,直接转字节数组哦,否则可能会丢失信息地, hohoo~~~~
rainstormmaster 2004-08-27
  • 打赏
  • 举报
回复
utf-8编码解码的函数有很多,你自己搜索一下,至于你的问题,先把2进制数据转为字串,然后随便用一个utf-8编码函数就行了
supergreenbean 2004-08-27
  • 打赏
  • 举报
回复
http://community.csdn.net/Expert/topic/3083/3083971.xml?temp=.886532

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧