Public Function StringShiftLeft( _ ByRef rValue As Variant _ ) As Integer
Assuming Dim S As String S = "ABC" for example StringShiftLeft(S) = 65 = Asc("A") leaves S = "BC"See also:
StringShiftRight Function StringRotateLeft Function ShiftStringLeft FunctionrValue: String whose characters are to be shifted left one position. Function returns -1 (the value of the AscEOF Property) if rValue is Null or cannot be fixed up to a String.
Function also returns -1 if rValue is an empty string.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.