Function to search for a substring within a string.
Function to search for a substring within a string.
API Declarations
Dim intloop As Integer 'loop control
strChar As String 'individual character
Rate Function to search for a substring within a string.
(1(1 Vote))
strChar = Mid(strText, intloop, 1)
If strChar = Mid(strSub, 1, 1) OR _
Mid(strSub, 2, Len(strSub)) = Mid(strText, intloop + Len (strSub) - 1) Then
SubString = True
End If
Next
End Function
Function to search for a substring within a string. Comments
No comments yet — be the first to post one!
Post a Comment