Reverse Find for Richtext 2

[three57m]

I am trying to figure out why this code
will not step through and find text if settingQ is not zero

Public Sub prevFindTextInstrQ(strToFindQ As String, settingsQ As Long)
    Dim entireStrQ As String
    's_startQ is public declare long
    'setting options for reverse find
    'allmatches = 0
    'rtfWholeWord = 2
    'rtfMatchCase = 4
    'rtfWholeWord & rtfMatchCase = 6
    
    entireStrQ = callingRichText.Text
    
    s_startQ = s_startQ - Len(strToFindQ)
    If s_startQ <= 0 Then
        s_startQ = -1
    Else
    End If
    
    s_startQ = InStrRev(entireStrQ, strToFindQ, s_startQ, vbTextCompare)
    s_startQ = s_startQ - Len(strToFindQ)
    If s_startQ <= -1 Then
        s_startQ = 0
    Else
    End If
    s_startQ = callingRichText.Find(strToFindQ, s_startQ, , settingsQ)
    
    
    If s_startQ = -1 Then 'allows user to loop back
        s_startQ = InStrRev(entireStrQ, strToFindQ, s_startQ, vbTextCompare)
        s_startQ = s_startQ - Len(strToFindQ)
        If s_startQ <= -1 Then
            s_startQ = 0
        Else
        End If
        s_startQ = callingRichText.Find(strToFindQ, s_startQ, , settingsQ)
    Else
    End If
End Sub

sorry if this is kinda sloppy to read

 

[three57m]

Just an update use this reversFndStr instead it last one hade a small omition. that didnt set the prevFindStr value upon success should be about perfect now.

Public Sub reverseFindStr(strToFindQ As String, searchSettingsQ As Long)
    Dim lenOfFindStr As Long
    Dim instrRevQ As Long
    Dim stepCountQ As Integer
    
    lenOfFindStr = Len(strToFindQ)
    
    If prevFindStr = strToFindQ Then
        If callingRichTxt.SelStart > 0 Then
            e_endQ = callingRichTxt.SelStart
        ElseIf callingRichTxt.SelStart = 0 Then
            e_endQ = lenOfFindStr
        ElseIf callingRichTxt.SelStart + lenOfFindStr = Len(callingRichTxt.Text) Then
            e_endQ = callingRichTxt.SelStart
        Else
            e_endQ = -1
        End If
    ElseIf callingRichTxt.SelStart = 0 Then
        e_endQ = -1
    Else
        e_endQ = callingRichTxt.SelStart
    End If
    
    'allow instrRev to find before testing with .find for a wholeword/case match
    For stepCountQ = 1 To Len(callingRichTxt.Text)
    instrRevQ = InStrRev(callingRichTxt.Text, strToFindQ, e_endQ, vbTextCompare)
    If instrRevQ <= 0 Then
        'MATCH NOT FOUND
        
    Else
        'TEST FOR VALID MATCH WITH .FIND
        If instrRevQ - lenOfFindStr < 0 Then
            e_endQ = callingRichTxt.Find(strToFindQ, 0, e_endQ, searchSettingsQ)
        Else
            e_endQ = callingRichTxt.Find(strToFindQ, instrRevQ - lenOfFindStr, e_endQ, searchSettingsQ)
        End If
        
        If e_endQ = -1 Then
            'INVALID MATCH
            e_endQ = instrRevQ - lenOfFindStr
            If e_endQ <= 0 Then
                e_endQ = lenOfFindStr
            Else
            End If
        Else
            'SEARCH COMPLETE
            s_startQ = e_endQ
            prevFindStr = strToFindQ '<tek tips this was missing before>
            Exit Sub
        End If
    End If
    Next stepCountQ
    
End Sub

 

[three57m]

I bet I know your pref to strongm LOL

 

[strongm]

It's worth pointing out for a second time that the API call gives you access to a massively more flexible interface to the RTB than the one Microsoft provide by default to VB

 

[dglienna]

Welcome to westconn1!

http://tek-tips.com/viewthread.cfm?qid=1352950&page=1

-David
2006 & 2007 Microsoft Most Valuable Professional (MVP)
2006 Dell Certified System Professional (CSP)