520狸狸狸先森 520狸狸狸先森
我的一生那么长,等你十年又无妨。
关注数: 23 粉丝数: 0 发帖数: 3,002 关注贴吧数: 138
我用易语言汉字转换成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", , 将多媒体字符串映像为通配字符串 .参数 代码页, 整数型 .参数 标志, 整数型 .参数 双字节文本, 文本型 .参数 双字节文本长度, 整数型 .参数 宽字符文本, 字节集 .参数 宽字符文本长度, 整数型
首页 1 2 3 下一页