如何在.Net中将字符串格式化为固定宽度字段?

B P*_*ete 6 .net vb.net

我正在尝试将任意长度的字符串格式化为固定宽度字段以供显示.

我们使用宽度20作为示例,并调用要格式化的字符串s.我将格式化的字符串添加到名为b的StringBuilder中.

Dim b As New System.Text.StringBuilder()
Dim s as New String
Run Code Online (Sandbox Code Playgroud)

如果我要显示的字符串短于20个字符,我可以这样做:

b.Append(s.PadRight(20))
Run Code Online (Sandbox Code Playgroud)

要么

b.AppendFormat("{0,-20}", s)
Run Code Online (Sandbox Code Playgroud)

到现在为止还挺好.但是,如果字符串超过20个字符,我希望字符串在被追加时被截断为20个字符.上面的代码附加整个字符串.

我试过这个:

b.Append(s.Substring(0,20).PadRight(20))
Run Code Online (Sandbox Code Playgroud)

但是,如果字符串短于20个字符,则会触发异常.

所以,我最终得到:

b.Append(s.PadRight(20).Substring(0,20))
Run Code Online (Sandbox Code Playgroud)

这似乎做了这个工作.PadRight通过确保在执行Substring之前字符串有20个字符来防止异常.

我想知道是否有一个替代方法看起来更优雅,并避免填充字符串只是为了防止子字符串导致异常.我是否错过了一步可以完成此任务的String.Format功能?

编辑添加解决方案:

我最终得到以下代码:

Module Extensions
    <Extension()> _
    Function AppendFixed(ByVal b As StringBuilder, ByVal s As String, ByVal width As Integer) As StringBuilder
        If s.Length >= width Then
            b.Append(s, 0, width)
        Else
            b.Append(s)
            b.Append(" ", width - s.Length)
        End If
        Return b
    End Function
End Module
Run Code Online (Sandbox Code Playgroud)

这使用扩展方法来清理语法,如Joel和Merlyn所建议的那样,并使用StringBulider Append重载来避免创建必须进行垃圾收集的新字符串,如supercat所建议的那样.感谢那些有帮助的人.

Joe*_*orn 6

我想知道是否有一种替代方法看起来更优雅并避免填充字符串

(重点补充)

<Extension()> _
Public Function AppendFixed(ByVal target As StringBuilder, ByVal value As String, ByVal desiredLength As Integer) As StringBuilder
    If value.Length < desiredLength Then value.PadRight(desiredLength)
    Return target.Append(value.Substring(0,desiredLength))
End Function
Run Code Online (Sandbox Code Playgroud)

要使用它:

b.AppendFixed(s, 20)
Run Code Online (Sandbox Code Playgroud)