Details
| 'sourceString = The string whose rightmost characters you want to find. searchString = A substring of stringToSearch. 'RightBack returns all the characters to the right of subString. It finds searchString by searching sourceString from right to left.
Function RightBack (sourceString as String, searchString as String) As String
Dim pos As Integer
Dim pivot As String
Dim result As String
Dim sourceStringBack As String
Dim searchStringBack As String
Dim i As Integer
For i= Len(sourceString) To 1 Step -1
sourceStringBack=sourceStringBack & Mid(sourceString, i, 1)
Next
For i = Len(searchString) To 1 Step -1
searchStringBack=searchStringBack & Mid(searchString, i, 1)
Next
pos = Instr ( sourceStringBack, searchStringBack )
If pos > 0 Then pos = pos -1
result = Left ( sourceStringBack, pos )
For i = Len(result) To 1 Step -1
pivot=pivot & Mid(result, i, 1)
Next
RightBack=pivot
End Function |