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

.版本 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", , 将多媒体字符串映像为通配字符串

.参数 代码页, 整数型

.参数 标志, 整数型

.参数 双字节文本, 文本型

.参数 双字节文本长度, 整数型

.参数 宽字符文本, 字节集

.参数 宽字符文本长度, 整数型