CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

djm33 Nybegynder

11. marts 2002 - 22:29 Der er 1 kommentar

Søgning i RichTextBox

Hej

Jeg har en tekst som kan lyde:

blablablablablablablablablabla
blablablablablablablablablabla
blablablablablablablablablabla
blablablablablablablablablabla
blablablablablablablablablablablabl
blablablablablabla
blablablablablablablabla
blablablablablablablabla
blablablablablablablablablabla
blablablablablabla
Hans Otto spille fodbold
blablablablablabla
blablablabla
Rune spiser fisk
blablablablablabla
blablablablablabla
blablablablablablablabla
blablablablablablablabla
Der kommer tit nye afsnit af nyhederne
Søren spiser tit fisk

Så nu kommer mit spørgsmål...
Jeg skal bruge noget kode der kan gøre følgende:
Jeg indtaster fisk i et tekst felt.
Trykker på en cmdKnap
Den skal gå ned i teksten og finde ordet fisk
Når den har fundet ordet fisk skal den kopier hele
linien "Rune spiser fisk" over i et tekst felt der kan hedde txtresult
og så skal den fortsætte ned gennem teksten så den også finder
"Søren spiser tit fisk" og kopier det i txtresult

Er der nogen der kan gnave den over???

På forhånd Tak!!!

Mvh DJM

Synes godt om

bernhof Nybegynder

12. februar 2003 - 16:26 #1

Hvis du da stadig søger svar på dette spm. kan du bruge følgende kode, hvor jeg har kaldt RichTextBox'en for RTB, og søgetekstfeltet for txtSearch:

Private Sub cmdKnap_Click()
Dim lPos As Long, lStart As Long, lLength As Long
lPos = InStr(1, LCase(RTB.Text), LCase(txtSearch.Text))

Do Until lPos = 0
lStart = InStrRev(LCase(RTB.Text), vbNewLine, lPos)
If lStart = 0 Then lStart = 1
lLength = InStr(lPos, RTB.Text, vbNewLine) - lStart
If lLength = -lStart Then _
lLength = Len(RTB.Text) - lStart

If Right(txtResult.Text, 2) <> vbNewLine And txtResult.Text <> "" Then txtResult.Text = txtResult.Text & vbNewLine
txtResult.Text = txtResult.Text & Mid(RTB.Text, lStart + 2, lLength)

If lPos = Len(RTB.Text) Then Exit Do
lPos = InStr(lPos + 1, LCase(RTB.Text), LCase(txtSearch.Text))
Loop
End Sub

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	3	25/04/202414:26	28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic	0	09/10/202309:14	-

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS