devxlogo

InstrRev – Backward Instr for VB4 and VB5

InstrRev – Backward Instr for VB4 and VB5

' A clone of VB6's InstrRev function (including its quirks)' that works under VB4 and VB5Function InstrRev(StringCheck As String, StringMatch As String, _    Optional Start As Long = -1, Optional Compare As VbCompareMethod = _    vbBinaryCompare) As Long    Dim index As Long    Dim lastIndex As Long        If Start > Len(StringCheck) Then        ' this is probably a quirk in VB6's InstrRev function: when        ' start is higher than the source string length, the function        ' returns zero        Exit Function    ElseIf Start < 0 Then        ' if Start is omitted, last valid index is the end of string        lastIndex = Len(StringCheck)    Else        ' else, we must account for the length of the searched string        ' (this is the way VB6's InstrRev function works)        lastIndex = Start + 1 - Len(StringMatch)    End If        Do        index = InStr(index + 1, StringCheck, StringMatch, Compare)        ' exit if not found, or if it's past the start index        If index = 0 Or index > lastIndex Then Exit Do        ' remember the index we've just found        InstrRev = index    Loop    End Function

See also  5 Ways to Improve Customer Experience
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist