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.