View Code Snippet

Author: Eric A. Johnson
Date Submitted: 2/5/2006
Category: String Handling/Manipulation
Compatibility: .NET
This code has been accessed 2768 times.

Task: This is an update to my earlier ShiftString function. I had one digit wrong by one, thus sometimes giving wrong results. This one has been more thoroughly tested... apologies for any who got confused with the previous one! This code shifts any substring as many spaces as you desire within a string.

Declarations

Code

Private Function ShiftString(ByVal OriginalString As String, _ ByVal PositionToShift As Integer, _ ByVal NumChars As Integer, _ ByVal PlacesToShift As Integer) As String ' Variable declaration Dim ShiftedString, SubString As String Dim stringLength As Integer ShiftedString = OriginalString stringLength = ShiftedString.Length ' Error-checking section If (NumChars < 0) Or (NumChars >= stringLength) Then Return ShiftedString End If If PlacesToShift = 0 Then Return ShiftedString End If If PositionToShift < 0 Or PositionToShift >= stringLength Then Return ShiftedString End If If (PositionToShift + NumChars + PlacesToShift > stringLength) Or _ (PositionToShift + PlacesToShift < 0) Then Return "" End If ' Get substring to shift SubString = ShiftedString.Substring(PositionToShift, NumChars) ' Remove substring from original string ShiftedString = ShiftedString.Remove(PositionToShift, NumChars) ' Insert substring into new position ShiftedString = ShiftedString.Insert(PositionToShift + PlacesToShift, _ SubString) Return ShiftedString End Function