Avatar billede 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
Avatar billede 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
Avatar billede 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.

Loading billede Opret Preview

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