função que destaca resultados da pesquisa

[xanburzum 169]

Pequena função que destaca as pesquisas sobre os resultados da pesquisa. Semelhante ao destacar característica encontrada no Google Toolbar. Suporta palavras múltiplas buscas.

 

Function highlightpesq(searchResult)

Dim searchpesqLength, startPosition, querySectionToReplace, highlightpesqTemp, SearchWordsCount

highlightpesqTemp = searchResult

SearchWordsCount = Ubound(SEARCH_WORDS_ARRAY)
For c=0 to SearchWordsCount
	searchpesqLength = Len(SEARCH_WORDS_ARRAY(c))
	startPosition = Instr(1,highlightpesqTemp,SEARCH_WORDS_ARRAY(c),1)
	If startPosition >= 1 then
	querySectionToReplace = Mid(highlightpesqTemp ,startPosition,searchpesqLength)
	highlightpesqTemp = Replace(highlightpesqTemp ,querySectionToReplace,"<span class='highlight'>" & querySectionToReplace & "</span>",1)
	End If
Next
highlightpesq= highlightpesqTemp

End Function

[Ted k' 126]

xan, gostei, esse ai para quem trabalha com sites de buscas é fundamental, parabéns!!