HTM与UBB互转易语言源码

调用易语言对象来实现HTM与UBB互转的操作。

.版本 2

.子程序 HTM转UBB, 文本型
.参数 HTM, 文本型
.局部变量 对象, 对象
.局部变量 代码, 文本型

对象.创建 (“ScriptControl”, )
对象.写属性 (“Language”, “javascript”)
对象.方法 (“AddCode”, 到文本 (#H2U))
代码 ＝ 对象.通用方法 (“run”, “H2U”, HTM).取文本 ()
对象.清除 ()
返回 (代码)

.子程序 UBB转HTM, 文本型
.参数 UBB, 文本型
.局部变量 对象, 对象
.局部变量 代码, 文本型

对象.创建 (“ScriptControl”, )
对象.写属性 (“Language”, “javascript”)
对象.方法 (“AddCode”, 到文本 (#H2U))
代码 ＝ 对象.通用方法 (“run”, “U2H”, UBB).取文本 ()
对象.清除 ()
返回 (代码)

.子程序 _按钮1_被单击

编辑框2.内容 ＝ HTM转UBB (编辑框1.内容)

.子程序 _按钮2_被单击

编辑框1.内容 ＝ UBB转HTM (编辑框2.内容)