汉字10进制与汉字2进制互转

汉字十进制转换为二进制 N10=ASC('编') MESSAGEBOX('编') C02='' Do While N10>0 n=Mod(N10,2) N10=int(N10/2) C02=Str(n,1)+C02 enddo MESSAGEBOX(C02) 汉字二进制转换为十进制 N10=0 FOR lnI=1 TO LEN(c02) N10=N10+VAL(SUBSTR(C02,lnI,1))*2^(LEN(C02)-lnI...
编码转换 | 2016-10-10 12:35 | 3022次阅读 | 0评

16进制转换为10进制的格式

?CHR(INT(VAL([0X99])))
编码转换 | 2016-10-10 12:32 | 2149次阅读 | 0评

十进制转换为十六进制

?DECTOHEX(31) ?DECTOHEX(ASC([红])) ?DECTOHEX(ASC(SUBS([红],1,1))) + DECTOHEX(ASC(SUBS([红],2,1))) *-------------------------------------------------------------------------------- *十进制转十六进制函数 *----------------------------------------------------------------...
编码转换 | 2016-10-10 12:30 | 2054次阅读 | 0评

Unicode编码转汉字

示例 如:\u6cb3\u5357\u7701 Clear ? Strconv(Chr(0x6cb3%256) + Chr(Int(0x6cb3/256)), 6) + ; Strconv(Chr(0x5357%256) + Chr(Int(0x5357/256)), 6) + ; Strconv(Chr(0x7701%256) + Chr(Int(0x7701/256)), 6) 结果:河南省
编码转换 | 2016-10-10 12:28 | 1882次阅读 | 0评
浏览160986次