USC2编码USC2解码 纯api实现 纯源码 支持中英

斗战胜猴

端午安康
纯api实现 纯源码  支持中英
USC2编码 USC2解码 USC2编码W USC2解码W

bianyuan456

已经顶贴，感谢您对论坛的支持！

renhe2018

前来支持 一下

斗战胜猴

  

子程序名	返回值类型	公开	备 注
USC2编码	文本型		将文本转换成 \uxxxx 格式
参数名	类 型	参考	可空	数组	备 注
string	文本型

变量名	类 型	静态	数组	备 注
wstr	字节集
buff	文本型
pBuff	整数型
len	整数型
i	整数型

wstr ＝ 编码_Ansi到Unicode (string)
len ＝ lstrlenW_字节集 (wstr)
buff ＝ 取空白文本 (len × 6)
pBuff ＝ PtrStr (buff)
变量循环首 (0, len － 1, 1, i)
wsprintfA (pBuff ＋ i × 6, “\u%.2x%.2x”, wstr [i × 2 ＋ 2], wstr [i × 2 ＋ 1])
变量循环尾 ()
返回 (buff)

子程序名	返回值类型	公开	备 注
USC2编码W	字节集		将文本转换成 \uxxxx 格式
参数名	类 型	参考	可空	数组	备 注
string	字节集				编码_Ansi到Unicode

变量名	类 型	静态	数组	备 注
buff	字节集
pBuff	整数型
len	整数型
i	整数型
format	字节集

len ＝ lstrlenW_字节集 (string)
buff ＝ 取空白字节集 (len × 2 × 6 ＋ 2)
pBuff ＝ PtrBin (buff)
format ＝ { 92, 0, 117, 0, 37, 0, 46, 0, 50, 0, 120, 0, 37, 0, 46, 0, 50, 0, 120, 0, 0, 0 }  ' \u%.2x%.2x
变量循环首 (0, len － 1, 1, i)
wsprintfW (pBuff ＋ i × 12, format, string [i × 2 ＋ 2], string [i × 2 ＋ 1])
变量循环尾 ()
返回 (buff)

子程序名	返回值类型	公开	备 注
USC2解码	文本型		将 \uxxxx 文本解码
参数名	类 型	参考	可空	数组	备 注
usc2Str	文本型

变量名	类 型	静态	数组	备 注
pos	整数型
Ox	字节集
buffer	字节集
pBuff	整数型
char1	整数型
char2	整数型
ret	字节集
pRet	整数型
Len	整数型
位置	整数型

ret ＝ 编码_Ansi到Unicode (usc2Str)
pRet ＝ PtrBin (ret)
pos ＝ StrStrW_bin2 (pRet, { 92, 0, 0, 0 })  ' \u
如果真 (pos ＝ 0)
返回 (usc2Str)

buffer ＝ 取空白字节集 (10)
pBuff ＝ PtrBin (buffer)
Ox ＝ { 48, 0, 120, 0 }  ' 0x
RtlMoveMemory_整数型 (pBuff, PtrBin (Ox), 4)
Len ＝ lstrlenW (pRet) × 2
判断循环首 (pos ≠ 0)
RtlMoveMemory_整数型 (pBuff ＋ 4, pos ＋ 8, 4)
StrToIntEx_ptr (pBuff, 1, char1)
RtlMoveMemory_整数型 (pBuff ＋ 4, pos ＋ 4, 4)
StrToIntEx_ptr (pBuff, 1, char2)
如果 (char1 ＝ 0 且 char2 ＝ 0)
RtlMoveMemory_整数型 (pos, pos ＋ 12, pRet ＋ Len － pos － 12)
RtlZeroMemory (pRet ＋ Len － 12, 12)
Len ＝ Len － 12
pos ＝ pos － 2
RtlMoveMemory_整数型 (pos, PtrInt (char1), 1)
RtlMoveMemory_整数型 (pos ＋ 1, PtrInt (char2), 1)
RtlMoveMemory_整数型 (pos ＋ 2, pos ＋ 12, pRet ＋ Len － pos － 12)
RtlZeroMemory (pRet ＋ Len － 12 ＋ 2, 12 － 2)
Len ＝ Len － 10

pos ＝ StrStrW_bin2 (pos ＋ 2, { 92, 0, 0, 0 })  ' \
判断循环尾 ()
返回 (编码_Unicode到Ansi (ret))

子程序名	返回值类型	公开	备 注
USC2解码W	字节集		将 \uxxxx 文本解码
参数名	类 型	参考	可空	数组	备 注
usc2Str	字节集				编码_Ansi到Unicode

变量名	类 型	静态	数组	备 注
pos	整数型
Ox	字节集
buffer	字节集
pBuff	整数型
char1	整数型
char2	整数型
ret	字节集
pRet	整数型
Len	整数型
位置	整数型

ret ＝ usc2Str
pRet ＝ PtrBin (ret)
pos ＝ StrStrW_bin2 (pRet, { 92, 0, 0, 0 })  ' \u
如果真 (pos ＝ 0)
返回 (usc2Str)
buffer ＝ 取空白字节集 (10)
pBuff ＝ PtrBin (buffer)
Ox ＝ { 48, 0, 120, 0 }  ' 0x
RtlMoveMemory_整数型 (pBuff, PtrBin (Ox), 4)
Len ＝ lstrlenW (pRet) × 2
判断循环首 (pos ≠ 0)
RtlMoveMemory_整数型 (pBuff ＋ 4, pos ＋ 8, 4)
StrToIntEx_ptr (pBuff, 1, char1)
RtlMoveMemory_整数型 (pBuff ＋ 4, pos ＋ 4, 4)
StrToIntEx_ptr (pBuff, 1, char2)
如果 (char1 ＝ 0 且 char2 ＝ 0)
RtlMoveMemory_整数型 (pos, pos ＋ 12, pRet ＋ Len － pos － 12)
RtlZeroMemory (pRet ＋ Len － 12, 12)
Len ＝ Len － 12
pos ＝ pos － 2
RtlMoveMemory_整数型 (pos, PtrInt (char1), 1)
RtlMoveMemory_整数型 (pos ＋ 1, PtrInt (char2), 1)
RtlMoveMemory_整数型 (pos ＋ 2, pos ＋ 12, pRet ＋ Len － pos － 12)
RtlZeroMemory (pRet ＋ Len － 12 ＋ 2, 12 － 2)
Len ＝ Len － 10

pos ＝ StrStrW_bin2 (pos ＋ 2, { 92, 0, 0, 0 })  ' \
判断循环尾 ()
返回 (ret)

.版本 2<br /> <br /> .子程序 USC2编码, 文本型, 公开, 将文本转换成 \uxxxx 格式<br /> .参数 string, 文本型<br /> .局部变量 wstr, 字节集<br /> .局部变量 buff, 文本型<br /> .局部变量 pBuff, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> <br /> wstr ＝ 编码_Ansi到Unicode (string)<br /> len ＝ lstrlenW_字节集 (wstr)<br /> buff ＝ 取空白文本 (len × 6)<br /> pBuff ＝ PtrStr (buff)<br /> .变量循环首 (0, len － 1, 1, i)<br />     wsprintfA (pBuff ＋ i × 6, “\u%.2x%.2x”, wstr [i × 2 ＋ 2], wstr [i × 2 ＋ 1])<br /> .变量循环尾 ()<br /> 返回 (buff)<br /> <br /> <br /> .子程序 USC2编码W, 字节集, 公开, 将文本转换成 \uxxxx 格式<br /> .参数 string, 字节集, , 编码_Ansi到Unicode<br /> .局部变量 buff, 字节集<br /> .局部变量 pBuff, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 format, 字节集<br /> <br /> len ＝ lstrlenW_字节集 (string)<br /> buff ＝ 取空白字节集 (len × 2 × 6 ＋ 2)<br /> pBuff ＝ PtrBin (buff)<br /> format ＝ { 92, 0, 117, 0, 37, 0, 46, 0, 50, 0, 120, 0, 37, 0, 46, 0, 50, 0, 120, 0, 0, 0 }  ' \u%.2x%.2x<br /> .变量循环首 (0, len － 1, 1, i)<br />     wsprintfW (pBuff ＋ i × 12, format, string [i × 2 ＋ 2], string [i × 2 ＋ 1])<br /> .变量循环尾 ()<br /> 返回 (buff)<br /> <br /> .子程序 USC2解码, 文本型, 公开, 将 \uxxxx 文本解码<br /> .参数 usc2Str, 文本型<br /> .局部变量 pos, 整数型<br /> .局部变量 Ox, 字节集<br /> .局部变量 buffer, 字节集<br /> .局部变量 pBuff, 整数型<br /> .局部变量 char1, 整数型<br /> .局部变量 char2, 整数型<br /> .局部变量 ret, 字节集<br /> .局部变量 pRet, 整数型<br /> .局部变量 Len, 整数型<br /> .局部变量 位置, 整数型<br /> <br /> ret ＝ 编码_Ansi到Unicode (usc2Str)<br /> pRet ＝ PtrBin (ret)<br /> pos ＝ StrStrW_bin2 (pRet, { 92, 0, 0, 0 })  ' \u<br /> .如果真 (pos ＝ 0)<br />     返回 (usc2Str)<br /> .如果真结束<br /> <br /> <br /> buffer ＝ 取空白字节集 (10)<br /> pBuff ＝ PtrBin (buffer)<br /> Ox ＝ { 48, 0, 120, 0 }  ' 0x<br /> RtlMoveMemory_整数型 (pBuff, PtrBin (Ox), 4)<br /> Len ＝ lstrlenW (pRet) × 2<br /> .判断循环首 (pos ≠ 0)<br />     RtlMoveMemory_整数型 (pBuff ＋ 4, pos ＋ 8, 4)<br />     StrToIntEx_ptr (pBuff, 1, char1)<br />     RtlMoveMemory_整数型 (pBuff ＋ 4, pos ＋ 4, 4)<br />     StrToIntEx_ptr (pBuff, 1, char2)<br /> <br />     .如果 (char1 ＝ 0 且 char2 ＝ 0)<br />         RtlMoveMemory_整数型 (pos, pos ＋ 12, pRet ＋ Len － pos － 12)<br />         RtlZeroMemory (pRet ＋ Len － 12, 12)<br />         Len ＝ Len － 12<br />         pos ＝ pos － 2<br />     .否则<br />         RtlMoveMemory_整数型 (pos, PtrInt (char1), 1)<br />         RtlMoveMemory_整数型 (pos ＋ 1, PtrInt (char2), 1)<br />         RtlMoveMemory_整数型 (pos ＋ 2, pos ＋ 12, pRet ＋ Len － pos － 12)<br />         RtlZeroMemory (pRet ＋ Len － 12 ＋ 2, 12 － 2)<br />         Len ＝ Len － 10<br />     .如果结束<br /> <br />     pos ＝ StrStrW_bin2 (pos ＋ 2, { 92, 0, 0, 0 })  ' \<br /> .判断循环尾 ()<br /> 返回 (编码_Unicode到Ansi (ret))<br /> <br /> <br /> .子程序 USC2解码W, 字节集, 公开, 将 \uxxxx 文本解码<br /> .参数 usc2Str, 字节集, , 编码_Ansi到Unicode<br /> .局部变量 pos, 整数型<br /> .局部变量 Ox, 字节集<br /> .局部变量 buffer, 字节集<br /> .局部变量 pBuff, 整数型<br /> .局部变量 char1, 整数型<br /> .局部变量 char2, 整数型<br /> .局部变量 ret, 字节集<br /> .局部变量 pRet, 整数型<br /> .局部变量 Len, 整数型<br /> .局部变量 位置, 整数型<br /> <br /> ret ＝ usc2Str<br /> pRet ＝ PtrBin (ret)<br /> pos ＝ StrStrW_bin2 (pRet, { 92, 0, 0, 0 })  ' \u<br /> .如果真 (pos ＝ 0)<br />     返回 (usc2Str)<br /> .如果真结束<br /> buffer ＝ 取空白字节集 (10)<br /> pBuff ＝ PtrBin (buffer)<br /> Ox ＝ { 48, 0, 120, 0 }  ' 0x<br /> RtlMoveMemory_整数型 (pBuff, PtrBin (Ox), 4)<br /> Len ＝ lstrlenW (pRet) × 2<br /> .判断循环首 (pos ≠ 0)<br />     RtlMoveMemory_整数型 (pBuff ＋ 4, pos ＋ 8, 4)<br />     StrToIntEx_ptr (pBuff, 1, char1)<br />     RtlMoveMemory_整数型 (pBuff ＋ 4, pos ＋ 4, 4)<br />     StrToIntEx_ptr (pBuff, 1, char2)<br /> <br />     .如果 (char1 ＝ 0 且 char2 ＝ 0)<br />         RtlMoveMemory_整数型 (pos, pos ＋ 12, pRet ＋ Len － pos － 12)<br />         RtlZeroMemory (pRet ＋ Len － 12, 12)<br />         Len ＝ Len － 12<br />         pos ＝ pos － 2<br />     .否则<br />         RtlMoveMemory_整数型 (pos, PtrInt (char1), 1)<br />         RtlMoveMemory_整数型 (pos ＋ 1, PtrInt (char2), 1)<br />         RtlMoveMemory_整数型 (pos ＋ 2, pos ＋ 12, pRet ＋ Len － pos － 12)<br />         RtlZeroMemory (pRet ＋ Len － 12 ＋ 2, 12 － 2)<br />         Len ＝ Len － 10<br />     .如果结束<br /> <br />     pos ＝ StrStrW_bin2 (pos ＋ 2, { 92, 0, 0, 0 })  ' \<br /> .判断循环尾 ()<br /> 返回 (ret)

斗战胜猴

渁煑渔 发表于 2025-6-1 17:20
我提供是特殊符号，看ucs码是不一样的

收到了，那个240替换存在bug

渁煑渔

斗战胜猴 发表于 2025-6-1 17:15
调试输出 (编码_ANSI到UCS2 (“>”))
调试输出 (编码_UCS2到ANSI (“%uf03e”))

我提供是特殊符号，看ucs码是不一样的

斗战胜猴

渁煑渔 发表于 2025-6-1 16:49
%uf087%uf088%uf088%uf088%uf088%uf088
帮忙 看下 这个不能正常转换，有办法吗

调试输出 (编码_ANSI到UCS2 (“>”))
调试输出 (编码_UCS2到ANSI (“\uf03e”))

调试输出 (USC2编码 (“>”))
调试输出 (USC2解码 (“\uf03e”))

开始运行被调试程序
* “\uf03e”
* “>”
* “\uf03e”
* “>”
被调试易程序运行完毕

渁煑渔

\uf087\uf088\uf088\uf088\uf088\uf088
帮忙 看下 这个不能正常转换，有办法吗



是这种箭头

一指温柔

感谢分享，很给力！~

383586982

API没用。没网络还不行呢？