zoukankan      html  css  js  c++  java
  • Unicode函数

    一、计算unicode字符串的Ansi编码的长度

    Function strUnicodeLen(asContents)

        asContents1="a" & asContents

        len1=len(asContents1)

        k=0

        for i=1 to len1

            asc1=asc(mid(asContents1,i,1))

            if asc1<0 then asc1=65536+asc1

            if asc1>255 then

                k=k+2

            else

                k=k+1

            end if

        next

        strUnicodeLen=k-1

    End Function

    二、将Unicode编码的字符串转换为Ansi编码的字符串

    Function strUnicode2Ansi(asContents)

        strUnicode2Ansi:='';

        len1=len(asContents)

        For i=1 to len1

            varchar=Mid(asContents1,i,1) 

            varasc=Asc(varchar)  

            If varasc<0 then varasc=varasc+65536

            If varasc>255 then

                varHex=Hex(varasc)

                varlow=left(varHex,2)

                varHigh=Right(varHex,2)

                strUnicode2Ansi=strUnicode2Ansi & chrB("&H" & varlow) & chrB("&H" & varhigh)

            Else

                strUnicode2Ansi=strUnicode2Ansi & chrB(varasc)        

            End If

        Next

    End Function

    三、将Ansi编码的字符串转换为unicode编码的字符串

    Function strAnsi2Unicode(asContents)

        strAnsi2Unicode=""

        If IsNull(asContents) or asContents="" then

            Exit Function

        For i=1 to len1

            varchar=MidB(asContents1,i,1) 

            varasc=AscB(varchar)  

            If varasc>127 then

                If MidB(asContens,i+1,1)<>"" then

                    strAnsi2Unicode=strAnsi2Unicode& chr(AscW(MidB(asContents,i+1,1) & varchar))

                End If

                i=i+1

            Else

                strAnsi2Unicode=strAnsi2Unicode& chr(varasc)  

            End If      

         Next

    End Function

  • 相关阅读:
    机器学习之路--Python
    机器学习之路--Pandas
    机器学习之路--seaborn
    机器学习之路--Matplotlib
    囫囵吞枣——SVG
    囫囵吞枣——XML
    囫囵吞枣——Jquery 笔记
    囫囵吞枣——JavaScript
    囫囵吞枣——CSS3
    囫囵吞枣——CSS笔记
  • 原文地址:https://www.cnblogs.com/djcsch2001/p/2035738.html
Copyright © 2011-2022 走看看