在VBNET中當你需要在控制台顯示數據或准備好打印數據時可能需要調整列寬以顯示固定長度的數據本文介紹了使用String對象的PadLeft方法和PadRight方法擴充字符串以進行固定寬度顯示
PadLeft和PadRight方法
PadLeft和PadRight是字符串類的兩個方法可以分別使用它們在字符串的左邊和右邊填充空格這兩個方法多接受一個代表總長度的整型數添加的空格數等於填充總長度減去字符串的當前長度
注意在完成將字符串格式化為固定寬度顯示的工作時應該使用固定寬度的字體例如Courier等因為固定寬度的字符占有相同的寬度否則填充將會無效
程序員經常使用的另一個替代方法是使用tab字符來獲得近似固定寬度顯示格式使用tabs的一個問題是當某行長度比能夠顯示的長度長時將會對tab進行擴展這將導致各行不能很好對齊
列表A中我們為大家介紹了如何使用PadLeft和PadRight方法顯示字符串(為了運行該例子我們添加了一個下拉列表ListBox並將它的字體設置為固定寬度的字體)圖顯示了運行列表A中的代碼後的結果
在本例中我們定義了一個整型變量i和兩個字符串數組strArrSeasons和strArrWeather每個數組賦初值為預定義好的值然後我們將每個數組傳遞給函數PadArray並指定在字符串的左側擴充
列表A
Private Sub PadStrings()
Dim i As Integer =
Dim strArrSeasons() AsString = {Winter Spring Summer Fall}
Dim strArrWeather() AsString = {Cold Warm Hot Cool}
PadArray(strArrSeasons True)
PadArray(strArrWeather False)
Dim strAll As String
For i = To strArrSeasonslength ?
ListBoxItemsAdd(strArrSeasons(i) & ? & strArrWeather(i))
Next
End Sub
Private Sub PadArray(ByRef strArray() As String ByVal bPadLeft As Boolean)
Dim i As Integer =
Dim iMaxLength As Integer =
Dim strItem As String
For Each strItem In strArray
If strItemLength > iMaxLength Then iMaxLength = strItemLength
Next
For i = To strArrayLength ?
If bPadLeft = TrueThen
strArray(i) = strArray(i)PadLeft(iMaxLength)
Else
strArray(i) = strArray(i)PadRight(iMaxLength)
End If
Next
End Sub
From:http://tw.wingwit.com/Article/program/net/201311/11703.html