易语言Html实体转文本例程

.子程序 Html实体转文本, 文本型, , 把Html实体符号转成正常文本
.参数 字符串, 文本型
.参数 次数, 整数型, 可空
.局部变量 _Dom, 对象
.局部变量 _Emt, 对象
.局部变量 _Html, 文本型
.局部变量 _Test, 文本型

.如果真 (是否为空 (次数))
次数 ＝ 1
.如果真结束
_Test ＝ 字符串
_Html ＝ “”
_Dom.创建 (“Htmlfile”, )
_Dom.方法 (“write”, _Html)
.计次循环首 (次数, )
_Dom.对象型方法 (“getElementById”, “A”).写属性 (“innerHTML”, _Test)
_Test ＝ _Dom.对象型方法 (“getElementById”, “A”).读文本属性 (“innerText”, )
.计次循环尾 ()