Olá pessoal, blz...

 

Estou fazendo um sistema de busca em ASP e tenho uma função em vbscript que deixa em negrito a palavra que foi digitada. Os mesmo que faz o google: http://www.google.com.br/search?hl=pt-BR&q=vb+web

vb e web (maiusculo/minusculo/indiferente) aparecem em negrito.

Function str_regular(palavra, texto)
   Dim regEx
   Set regEx = New RegExp   ' Create a regular expression.
   regEx.Pattern = palavra  ' Set pattern.
   regEx.IgnoreCase = True  ' Set case insensitivity.
   regEx.Global = True    ' Set global applicability.

   str_regular = regEx.replace(texto,"<b>" & palavra & "</b>")
End Function

-----------------<

Com essa funcao consigo fazer o mesmo, mas se a palavra encontra for "VB" ou "Vb" ela aparecerá como "vb", gostaria de manter o estado da palavra porém com negrito, exatamente igual o google.

 

Quem poder ajudar agradeço,

 

Muito obrigado

 

Eriston Danilo

 

regEx.IgnoreCase = False

Usando "regEx.IgnoreCase = False" piora a situação, nesse caso a busca será exata, por exemplo, pesquiso por "vb", mas a palavra "VB" não é localizada.