LOCALIZAR TEXTO EM TEXTBOX

SNNIFFER 23/02/2011 07:31:50
#366304
Pessoal, estou usando este código num pequeno projeto, o mesmo faz uma pesquisa dentro de um textbox, e seleciona o texto.

Dim TamanhoDaPalavra As Integer [ô]retorna o tamanho da palavra a localizar
TamanhoDaPalavra = Len(txtProcura.Text)

[txt-color=#e80000]For a = parounochar To Len(txtTexto.Text) [ô] retorna o tamanho do texto
If UCase(Mid$(txtTexto.Text, a, TamanhoDaPalavra)) = UCase(txtProcura) Then
parounochar = a + 1
txtTexto.SetFocus
txtTexto.SelStart = a - 1
txtTexto.SelLength = TamanhoDaPalavra
Exit Sub
End If
Next
txtResultado.Text = TamanhoDaPalavra
MsgBox [Ô]Não foi encontrada nenhuma palavra![Ô]
parounochar = 1[/txt-color]

Esta funcionando normalmente, mas, preciso modifica-lo para que ele exclua um parte do texto, começando pela palavra localizada e terminando em outra palavra que eu configurar:

Ex.:
Maria comeu junto com seu irmão 86 maçãs.

A primeira palavra a encontrar e Maria, gostaria que o código, localizasse Maria e o texto a sua frente, parando na palavra configurada e excluindo o localizado. Assim ficando a frase:

Maria irmão 86 maçãs.



Vlw
GREGO 23/02/2011 09:20:37
#366308


ixi da para fazer, mas é um pouco chatinho... mas posso pergunta? pra que vc precisa disso?
MARCELO.TREZE 23/02/2011 11:14:10
#366324 Resposta escolhida
veja se esta função ajuda


Function AlteraTexto(Texto As String, PalavraINI As String, PalavraFIM As String) As String
Dim Inicio As Integer, Fim As Integer
Inicio = InStr(1, UCase(Texto), UCase(PalavraINI)) + Len(PalavraINI)
Fim = InStr(1, UCase(Texto), UCase(PalavraFIM))
AlteraTexto = Replace(Texto, Mid(Texto, Inicio, Fim - Inicio), [Ô] [Ô])
End Function


para usar

Private Sub Command1_Click()
MsgBox AlteraTexto(Text1.Text, [Ô]maria[Ô], [Ô]irmão[Ô])
End Sub
SNNIFFER 23/02/2011 21:53:46
#366422
Era isso mesmo Marcelo, valeu cara.
Tópico encerrado , respostas não são mais permitidas
Voltar