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

编码转换 | 2016-10-10 12:35:26 | 阅读 3775 次 | 评论(0)


* 汉字十进制转换为二进制
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)
ENDFOR
MESSAGEBOX(CHR(N10))


文章评论,共0条
游客请输入验证码
浏览236314次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...