易语言网页另存为html,易语言Html对象取网页body文本源码

.版本 2

.支持库 HtmlView

.子程序 编辑器内容, 文本型, 公开, 读写编辑器内容

.参数 写内容, 文本型, 可空, 空白为读取内容

.局部变量 Doc, 对象

.局部变量 Editor, 对象

.局部变量 Textarea, 对象

.局部变量 Display, 逻辑型

.局部变量 Obj, 对象

Doc ＝ 超文本浏览框1.取文档对象 ()

‘ WebBrowser.GetDocument ().对象型方法 (“getElementById”, “divid”).读属性 (“innerHTML”, )

.如果真 (取反 (Doc.是否为空 ()))

Editor ＝ Doc.对象型方法 (“getElementById”, “editor_body_area”).读对象型属性 (“contentWindow”, ).读对象型属性 (“document”, ).读对象型属性 (“body”, )

Textarea ＝ Doc.对象型方法 (“getElementById”, “editor_body_textarea”)

Display ＝ Textarea.读对象型属性 (“style”, ).读文本属性 (“display”, ) ＝ “none”

Obj ＝ 选择 (Display, Editor, Textarea)

.如果真 (取反 (是否为空 (写内容)))

Obj.写属性 (“innerHTML”, 写内容)

.如果真结束

返回 (选择 (是否为空 (写内容), Obj.读文本属性 (“innerHTML”, ), “”))

.如果真结束

返回 (“”)