如何把汉字转换成十六进制，请哪位大侠指点一二！
如何把汉字转换成十六进制，请哪位大侠指点一二！非常感谢！
2013-12-11 10:06
程序代码：Clear
lcString = '中华人民共和国'
*!* GB2312
For i = 1 To Lenc(lcString)
?Substrc(lcString, i, 1), Strconv(Substrc(lcString, i, 1), 15)
Next
?
*!* Unicode(cjk)
For i = 1 To Lenc(lcString)
m.Hex = Strconv(Strconv(Substrc(lcString, i, 1), 5), 15)
? Substrc(lcString, i, 1), Right(m.Hex, 2) + Left(m.Hex, 2)
Next
2013-12-11 11:18
2013-12-11 11:20
程序代码：
GB2312简体中文编码表.rarCLEAR
?DECTOHEX([中华人民共和国])
*--------------------------------------------------------------------------------
*十进制转十六进制函数
*--------------------------------------------------------------------------------
FUNCTION DECTOHEX
PARAMETERS CSTR
LOCAL lcStr
lcStr=[]
FOR lnI=1 TO LENC(CSTR)
lcStr=SUBSTR(TRANSFORM(ASC(SUBSTRC(CSTR,lnI,1)),[@0]),7,4)+lcStr
ENDFOR
RETURN lcStr
2013-12-11 11:28
2013-12-12 06:36