Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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
    Else
        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.

 

 

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