精易模块 网页 高亮关键字 ，请高手帮加两个参数

huang9585

  

子程序名	返回值类型	公开	备 注
网页_高亮关键字
参数名	类 型	参考	可空	数组	备 注
关键字	文本型				要高亮的网页关键字;
文字颜色	文本型				可空:默认为红色;16进制的网页颜色;
背景颜色	文本型				可空:默认为泥黄;16进制的网页颜色;
是否加粗	逻辑型				可空:默认为假,不加粗,真=加粗;

变量名	类 型	静态	数组	备 注
Body	对象
Range	对象
sTag	文本型			高亮开始标签
eTag	文本型			高亮结束标签

Body ＝ 集_网页文档.读对象型属性 (“body”, )
如果真 (文字颜色 ＝ “”)
文字颜色 ＝ “ff0000”
如果真 (背景颜色 ＝ “”)
背景颜色 ＝ “D6F20D”
判断 (是否加粗)
sTag ＝ “”
eTag ＝ “”
sTag ＝ “”
eTag ＝ “”
如果真 (Body.是否为空 () ＝ 假)
Range ＝ Body.对象型方法 (“createTextRange”, )
判断循环首 (Range.逻辑方法 (“FindText”, 关键字))
Range.方法 (“pasteHTML”, sTag ＋ Range.读文本属性 (“Text”, ) ＋ eTag)
Range.方法 (“MoveStart”, “character”, 1)
判断循环尾 ()

.版本 2<br /> <br /> .子程序 网页_高亮关键字, , 公开<br /> .参数 关键字, 文本型, , 要高亮的网页关键字;<br /> .参数 文字颜色, 文本型, 可空, 可空:默认为红色;16进制的网页颜色;<br /> .参数 背景颜色, 文本型, 可空, 可空:默认为泥黄;16进制的网页颜色;<br /> .参数 是否加粗, 逻辑型, 可空, 可空:默认为假,不加粗,真=加粗;<br /> .局部变量 Body, 对象<br /> .局部变量 Range, 对象<br /> .局部变量 sTag, 文本型, , , 高亮开始标签<br /> .局部变量 eTag, 文本型, , , 高亮结束标签<br /> <br /> Body ＝ 集_网页文档.读对象型属性 (“body”, )<br /> .如果真 (文字颜色 ＝ “”)<br />     文字颜色 ＝ “ff0000”<br /> .如果真结束<br /> .如果真 (背景颜色 ＝ “”)<br />     背景颜色 ＝ “D6F20D”<br /> .如果真结束<br /> .判断开始 (是否加粗)<br />     sTag ＝ “<strong>”<br />     eTag ＝ “</strong>”<br /> .默认<br />     sTag ＝ “”<br />     eTag ＝ “”<br /> .判断结束<br /> .如果真 (Body.是否为空 () ＝ 假)<br />     Range ＝ Body.对象型方法 (“createTextRange”, )<br />     .判断循环首 (Range.逻辑方法 (“FindText”, 关键字))<br />         Range.方法 (“pasteHTML”, sTag ＋ Range.读文本属性 (“Text”, ) ＋ eTag)<br />         Range.方法 (“MoveStart”, “character”, 1)<br />     .判断循环尾 ()

请高手帮加两个参数，高亮的范围，即从某位置，到某位置范围内的关键字高亮，范围外不高亮。

huang9585

人呢？