Question

易语言汉字转unicode源码，谁给我个！！！！！！！！

Answer 1

.版本 2
.支持库 commobj
.子程序 _按钮1_被单击
编辑框2.内容 ＝ 字节集到十六进制文本 (A2W (编辑框1.内容))
.子程序 A2W, 字节集
.参数 参数_Ansi文本, 文本型
.参数 参数_代码页, 整数型, 可空, 默认为：#CP_ACP = 0
.局部变量 局部_Ansi长度, 整数型
.局部变量 局部_Unicode长度, 整数型
.局部变量 ret, 字节集
局部_Ansi长度 ＝ 取文本长度 (参数_Ansi文本) ＋ 1
局部_Unicode长度 ＝ MultiByteToWideChar (参数_代码页, 0, 参数_Ansi文本, 局部_Ansi长度, ret, 0) × 2
ret ＝ 取空白字节集 (局部_Unicode长度)
.如果真 (MultiByteToWideChar (参数_代码页, 0, 参数_Ansi文本, 局部_Ansi长度, ret, 局部_Unicode长度) ＝ 0)
返回 ({ 0, 0 })
.如果真结束
返回 (ret)
.子程序 字节集到十六进制文本, 文本型
.参数 字节集, 字节集
.局部变量 变量, 整数型
.局部变量 临时文本, 文本型
.局部变量 长度, 整数型
.局部变量 文本, 快速文本对象
.局部变量 a, 整数型
长度 ＝ 取字节集长度 (字节集)
.计次循环首 (长度, 变量)
临时文本 ＝ 取十六进制文本 (字节集 [变量])
文本.添加 (“ ”)
文本.添加 (取重复文本 (2 － 取文本长度 (临时文本), “0”))
文本.添加 (临时文本)
.如果真 (变量 ％ 16 ＝ 0) ' 一行显示16字节
文本.添加 (#换行符)
.如果真结束
处理事件 ()
.计次循环尾 ()
返回 (文本.取文本 (, ))

.DLL命令 MultiByteToWideChar, 整数型, "kernel32.dll", "MultiByteToWideChar", , 将多媒体字符串映像为通配字符串
.参数 代码页, 整数型
.参数 标志, 整数型
.参数 双字节文本, 文本型
.参数 双字节文本长度, 整数型
.参数 宽字符文本, 字节集
.参数 宽字符文本长度, 整数型

Answer 2

你这个是在我爱秘籍论坛下的吧！
现在这个论坛的服务器有点问题，估计要等几个月吧！