汉字转Unicode代码

弃坑

汉字转Unicode

.版本 2
.支持库 spec
.支持库 commobj

.子程序 _编辑框1_内容被改变

编辑框2.内容 ＝ 汉字转Unicode (编辑框1.内容)
延迟 (88)
编辑框2.内容 ＝ 汉字转Unicode (编辑框1.内容)

.子程序 Ansi到字节集, 字节集
.参数 参数_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)

.子程序 字节集到Ansi, 文本型
.参数 字节集, 字节集
.局部变量 变量, 整数型
.局部变量 临时文本, 文本型
.局部变量 长度, 整数型
.局部变量 文本, 快速文本对象
.局部变量 a, 整数型

长度 ＝ 取字节集长度 (字节集)
.计次循环首 (长度, 变量)
    临时文本 ＝ 取十六进制文本 (字节集 [变量])
    文本.添加 (“ ”)
    文本.添加 (取重复文本 (2 － 取文本长度 (临时文本), “0”))
    文本.添加 (临时文本)
    .如果真 (变量 ％ 16 ＝ 0)  ' 一行显示16字节
        文本.添加 (#换行符)
    .如果真结束
    处理事件 ()
.计次循环尾 ()
返回 (文本.取文本 (, ))

.子程序 汉字转Unicode, 文本型, 公开
.参数 汉字, 文本型
.局部变量 Unicode, 文本型

.判断开始 (汉字 ＝ “”)
    Unicode ＝ “”
.默认
    Unicode ＝ 字节集到Ansi (Ansi到字节集 (汉字))
    Unicode ＝ 子文本替换 (Unicode, “ ”, “”, , 1, 真)
    Unicode ＝ 子文本替换 (Unicode, “ 00 00”, “”, 取文本长度 (Unicode) － 6, , 真)
.判断结束
返回 (Unicode)

.子程序 __启动窗口_创建完毕



.子程序 _编辑框2_内容被改变

小炫～

网上有一堆，不需要

842454490

...........

13222157200

学习一下，谢谢

13222157200

感觉很厉害的样子