复制代码 代码如下:
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
标签:
bytes2BSTR
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
暂无“bytes2BSTR”评论...
更新动态
2024年05月10日
2024年05月10日
- 物华弥新迷踪盘第二十五关怎么过 迷踪盘第二十五关通关方法
- 吴克群2015-数星星的人2CD[华纳][WAV+CUE]
- 陈升.2023-望乡【新乐园】【WAV+CUE】
- 群星-雨果唱片-金曲精选II_LPCD45【WAV】
- 《古墓丽影》新作最新细节曝光:劳拉可招募盟友
- Steam为《地狱潜者2》退款 玩家:不愧是PC最大平台
- 曝《生化危机9》开发周期长达7年 舅舅党解释
- 徐丽.2012-微光徐徐【后裔音乐】【WAV+CUE】
- 许慧欣.2009-爱极限【上华】【WAV+CUE】
- 王馨平.2014-TRULY(翻唱辑)【Luvlee】【WAV+CUE】
- 李思思《梨花又开放》24K金碟头版限量编号[WAV+CUE][728M]
- 孙露《放你在心里》[WAV+CUE][720M]
- 孟慧圆《人生颁奖典礼》[320K/MP3][84.47MB]
- 物华弥新迷踪盘第二十九关怎么过 迷踪盘第二十九关通关方法
- 逆水寒手游五子棋第二十八关怎么过 逆水寒手游残局攻略大全