Public Function LineEndsWithFast( _ ByRef vLine As String _ , ByRef vFind As String _ , ByRef vCompare As VbCompareMethod _ ) As Boolean
LineEndsWithFast("This is a test.", "TEST.", vbTextCompare) = True LineEndsWithFast("This is a test.", "IS", vbTextCompare) = False LineEndsWithFast("This is a test.", "", vbTextCompare) = TruevLine: The string whose end is checked to see if it matches string vFind.
Note: Unlike most other string search functions, this one returns True if vFind is an empty string.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.