PROCURA DE TEXTO EM TEXT BOX

WHELLNET 15/09/2005 16:06:31
#104439 Resposta escolhida

Com o InStr

Texto = "qualquer opa coisas quweruihiuq aaiosdhkashdlk"
Pesq = "opa"

If InStr(1, Texto, Pesq) = 0 Then
Msgbox "Não encontrou"
Else
Msgbox "Achei"
Endif

Lembrando o numero que ele informar será o caractere inicial, no caso = 10

LIONHEART 15/09/2005 16:13:25
#104446

IF INSTR(texto, "palavra") = 0 then 'não tem

USUARIO.EXCLUIDOS 15/09/2005 16:16:02
#104447

corretissimo... fica show assim tb olha:

'se o texto a ser procurado for uma textbox... fas isso:
txt.selstart=InStr(1, "palavra a ser pesquisada", txt.text)
txt.SelLength = len("palavra a ser pesquisada")
'ou seja, assim seleciona a palavra dentro da txt, MUITO LOKAUM Né????

vlw... espero ter ajudado!!!!!!!!!!!!!!!

D4RK.V1RU5 15/09/2005 16:22:26
#104453

vlw a todos q ajudaram

GANDA.NICK 15/09/2005 16:35:43
#104458

encerre seu topico