Public Function GetTokenNonSpace( _ ByRef rValue As Variant _ ) As Variant
Assuming Dim S As String S = " First, Second, Third" for example GetTokenNonSpace(S) = "First," leaves S = "Second, Third"See also:
GetTokenCharSeps Function GetTokenAlphanumeric Function GetToken FunctionrValue: The string containing the tokens of which the first is to be removed and returned. Function returns Null if rValue is Null or cannot be fixed up to a String.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.