当前位置 博文首页 > bytes2BSTR

最大化 缩小

    bytes2BSTR

    作者：admin 时间：2021-02-16 12:36

    复制代码 代码如下:

    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  

    js
上一篇：vbs/js脚本编程教学（1）
下一篇：没有了