完美者（wmzhe.com）网站以软件下载为基础，改版后的网站对功能性板块进行扩充，以期能够解决用户在软件使用过程中遇见的所有问题。网站新增了“软件百科”、“锦囊妙技”等频道，可以更好地对用户的软件使用全周期进行更加专业地服务。
Unicode字符编码转换器是为了解决传统的字符编码方案的局限而产生的一款易于使用的Unicode转换程序， 它帮助您在各种字符编码(ansi/Unicode/非Unicode)之间进行批量转换， 它支持Unicode(UTF-8/UTF-16/UTF-7/UTF-32)， 中文简体GBK， 中文繁体BIG5， 日文SHIFT-JIS， 日文EUC-JP， 韩文euc-kr等字符编码， 它可以几分钟内同时批量处理几千个文档。
"锦囊妙技"栏目是聚合全网软件使用的技巧或者软件使用过程中各种问题的解答类文章，栏目设立伊始，小编欢迎各路软件大神朋友们踊跃投稿，在完美者平台分享大家的独门技巧。
本站文章素材来源于网络，大部分文章作者名称佚失，为了更利于用户阅读和使用，根据需要进行了重新排版和部分改编，本站收录文章只是以帮助用户解决实际问题为目的，如有版权问题请联系小编修改或删除，谢谢合作。
软件大小：3.30 MB
Unicode编码，是一种文件储存时使用的储存编码，由0x000000至0xFFFFFFF的十六进制数字序列组成，能够表示世界上大多数的语言文字。 Unicode转换器，是用于将文字和Unicode代码互相转换的工具，能够很快地将两者相互转换，便于研究文件编码方式。 一般的用户可能不需要此类工具，但是在访问某些Unicode网站时可能需要进行代码转换，此时可以进行设置。在浏览器的菜单中点击“查看”-“编码设置”，选中“UTF-8（Unicode）”项目即可将当前网页以Unicode编码方式呈现。
1、python2与python3稍微有点区别 2、python2中默认的字符编码格式都是unicode,在字符串前加'u'，表示unicode 编码 3、将unicode转换成中文，只需要用deconde解码就可以了 >>> u='欢迎' >>> e=u.encode() >>> e b'\xe6\xac\xa2\xe8\xbf\x8e' >>> e.decode()#python3中默认就是utf-8编码 '欢迎' >>> e.decode('gbk')#如果解码为gbk就是乱码 '娆四繋' python2编码环境比较复杂，在这里不做详细说明
展开全部 VB编译的程序，本身对字符串的保存、处理都是用的Unicode编码，无需转换即可得到，只不过，Unicode是双字节编码，在内存中按照高位在前，低位在后的格式保存，因此显示时需要调一下位置，代码如下： Private Sub Command1_Click()Dim s As String, a() As Bytes = "123,测试,test"a = sText1 = ""For i = 0 To UBound(a) Step 2Text1 = Text1 & Format(Hex(a(i + 1)), "00") & Format(Hex(a(i)), "00") & " "NextEnd Sub
asp中unicode字符串转换为base64编码 <% sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" sBASE_64_CHARACTERS = strUnicode2Ansi(sBASE_64_CHARACTERS) Function strUnicodeLen(asContents) '计算unicode字符串的Ansi编码的长度 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 Function strUnicode2Ansi(asContents) '将Unicode编码的字符串，转换成Ansi编码的字符串 strUnicode2Ansi="" len1=len(asContents) for i=1 to len1 varchar=mid(asContents,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 Function strAnsi2Unicode(asContents) '将Ansi编码的字符串，转换成Unicode编码的字符串 strAnsi2Unicode = "" len1=lenb(asContents) if len1=0 then exit function for i=1 to len1 varchar=midb(asContents,i,1) varasc=ascb(varchar) if varasc > 127 then strAnsi2Unicode = strAnsi2Unicode & chr(ascw(midb(asContents,i+1,1) & varchar)) i=i+1 else strAnsi2Unicode = strAnsi2Unicode & chr(varasc) end if next End function Function Base64encode(asContents) '将Ansi编码的字符串进行Base64编码 'asContents应当是ANSI编码的字符串（二进制的字符串也可以） Dim lnPosition Dim lsResult Dim Char1 Dim Char2 Dim Char3 Dim Char4 Dim Byte1 Dim Byte2 Dim Byte3 Dim SaveBits1 Dim SaveBits2 Dim lsGroupBinary Dim lsGroup64 Dim m4,len1,len2 len1=Lenb(asContents) if len1<1 then Base64encode="" exit Function end if m3=Len1 Mod 3 If M3 > 0 Then asContents = asContents & String(3-M3, chrb(0)) '补足位数是为了便于计算 IF m3 > 0 THEN len1=len1+(3-m3) len2=len1-3 else len2=len1 end if lsResult = "" For lnPosition = 1 To len2 Step 3 lsGroup64 = "" lsGroupBinary = Midb(asContents, lnPosition, 3) Byte1 = Ascb(Midb(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3 Byte2 = Ascb(Midb(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15 Byte3 = Ascb(Midb(lsGroupBinary, 3, 1)) Char1 = Midb(sBASE_64_CHARACTERS, ((Byte1 And 252) \ 4) + 1, 1) Char2 = Midb(sBASE_64_CHARACTERS, (((Byte2 And 240) \ 16) Or (SaveBits1 * 16) And &HFF) + 1, 1) Char3 = Midb(sBASE_64_CHARACTERS, (((Byte3 And 192) \ 64) Or (SaveBits2 * 4) And &HFF) + 1, 1) Char4 = Midb(sBASE_64_CHARACTERS, (Byte3 And 63) + 1, 1) lsGroup64 = Char1 & Char2 & Char3 & Char4 lsResult = lsResult & lsGroup64 Next '处理最后剩余的几个字符 if M3 > 0 then lsGroup64 = "" lsGroupBinary = Midb(asContents, len2+1, 3) Byte1 = Ascb(Midb(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3 Byte2 = Ascb(Midb(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15 Byte3 = Ascb(Midb(lsGroupBinary, 3, 1)) Char1 = Midb(sBASE_64_CHARACTERS, ((Byte1 And 252) \ 4) + 1, 1) Char2 = Midb(sBASE_64_CHARACTERS, (((Byte2 And 240) \ 16) Or (SaveBits1 * 16) And &HFF) + 1, 1) Char3 = Midb(sBASE_64_CHARACTERS, (((Byte3 And 192) \ 64) Or (SaveBits2 * 4) And &HFF) + 1, 1) if M3=1 then lsGroup64 = Char1 & Char2 & ChrB(61) & ChrB(61) '用=号补足位数 else lsGroup64 = Char1 & Char2 & Char3 & ChrB(61) '用=号补足位数 end if lsResult = lsResult & lsGroup64 end if Base64encode = lsResult End Function Function Base64decode(asContents) '将Base64编码字符串转换成Ansi编码的字符串 'asContents应当也是ANSI编码的字符串（二进制的字符串也可以） Dim lsResult Dim lnPosition Dim lsGroup64, lsGroupBinary Dim Char1, Char2, Char3, Char4 Dim Byte1, Byte2, Byte3 Dim M4,len1,len2 len1= Lenb(asContents) M4 = len1 Mod 4 if len1 < 1 or M4 > 0 then '字符串长度应当是4的倍数 Base64decode = "" exit Function end if '判断最后一位是不是 = 号 '判断倒数第二位是不是 = 号 '这里m4表示最后剩余的需要单独处理的字符个数 if midb(asContents, len1, 1) = chrb(61) then m4=3 if midb(asContents, len1-1, 1) = chrb(61) then m4=2 if m4 = 0 then len2=len1 else len2=len1-4 end if For lnPosition = 1 To Len2 Step 4 lsGroupBinary = "" lsGroup64 = Midb(asContents, lnPosition, 4) Char1 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 1, 1)) - 1 Char2 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 2, 1)) - 1 Char3 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 3, 1)) - 1 Char4 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 4, 1)) - 1 Byte1 = Chrb(((Char2 And 48) \ 16) Or (Char1 * 4) And &HFF) Byte2 = lsGroupBinary & Chrb(((Char3 And 60) \ 4) Or (Char2 * 16) And &HFF) Byte3 = Chrb((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63)) lsGroupBinary = Byte1 & Byte2 & Byte3 lsResult = lsResult & lsGroupBinary Next '处理最后剩余的几个字符 if M4 > 0 then lsGroupBinary = "" lsGroup64 = Midb(asContents, len2+1, m4) & chrB(65) 'chr(65)=A，转换成值为0 if M4=2 then '补足4位，是为了便于计算 lsGroup64 = lsGroup64 & chrB(65) end if Char1 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 1, 1)) - 1 Char2 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 2, 1)) - 1 Char3 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 3, 1)) - 1 Char4 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 4, 1)) - 1 Byte1 = Chrb(((Char2 And 48) \ 16) Or (Char1 * 4) And &HFF) Byte2 = lsGroupBinary & Chrb(((Char3 And 60) \ 4) Or (Char2 * 16) And &HFF) Byte3 = Chrb((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63)) if M4=2 then lsGroupBinary = Byte1 elseif M4=3 then lsGroupBinary = Byte1 & Byte2 end if lsResult = lsResult & lsGroupBinary end if Base64decode = lsResult End Function %>
