String Normalization – To Fixed Width

Returns a string with exactly width characters: it truncates if longer; otherwise it pads on the right with the specified character.

    Public Function ToFixedWidth(value As String, width As Integer, 
                                 Optional padChar As Char = " "c) As String
        If value Is Nothing Then value = String.Empty

        ' Guard clauses
        If width <= 0 Then Return String.Empty
        If value.Length > width Then
            value = value.Substring(0, width)
        End If

        Return value.PadRight(width, padChar)
    End Function

    Public Function ToFixedWidth(value As String, width As Integer, 
                                 Optional padChar As Char = " "c) As String
        If value Is Nothing Then value = String.Empty

        ' Guard clauses
        If width <= 0 Then Return String.Empty
        If value.Length > width Then
            value = value.Substring(0, width)
        End If

        Return value.PadRight(width, padChar)
    End Function

Posted by ipercube