Public Function LeftOfFirstMatchFast( _
ByRef vLine As String _
, ByRef vFind As String _
, ByRef vCompare As VbCompareMethod _
, ByRef vIfNotFound As String _
) As String LeftOfFirstMatchFast("This is a test.", "is", vbTextCompare, "") = "Th"
LeftOfFirstMatchFast("This is a test.", "sample", vbTextCompare, "Not found.") = "Not found."See also: LeftOfFirstMatch FunctionvLine: The string which is to be searched from left-to-right for the appearance of string vFind.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.