Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB4,VB5
Expertise: Intermediate
Apr 1, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

InStrRev - A replacement for VB6's InStrRev under VB4 and VB5

' A replacement for the InStrRev function under VB4 and VB5
' NOTE: uses the StrReverse function

Function InStrRev(ByVal Text As String, Search As String, _
    Optional ByVal Start As Long = -1, Optional ByVal CompareMethod As _
    VbCompareMethod = vbBinaryCompare) As Long
    Dim Index As Long
    ' reverse the source strings,
    ' so that we can use regular InStr
    Text = StrReverse(Text)
    Search = StrReverse(Search)
    ' we must "reverse" Start too
    If Start < 0 Then
        Start = 1
        Start = Len(Text) + 1 - Start
    End If
    Index = InStr(Start, Text, Search, CompareMethod)
    If Index Then
        ' adjust the result
        InStrRev = Len(Text) - Index - Len(Search) + 2
    End If
End Function
Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date