<-- Previous || Up || Next -->

String Shift Right Function
String Manipulations Class

Public Function StringShiftRight( _
    ByRef rValue As Variant _
    ) As Integer

Shifts the characters within a string one position to the right, with the character at the end of the string being removed.
Returns the ASCII value of the character at the end of string rValue. (The character at the end of the string before the characters are shifted).

       Dim S As String
       S = "ABC"
    for example
       StringShiftRight(S) = 67 = Asc("C")
       S = "AB"
See also:
    StringShiftLeft Function
    StringRotateRight Function
    ShiftStringRight Function
rValue: String whose characters are to be shifted right 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.