yuanma 找视频-穿透10纵个框架 无模块,.版本 2
.子程序 网页关键字查找, 整数型
.参数 网页对象, 对象
.参数 关键字, 文本型
.局部变量 oDocument, 对象, , , 网页文档对象
.局部变量 oBody, 对象
.局部变量 oRange, 对象
.局部变量 sTag, 文本型, , , 高亮开始标签
.局部变量 eTag, 文本型, , , 高亮结束标签
.局部变量 fhzhi, 整数型
' ↓取网页文档对象
' oDocument = WebBrowser1.GetDocument ()
fhzhi = 0
oDocument = 网页对象
oBody = oDocument.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag = “”
eTag = “”
.如果真 (oBody.是否为空 () = 假)
oRange = oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 关键字))
oRange.方法 (“pasteHTML”, sTag + oRange.读文本属性 (“Text”, ) + eTag)
oRange.方法 (“MoveStart”, “character”, 1)
fhzhi = 1
.判断循环尾 ()
.如果真结束
返回 (fhzhi)
文件下载
解压密码:
来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575)