高亮网页中的关键字

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

高亮网页中的关键字

javascript的代码如下

function HightLight(nWord)

{

var oRange = document.body.createTextRange();

while(oRange.findText(nWord))

{

oRange.pasteHTML("<span style='background-color:yellow'>" + oRange.text + "</span>");

oRange.moveStart('character',1);

}

}

如果在vb中使用,改进一下,

Public Sub HightLight2(nKey$, nDoc As MSHTML.HTMLDocument, Optional beforeTag$ = "", Optional afterTag$ = "")

On Error Resume Next

Dim tBody As MSHTML.HTMLBody

Dim oRange As MSHTML.IHTMLTxtRange

If beforeTag = "" Then

beforeTag = "<span style='background-color:yellow'>"

End If

If afterTag = "" Then

afterTag = "</span>"

End If

Set tBody = nDoc.body

If Not tBody Is Nothing Then

Set oRange = tBody.createTextRange

If Not oRange Is Nothing Then

While oRange.FindText(nKey)

Call oRange.pasteHTML(beforeTag & oRange.Text & afterTag)

Call oRange.MoveStart("character", 1)

Wend

End If

End If

End Sub

如果页面中有多个frame,那么还需要做些工作,我就不写了.

lingll

lingll2001@21cn.com

2004-7-5

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航