Unicode转文本问题

liuduan123

待解码文本：<li><a href="javascript:void(0);" item-value="&#35774;&#22791;&#26356;&#25442;&#65288;&#23485;&#24102;&#65289;">&#35774;&#22791;&#26356;&#25442;&#65288;&#23485;&#24102;&#65289;</a></li>
                                                                                <li><a href="javascript:void(0);" item-value="&#25442;&#22871;&#39184;">&#25442;&#22871;&#39184;</a></li>
                                                                                <li><a href="javascript:void(0);" item-value="&#19994;&#21153;&#26356;&#25442;&#65288;&#20114;&#32852;&#32593;&#30005;&#35270;&#65289;">&#19994;&#21153;&#26356;&#25442;&#65288;&#20114;&#32852;&#32593;&#30005;&#35270;&#65289;</a></li>
                                                                                <li><a href="javascript:void(0);" item-value="FTTR&#39044;&#38144;&#25143;&#22788;&#29702;">FTTR&#39044;&#38144;&#25143;&#22788;&#29702;</a></li>
                                                                                <li><a href="javascript:void(0);" item-value="&#35774;&#22791;&#26356;&#25442;&#65288;FTTR&#65289;">&#35774;&#22791;&#26356;&#25442;&#65288;FTTR&#65289;</a></li>




已解码文本：<li><a href="javascript:void(0);" item-value="拆机移机(宽带)">拆机移机(宽带)</a></li>
<li><a href="javascript:void(0);" item-value="移机改号">移机改号</a></li>
<li><a href="javascript:void(0);" item-value="新装移机(政企专线)">新装移机(政企专线)</a></li>
<li><a href="javascript:void(0);" item-value="FTTR上门用户故障">FTTR上门用户故障</a></li>
<li><a href="javascript:void(0);" item-value="拆机移机(FTTR)">拆机移机(FTTR)</a></li>

可以用附件，因为附件文本多希望转的快点，除了需要解码的内容其他不变

liuduan123

这是待解码附件 这是待解码附件 这是待解码附件 这是待解码附件

逍遥一仙LSG

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
a	类_HTML实体

a.解码_ANSI ( #常量1 )
调试输出 (a.取值_ANSI ())

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 a, 类_HTML实体<br /> <br /> a.解码_ANSI (#常量1)<br /> 调试输出 (a.取值_ANSI ())

真冬

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
wjm	文本型

wjm ＝ “X:\Users\SG\AppData\Local\Temp\Rar$DIa0.992\新建文本文档 (5).txt”
写到文件 (wjm ＋ “转完毕.txt”, 子程序1 (读入文件 (wjm)))

子程序名	返回值类型	公开	备 注
子程序1	字节集
参数名	类 型	参考	可空	数组	备 注
参数	字节集

变量名	类 型	静态	数组	备 注
a	短整数型
wid	整数型
b1	整数型
c	文本型
b2	整数型
d	字节集

wid ＝ 打开内存文件 ()
写出字节集 (wid, 编码转换 (参数, #编码_UTF_8, #编码_UTF_16LE, ))
移到文件首 (wid)
判断循环首 (是否在文件尾 (wid, ) ＝ 假)
读入数据 (wid, a)
如果真 (a ＝ 十六进制 (“26”))
b1 ＝ 取读写位置 (wid) － 2
读入数据 (wid, a)
如果真 (a ＝ 十六进制 (“23”))
c ＝ “”
循环判断首 ()
读入数据 (wid, a)
判断 (a ＝ 十六进制 (“3B”))
b2 ＝ 取读写位置 (wid) － 4
' 调试输出 (b2)
移动读写位置 (wid, #文件首, b1)
a ＝ 到短整数 (c)
写出数据 (wid, a)
a ＝ 到短整数 (8)
变量循环首 (b1, b2, 2, )
写出数据 (wid, a)
变量循环尾 ()
c ＝ c ＋ 字符 (a)

循环判断尾 (a ≥ #键0 且 a ≤ #键9 )

如果真 (a ＝ 0)
跳出循环 ()

判断循环尾 ()
移到文件首 (wid)
d ＝ 子字节集替换 (编码转换 (读入字节集 (wid, 取文件长度 (wid)), #编码_UTF_16LE, #编码_UTF_8, ), { 8 }, {  }, , )
关闭文件 (wid)
返回 (d)

i支持库列表	支持库注释
iconv	编码转换支持库

.版本 2<br /> .支持库 iconv<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 wjm, 文本型<br /> <br /> wjm ＝ “X:\Users\SG\AppData\Local\Temp\Rar$DIa0.992\新建文本文档 (5).txt”<br /> 写到文件 (wjm ＋ “转完毕.txt”, 子程序1 (读入文件 (wjm)))<br /> <br /> .子程序 子程序1, 字节集<br /> .参数 参数, 字节集<br /> .局部变量 a, 短整数型<br /> .局部变量 wid, 整数型<br /> .局部变量 b1, 整数型<br /> .局部变量 c, 文本型<br /> .局部变量 b2, 整数型<br /> .局部变量 d, 字节集<br /> <br /> wid ＝ 打开内存文件 ()<br /> 写出字节集 (wid, 编码转换 (参数, #编码_UTF_8, #编码_UTF_16LE, ))<br /> 移到文件首 (wid)<br /> .判断循环首 (是否在文件尾 (wid, ) ＝ 假)<br />     读入数据 (wid, a)<br />     .如果真 (a ＝ 十六进制 (“26”))<br />         b1 ＝ 取读写位置 (wid) － 2<br />         读入数据 (wid, a)<br />         .如果真 (a ＝ 十六进制 (“23”))<br />             c ＝ “”<br />             .循环判断首 ()<br />                 读入数据 (wid, a)<br />                 .判断开始 (a ＝ 十六进制 (“3B”))<br />                     b2 ＝ 取读写位置 (wid) － 4<br />                     ' 调试输出 (b2)<br />                     移动读写位置 (wid, #文件首, b1)<br />                     a ＝ 到短整数 (c)<br />                     写出数据 (wid, a)<br />                     a ＝ 到短整数 (8)<br />                     .变量循环首 (b1, b2, 2, )<br />                         写出数据 (wid, a)<br />                     .变量循环尾 ()<br />                 .默认<br />                     c ＝ c ＋ 字符 (a)<br />                 .判断结束<br /> <br />             .循环判断尾 (a ≥ #键0 且 a ≤ #键9)<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (a ＝ 0)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 移到文件首 (wid)<br /> d ＝ 子字节集替换 (编码转换 (读入字节集 (wid, 取文件长度 (wid)), #编码_UTF_16LE, #编码_UTF_8, ), { 8 }, {  }, , )<br /> 关闭文件 (wid)<br /> 返回 (d)