Localizador de texto

[AnonymousKesha 11]

Bom, agora vou ensinar um método simples, ele funciona como o Ctrl + F do bloco de notas!

Como funciona?

Numa textbox você coloca o texto desejado, e na outra você digita a palavra e o programa localiza para você!

 

Para esse programa é necessário

 

1-Button-> Responsável por executar o processo

2->Textbox

 

#Textbox1 -> Aonde você digita a palavra e ela localiza na textbox2

#Textbox2 ->Aonde vai o texto

 

Adicione o seguinte código no button1

'Variaveis

Dim position As Integer

Dim length As Integer

Dim text As String

Dim textFind As String

 

'Store text TextBoxOutput in variable text

text = textbox2.Text

 

'Store text in TextBoxFind in variable textFind

textFind = TextBox1.Text

 

'Get position of textFind in text

position = text.IndexOf(textFind)

 

'Get length of textFind

length = textFind.Length

 

'Verificar se o texto solicitado existe

If position > -1 Then

TextBox2.Select(position, length)

TextBox2.Focus()

Else

TextBox2.BackColor = Color.OrangeRed

MessageBox.Show("O texto não foi encontrado") 'mensagem a ser exibida caso o texto solicitado não seja encontrado

MsgBox("Tente novamente incluindo letra maiuscula em inicio de frase e palavra com nome proprio") 'mensagem de ajuda

TextBox2.BackColor = Color.White

End If

 

Obs.O código está com algumas "explicações" que vão aparecer em verde no vb, algumas estão em inglês,porque essa aplicações eu peguei de um site americano, e não fiquei em casa,

hoje, então não tiver tempo de traduzir o resto e explicar!

 

Vale lembra que essa código não é meu, porque a "explicação" estava em outra língua, e basicamente eu modifiquei ele em algumas partes!

 

Obs2. Esse método para achar texto não é um tipo de "loop infinito"

Ex:

O texto tem a seguinte frase> O esse menino é amigo do meu melhor amigo...

 

Quando você mandar a aplicação procurar a palavra amigo[essa frase possui 2x a palavra amigo], ele vai selecionar a primeira palavra, mas não vai localizar a segunda!