Destacando um texto

[xanburzum 169]

Função de destaque, pesquisa um texto para uma seqüência específica, quando a seqüência for localizada, a string será destacada.

 

Function Destaque(strText, strFind, strBefore, strAfter)
	Dim nPos
	Dim nLen
	Dim nLenAll
	
	nLen = Len(strFind)
	nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1

	Destaque= strText

	If nLen > 0 And Len(Destaque) > 0 Then
		nPos = InStr(1, Destaque, strFind, 1)
		Do While nPos > 0
			Destaque= Left(Destaque, nPos - 1) & _
				strBefore & Mid(Destaque, nPos, nLen) & strAfter & _
				Mid(Destaque, nPos + nLen)

			nPos = InStr(nPos + nLenAll, Destaque, strFind, 1)
		Loop
	End If
End Function

Parâmetros:

strText - string para pesquisar

strFind - string procurar

strBefore - string para inserir antes do strFind

strAfter - string para inserir após o strFind

 

Exemplo:

Isso fará com que todas as ocorrências da palavra " xan " se destacar

 

Response.Write Destaque (strSomeText, "xan", "<b>", "</b>")

Para usar essa função:

 

Response.Write Destaque Texto ( "algumapalavra", "<font color=red>", "</ font>")

[xanburzum 169]

outro exemplo:

 

Function highlighttexto(searchResult)

Dim searchQueryLength, startPosition, querySectionToReplace, highlightQueryTemp, SearchWordsCount

highlightQueryTemp = searchResult

SearchWordsCount = Ubound(busca_txt_array)
For c=0 to SearchWordsCount
	searchQueryLength = Len(busca_txt_array(c))
	startPosition = Instr(1,highlightQueryTemp,busca_txt_array(c),1)
	If startPosition >= 1 then
	querySectionToReplace = Mid(highlightQueryTemp,startPosition,searchQueryLength)
	highlightQueryTemp = Replace(highlightQueryTemp,querySectionToReplace,"<span class='highlight'>" & querySectionToReplace & "</span>",1)
	End If
Next
highlighttexto = highlightQueryTemp

End Function

[jrcardozo 4]

dependendo do caso o replace se torna mais simples

[desisto 0]

mais facil usar assim

 

 

 

 

frase = "oi eu sou eu"
dstk = "eu"
response.Write Replace(lcase(frase), lcase(dstk),"<font color=red>"& lcase(dstk)&"</font>")

[xanburzum 169]

para um efeito highlight de texto, você tem maior controle