PROCURAR STRING

DARTAGNAN 09/06/2004 15:35:32
#29002
bem.. por exemplo eu teho um txt1.text

eu quero q o vb procure nesse txt1.text c tem a letra "a"

ai ele acha

e no lbl1.captiona aparece

o "a"

ai o "a" ja esta la no txt1.text ai eu digo o "b"
quero q ele procure la c tem o b e mostra no lbl1

como eu faria isso?

Desde ja Obrigado
USUARIO.EXCLUIDOS 09/06/2004 15:38:19
#29003 Resposta escolhida
if instr(1, txt1.text, "a")>0 then
lbl1.caption = "a"
endif

if instr(1, txt1.text,"b")>0 then
lbl1.caption = "b"
endif

'regra geral
Private sub TemLetra(Byval Texto as string, byval Letra as string)
if instr(1, Texto, Letra)>0 then
lbl1.caption = letra
endif
end sub
TemLetra txt1.text, "c"
Tópico encerrado , respostas não são mais permitidas
Voltar