Public Function InStrToVariantVector( _ ByRef rPositions() As Variant _ , ByVal vLine As Variant _ , ByVal vFind As Variant _ , Optional ByVal vCompare As Variant _ ) As Boolean
Assuming Dim Matches() As Variant for example InStrToVariantVector(Matches(), "This is a test.", "is") leaves LBound(Matches) = 0 UBound(Matches) = 2 Matches(0) = Empty Matches(1) = 3 Matches(2) = 6See also:
IndicateMatches FunctionvLine: The string which is to be searched from left-to-right for the non-overlapping appearance of string vFind. Function returns False if vLine is Null or cannot be fixed up to a String.
vFind: The string which is to be repeatedly searched for within string vLine. Function returns False if vFindChars is Null or cannot be fixed up to a String.
Function returns False if vFindChars is an empty string.
vCompare: Specifies the type of comparison used to determine if the strings match. vCompare defaults to Binary comparisons if it is missing or Null or cannot be fixed up to a number.
Function dimensions rPositions from 0 (zero) to the number of matches found, and stores the first position of each non-overlapping match in one of the elements of rPositions.
If the string vFind does not appear within vLine, rPosisions is dimensioned from 0 (zero) to 0 (zero) and the function returns True.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.