大佬们 [@emoji=XXXX]字符转unicode 怎么转啊

顾凌

emoji的表情格式[@emoji=XXXX]，怎么批量转换到unicode编码\uxxxx 显示出来啊

用下面的代码实现了，大佬们有没有更优的方法

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_转换按钮_被单击

变量名	类 型	静态	数组	备 注
原始文本	文本型
处理后文本	文本型
起始位置	整数型
结束位置	整数型
十六进制字符串	文本型
代码点	整数型
循环计数	整数型
最大循环	整数型
当前位置	整数型

原始文本 ＝ 编辑框1.内容
处理后文本 ＝ 原始文本
最大循环 ＝ 1000  ' 防止死循环
循环计数 ＝ 0
' 查找第一个标签，易语言寻找文本返回1-based位置
起始位置 ＝ 寻找文本 (处理后文本, “[@emoji=”, , 假)
循环判断首 ()
循环计数 ＝ 循环计数 ＋ 1
如果真 (循环计数 ＞ 最大循环)
信息框 (“处理达到最大次数，可能存在异常格式”, 0, “提示”, )
跳出循环 ()

如果真 (起始位置 ＝ 0)  ' 未找到标签
跳出循环 ()

' 记录当前位置用于异常检测
当前位置 ＝ 起始位置
' 提取十六进制部分，[@emoji=长度为8个字符
起始位置 ＝ 起始位置 ＋ 8  ' 移动到十六进制部分开始处
结束位置 ＝ 寻找文本 (处理后文本, “]”, 起始位置, 假)
如果真 (结束位置 ＝ 0)  ' 未找到闭合符
跳出循环 ()

' 提取十六进制字符串并检查有效性
十六进制字符串 ＝ 取文本中间 (处理后文本, 起始位置, 结束位置 － 起始位置)
如果真 (取文本长度 (十六进制字符串) ＝ 0)  ' 空标签处理
' 跳过空标签，从结束位置继续查找
起始位置 ＝ 寻找文本 (处理后文本, “[@emoji=”, 结束位置, 假)
跳出循环 ()

' 检查是否为有效的十六进制字符
如果真 (是否为十六进制字符串 (十六进制字符串) ＝ 假)
' 跳过无效标签
起始位置 ＝ 寻找文本 (处理后文本, “[@emoji=”, 结束位置, 假)
跳出循环 ()

' 转换为代码点
代码点 ＝ 十六到十 (十六进制字符串)
' 过滤掉0值代码点（避免\u0000）
如果真 (代码点 ＝ 0)
起始位置 ＝ 寻找文本 (处理后文本, “[@emoji=”, 结束位置, 假)
跳出循环 ()

' 替换标签为Unicode转义序列
处理后文本 ＝ 取文本左边 (处理后文本, 当前位置 － 1) ＋ 代码点到转义 (代码点) ＋ 取文本右边 (处理后文本, 取文本长度 (处理后文本) － 结束位置)
' 查找下一个标签
起始位置 ＝ 寻找文本 (处理后文本, “[@emoji=”, , 假)
' 防止重复处理同一位置导致死循环
如果真 (起始位置 ＝ 当前位置)
跳出循环 ()

循环判断尾 (起始位置 ≠ 0)
编辑框2.内容 ＝ 处理后文本

子程序名	返回值类型	公开	备 注
十六到十	整数型
参数名	类 型	参考	可空	数组	备 注
十六进制文本	文本型

变量名	类 型	静态	数组	备 注
结果	整数型
i	整数型
字符	文本型
数值	整数型

结果 ＝ 0
计次循环首 (取文本长度 (十六进制文本), i)
字符 ＝ 取文本中间 (十六进制文本, i, 1)
字符 ＝ 到大写 (字符)
判断 (字符 ＝ “A”)
数值 ＝ 10
判断 (字符 ＝ “B”)
数值 ＝ 11
判断 (字符 ＝ “C”)
数值 ＝ 12
判断 (字符 ＝ “D”)
数值 ＝ 13
判断 (字符 ＝ “E”)
数值 ＝ 14
判断 (字符 ＝ “F”)
数值 ＝ 15
数值 ＝ 到数值 (字符)
结果 ＝ 结果 × 16 ＋ 数值
计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
代码点到转义	文本型
参数名	类 型	参考	可空	数组	备 注
代码点	整数型

变量名	类 型	静态	数组	备 注
转义文本	文本型
高代理项	整数型
低代理项	整数型

如果真 (代码点 ＝ 0)
返回 (“”)  ' 双重保险，过滤掉空字符

如果 (代码点 ≤ 65535)  ' 基本多文种平面 (BMP)
' 格式化为\uXXXX
转义文本 ＝ “\u” ＋ 补零 (取十六进制文本 (代码点), 4)
代码点 ＝ 代码点 － 65536  ' 减去0x10000
高代理项 ＝ 55296 ＋ 位与 (右移 (代码点, 10), 1023)  ' 0xD800 + 高10位
低代理项 ＝ 56320 ＋ 位与 (代码点, 1023)  ' 0xDC00 + 低10位
' 格式化为\uXXXX\uXXXX
转义文本 ＝ “\u” ＋ 补零 (取十六进制文本 (高代理项), 4) ＋ “\u” ＋ 补零 (取十六进制文本 (低代理项), 4)
返回 (转义文本)

子程序名	返回值类型	公开	备 注
补零	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
目标长度	整数型

变量名	类 型	静态	数组	备 注
补充	整数型

补充 ＝ 目标长度 － 取文本长度 (文本)
如果 (补充 ＞ 0)
返回 (取重复文本 (补充, “0”) ＋ 文本)
返回 (文本)

子程序名	返回值类型	公开	备 注
是否为十六进制字符串	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
i	整数型
字符	文本型

计次循环首 (取文本长度 (文本), i)
字符 ＝ 取文本中间 (文本, i, 1)
字符 ＝ 到大写 (字符)
如果真 (是否在数组中 (字符, { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F” }) ＝ 假)
返回 (假)

计次循环尾 ()
返回 (真)

子程序名	返回值类型	公开	备 注
是否在数组中	逻辑型
参数名	类 型	参考	可空	数组	备 注
查找值	文本型
数组	文本型

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (取数组成员数 (数组), i)
如果真 (数组 [i] ＝ 查找值)
返回 (真)

计次循环尾 ()
返回 (假)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

_转换按钮_被单击 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _转换按钮_被单击<br /> .局部变量 原始文本, 文本型<br /> .局部变量 处理后文本, 文本型<br /> .局部变量 起始位置, 整数型<br /> .局部变量 结束位置, 整数型<br /> .局部变量 十六进制字符串, 文本型<br /> .局部变量 代码点, 整数型<br /> .局部变量 循环计数, 整数型<br /> .局部变量 最大循环, 整数型<br /> .局部变量 当前位置, 整数型<br /> <br /> 原始文本 ＝ 编辑框1.内容<br /> 处理后文本 ＝ 原始文本<br /> 最大循环 ＝ 1000  ' 防止死循环<br /> 循环计数 ＝ 0<br /> <br /> ' 查找第一个标签，易语言寻找文本返回1-based位置<br /> 起始位置 ＝ 寻找文本 (处理后文本, “[@emoji=”, , 假)<br /> <br /> .循环判断首 ()<br />     循环计数 ＝ 循环计数 ＋ 1<br />     .如果真 (循环计数 ＞ 最大循环)<br />         信息框 (“处理达到最大次数，可能存在异常格式”, 0, “提示”, )<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .如果真 (起始位置 ＝ 0)  ' 未找到标签<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     ' 记录当前位置用于异常检测<br />     当前位置 ＝ 起始位置<br /> <br />     ' 提取十六进制部分，[@emoji=长度为8个字符<br />     起始位置 ＝ 起始位置 ＋ 8  ' 移动到十六进制部分开始处<br />     结束位置 ＝ 寻找文本 (处理后文本, “]”, 起始位置, 假)<br />     .如果真 (结束位置 ＝ 0)  ' 未找到闭合符<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     ' 提取十六进制字符串并检查有效性<br />     十六进制字符串 ＝ 取文本中间 (处理后文本, 起始位置, 结束位置 － 起始位置)<br />     .如果真 (取文本长度 (十六进制字符串) ＝ 0)  ' 空标签处理<br />         ' 跳过空标签，从结束位置继续查找<br />         起始位置 ＝ 寻找文本 (处理后文本, “[@emoji=”, 结束位置, 假)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     ' 检查是否为有效的十六进制字符<br />     .如果真 (是否为十六进制字符串 (十六进制字符串) ＝ 假)<br />         ' 跳过无效标签<br />         起始位置 ＝ 寻找文本 (处理后文本, “[@emoji=”, 结束位置, 假)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     ' 转换为代码点<br />     代码点 ＝ 十六到十 (十六进制字符串)<br /> <br />     ' 过滤掉0值代码点（避免\u0000）<br />     .如果真 (代码点 ＝ 0)<br />         起始位置 ＝ 寻找文本 (处理后文本, “[@emoji=”, 结束位置, 假)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     ' 替换标签为Unicode转义序列<br />     处理后文本 ＝ 取文本左边 (处理后文本, 当前位置 － 1) ＋ 代码点到转义 (代码点) ＋ 取文本右边 (处理后文本, 取文本长度 (处理后文本) － 结束位置)<br /> <br />     ' 查找下一个标签<br />     起始位置 ＝ 寻找文本 (处理后文本, “[@emoji=”, , 假)<br /> <br />     ' 防止重复处理同一位置导致死循环<br />     .如果真 (起始位置 ＝ 当前位置)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .循环判断尾 (起始位置 ≠ 0)<br /> <br /> 编辑框2.内容 ＝ 处理后文本<br /> <br /> .子程序 十六到十, 整数型<br /> .参数 十六进制文本, 文本型<br /> .局部变量 结果, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 字符, 文本型<br /> .局部变量 数值, 整数型<br /> <br /> 结果 ＝ 0<br /> .计次循环首 (取文本长度 (十六进制文本), i)<br />     字符 ＝ 取文本中间 (十六进制文本, i, 1)<br />     字符 ＝ 到大写 (字符)<br />     .判断开始 (字符 ＝ “A”)<br />         数值 ＝ 10<br />     .判断 (字符 ＝ “B”)<br />         数值 ＝ 11<br />     .判断 (字符 ＝ “C”)<br />         数值 ＝ 12<br />     .判断 (字符 ＝ “D”)<br />         数值 ＝ 13<br />     .判断 (字符 ＝ “E”)<br />         数值 ＝ 14<br />     .判断 (字符 ＝ “F”)<br />         数值 ＝ 15<br />     .默认<br />         数值 ＝ 到数值 (字符)<br />     .判断结束<br />     结果 ＝ 结果 × 16 ＋ 数值<br /> .计次循环尾 ()<br /> 返回 (结果)<br /> <br /> .子程序 代码点到转义, 文本型<br /> .参数 代码点, 整数型<br /> .局部变量 转义文本, 文本型<br /> .局部变量 高代理项, 整数型<br /> .局部变量 低代理项, 整数型<br /> <br /> .如果真 (代码点 ＝ 0)<br />     返回 (“”)  ' 双重保险，过滤掉空字符<br /> .如果真结束<br /> <br /> .如果 (代码点 ≤ 65535)  ' 基本多文种平面 (BMP)<br />     ' 格式化为\uXXXX<br />     转义文本 ＝ “\u” ＋ 补零 (取十六进制文本 (代码点), 4)<br /> .否则<br />     代码点 ＝ 代码点 － 65536  ' 减去0x10000<br />     高代理项 ＝ 55296 ＋ 位与 (右移 (代码点, 10), 1023)  ' 0xD800 + 高10位<br />     低代理项 ＝ 56320 ＋ 位与 (代码点, 1023)  ' 0xDC00 + 低10位<br />     ' 格式化为\uXXXX\uXXXX<br />     转义文本 ＝ “\u” ＋ 补零 (取十六进制文本 (高代理项), 4) ＋ “\u” ＋ 补零 (取十六进制文本 (低代理项), 4)<br /> .如果结束<br /> 返回 (转义文本)<br /> <br /> .子程序 补零, 文本型<br /> .参数 文本, 文本型<br /> .参数 目标长度, 整数型<br /> .局部变量 补充, 整数型<br /> <br /> 补充 ＝ 目标长度 － 取文本长度 (文本)<br /> .如果 (补充 ＞ 0)<br />     返回 (取重复文本 (补充, “0”) ＋ 文本)<br /> .否则<br />     返回 (文本)<br /> .如果结束<br /> <br /> <br /> .子程序 是否为十六进制字符串, 逻辑型<br /> .参数 文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 字符, 文本型<br /> <br /> .计次循环首 (取文本长度 (文本), i)<br />     字符 ＝ 取文本中间 (文本, i, 1)<br />     字符 ＝ 到大写 (字符)<br />     .如果真 (是否在数组中 (字符, { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F” }) ＝ 假)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (真)<br /> <br /> .子程序 是否在数组中, 逻辑型<br /> .参数 查找值, 文本型<br /> .参数 数组, 文本型, 数组<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果真 (数组 <i> ＝ 查找值)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> _转换按钮_被单击 ()