Search Tools Links Login

InStrRev for VB5

Visual Basic 6, or VB Classic

This is a InStrRev function for VB5. I took a look at the one microsoft recomend, and almost died of laughter.

Original Author: unknown


The string to Search
The string to Find
Optional :> The start position


The postion of the Found string in the Searched string.


Function myInStrRev(strStringToSearch As String, strFind As String, Optional iStart As Long) As Long
Dim ip1 As Long, ip2 As Long
Dim iLenStringToSearch As Long

'get the length of the string
iLenStringToSearch = Len(strStringToSearch)

'if the start is 0 then set the start to the length
'og the string
If iStart = 0 Then
iStart = iLenStringToSearch
End If

ip1 = 1
ip2 = InStr(ip1, strStringToSearch, strFind)
If (ip2 > 0) And (ip2 < iStart) Then
'if ip2 is not zero and it is less than the
'place to start searching then set the function
'to return that position
myInStrRev = ip2
ElseIf ip2 = 0 Then
ip2 = iLenStringToSearch
End If
'set the next position to seracf from
ip1 = ip2 + 1
Loop Until ip1 >= iStart

End Function

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 98 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.