原版:
.版本 2 .子程序 Html实体转文本, 文本型, , 把Html实体符号转成正常文本 .参数 字符串, 文本型 .参数 次数, 整数型, 可空 .局部变量 _Dom, 对象 .局部变量 _Emt, 对象 .局部变量 _Html, 文本型 .局部变量 _Test, 文本型 .如果真 (是否为空 (次数)) 次数 ＝ 1 .如果真结束 _Test ＝ 字符串 _Html ＝ “<!DOCTYPE html><html><body><a id='A'></a></body></html>” _Dom.创建 (“Htmlfile”, ) _Dom.方法 (“write”, _Html) .计次循环首 (次数, ) _Dom.对象型方法 (“getElementById”, “A”).写属性 (“innerHTML”, _Test) _Test ＝ _Dom.对象型方法 (“getElementById”, “A”).读文本属性 (“innerText”, ) .计次循环尾 () _Dom.清除 () 返回 (_Test)
原版存在一个问题,就是会把源码中的换行符都给整没了
所以修复了一下,修复后:
.版本 2
.子程序 Html实体转文本, 文本型, , 把Html实体符号转成正常文本
.参数 字符串, 文本型
.参数 次数, 整数型, 可空
.局部变量 _Dom, 对象
.局部变量 _Emt, 对象
.局部变量 _Html, 文本型
.局部变量 _Test, 文本型
.如果真 (是否为空 (次数))
次数 ＝ 1
.如果真结束
_Test ＝ 子文本替换 (字符串, #换行符, “{#换行符}”, , , 真)
_Html ＝ “<!DOCTYPE html><html><body><a id='A'></a></body></html>”
_Dom.创建 (“Htmlfile”, )
_Dom.方法 (“write”, _Html)
.计次循环首 (次数, )
_Dom.对象型方法 (“getElementById”, “A”).写属性 (“innerHTML”, _Test)
_Test ＝ _Dom.对象型方法 (“getElementById”, “A”).读文本属性 (“innerText”, )
.计次循环尾 ()
_Dom.清除 ()
_Test ＝ 子文本替换 (_Test, “{#换行符}”, #换行符, , , 真)
返回 (_Test)