编码_Ansi到Unicode_文本型 替代写法

admin

.版本 2

.子程序 Test_A2W, 文本型
.参数 参_待转换文本, 文本型
.局部变量 b, 字节集
.局部变量 i, 整数型
.局部变量 结果, 文本型

b ＝ 文本到UTF16 (参_待转换文本)
.计次循环首 ((取字节集长度 (b) － 2) ÷ 2, i)
    结果 ＝ 结果 ＋ “&#” ＋ 到文本 (取字节集数据 (b, 2, (i － 1) × 2 ＋ 1))
.计次循环尾 ()
返回 (结果)