Fórum Codigo VB para Delphi #284311

ola pequei esse codigo em vb e queria passar delphi 2005 numa pesquisa para meu site

1º) Iremos armazenar o valor da pesquisa na variável strBusca.

StrBusca = Request.Querystring(´busca´)

2º) Usaremos ela na instrução SQL para pesquisar uma palavra qualquer.

strPesquisa = ´SELECT descricao FROM expressoes WHERE descricao LIKE ´¬´ & strBusca & ´¬´´

2º) Após a instrução SQL ser executada, iremos armazena o que está em strPesquisa na variável Obj do objeto connection.

Set Obj = conn.execute(strPesquisa)

3º) Na execução do Loop criaremos a expressão regular.

While not Obj.EOF
strpexr = Obj.Fields(´descricao´).value - Aqui atribuimos o objeto Obj.Fields(´descricao´).value
à variável pexr.
Set rgxp = New RegExp - Cria um novo objeto RegExp ´expressão regular´.
rgxp.Pattern = strbusca - Pesquisa a palavra digitada na variável pexr.
mudar = strpexr - Atribui o valor da variável pexr na variável mudar.
mudar = Replace(mudar,(strbusca), ´<b>´ & (strbusca) & ´</b>´) - Aqui está o resume
dessa pesquisa. Simplismente a função Replace substiuirá o valor mudar(strbusca) por ´<b>´ &
(strbusca) & ´</b>´, ou seja, ela colocará em negrito o valor digitado pelo usuário no campo
texto, deixando todas as palavras correspondentes em negrito. O que estou mostrando aqui, vocês estão
acostumados a vê quase todos os dias, ao realizar uma busca quer seja no Google ou em qualuer outro
site de busca que usa expressões regulares. É só você prestar atenção que a palavra a ser pesquisada
aparecerá na pesquisa em negrito.

4º) Agora o valor do objeto connection está na variável mudar. Então será realizado o Loop que encontrará o valor da pesquisa sem erros.

<¬=mudar & ´<br>´¬>

5º) Finalizar o loop.

<¬ Obj.movenext
Wend¬>

se alguem poder me ajudar a tempos que estou atras

Elcilei Lopes