7,785
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
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
我笨了点，用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~~~~
不要转字串，直接转字节数组哦，否则可能会丢失信息地， 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
