Po wklejeniu tekstu ze schowka do RichTextBox401.Text - RichTextBox401.Text zostaje przeszukiwany - tego co jest wpisane do TextBox3.Text
Problem polega na tym, że gdy wkleje kilka linijek, oddzielonych ENTERami, to wyszukiwanie się nie odbywa....
z kolei pojedyncze wklejone linijki działają prawidłowo....
tu daje filmik, gdyby ktoś nie rozumiał o co mi chodzi:
Dlaczego nie można wyszukiwać w tym tekscie, w ktorym występuje ENTER pomiędzy linijkami?
Dim szukane As String
Dim wynik As String
Dim obszar As String
obszar = RichTextBox401.Text
szukane = TextBox3.Text
If RichTextBox401.Text = My.Computer.Clipboard.GetText() Then
wynik = InStr(obszar, szukane)
If wynik And Not szukane = "" Then
Label102.ForeColor = Color.Green
Label102.Text = "Znaleziono Słowo Kluczowe!"
TextBox2.Text = szukane
Else
Label102.ForeColor = Color.Red
Label102.Text = "Wprowadź Słowo Kluczowe!"
End If
zauwazyłem że jeżeli wszystkie te funkcje dam pod button, to działa wszystko.....
natomiast jeżeli to daje jako "My.Computer.Clipboard.GetText" to wtedy ten problem występuje....
dodanie znacznika <code class="vbnet"> i poprawienie tytułu wątku - fp