Public Function LeftOfLastMatchFast( _
ByRef vIn As String _
, ByRef vPat As String _
, ByRef vCompare As VbCompareMethod _
, ByRef vIfNotFound As String _
) As String LeftOfLastMatchFast("This is a test.", "is", vbTextCompare, "") = "This "
LeftOfLastMatchFast("This is a test.", "sample", vbTextCompare, "Not found.") = "Not found."See also: LeftOfLastMatch functionvLine: The string which is to be searched for the appearance of string vFind.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.