主页 > 知识库 > 转换中文为unicode 转换unicode到正常文本

转换中文为unicode 转换unicode到正常文本

热门标签:武夷山旅游地图标注 怎么在地图标注自己 凤台百度地图标注店 修改地图标注 县域地图标注打印店 个人可以办理400电话么 金昌电话机器人价格 外呼系统API接口 莱西电子地图标注

复制代码 代码如下:

'//转换中文为unicode
function URLEncoding(vstrIn)

    dim i
    dim strReturn,ThisChr,innerCode,Hight8,Low8

    strReturn = ""
    for i = 1 to Len(vstrIn)
        ThisChr = Mid(vStrIn,i,1)
        If Abs(Asc(ThisChr))  HFF then
            strReturn = strReturn  ThisChr
        else
            innerCode = Asc(ThisChr)
            If innerCode  0 then
                innerCode = innerCode + H10000
            end If
            Hight8 = (innerCode  and HFF00)\&;HFF
            Low8 = innerCode and HFF
            strReturn = strReturn  "%"  Hex(Hight8)   "%"  Hex(Low8)
        end If
    next

    URLEncoding = strReturn

end function

'//转换unicode到正常文本
function bytes2BSTR(vIn)
    dim i
    dim strReturn,ThisCharCode,nextCharCode

    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

function getText(o,url)

    dim oReq

    on error resume next

    if o is nothing then
        '//创建XMLHTTP对象
        set oReq    = CreateObject("MSXML2.XMLHTTP")
    else
        set oReq    = o 
    end if

        oReq.open "get",url,false
        oReq.send 

    if oReq.status = 200 or oReq.status = 0 then    
        getText = bytes2BSTR(oReq.responseBody)
    else
        getText = ""
    end if

end function

您可能感兴趣的文章:
  • java unicode转码为中文实例
  • Java String字符串和Unicode字符相互转换代码
  • java实现汉字转unicode与汉字转16进制实例
  • java中unicode和中文相互转换的简单实现

标签:清远 上海 凉山 通辽 南京 楚雄 赤峰 邢台

巨人网络通讯声明:本文标题《转换中文为unicode 转换unicode到正常文本》,本文关键词  转换,中文,为,unicode,到,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《转换中文为unicode 转换unicode到正常文本》相关的同类信息!
  • 本页收集关于转换中文为unicode 转换unicode到正常文本的相关信息资讯供网民参考!
  • 推荐文章