VB.NET中如何扩充字符串进行固定宽度显示
2009-08-19 09:29
295 查看
在VB.NET中,当你需要在控制台显示数据或准备好打印数据时,可能需要调整列宽以显示固定长度的数据。本文介绍了使用String对象的PadLeft方法和PadRight方法扩充字符串以进行固定宽度显示。
PadLeft和PadRight方法
PadLeft和PadRight是字符串类的两个方法,可以分别使用它们在字符串的左边和右边填充空格。这两个方法多接受一个代表总长度的整型数,添加的空格数等于填充总长度减去字符串的当前长度。
注意:在完成将字符串格式化为固定宽度显示的工作时,应该使用固定宽度的字体,例如Courier等,因为固定宽度的字符占有相同的宽度。否则,填充将会无效。
程序员经常使用的另一个替代方法是使用tab字符来获得近似固定宽度显示格式。使用tabs的一个问题是,当某行长度比能够显示的长度长时,将会对tab进行扩展,这将导致各行不能很好对齐。
列表A中,我们为大家介绍了如何使用PadLeft和PadRight方法显示字符串。(为了运行该例子,我们添加了一个下拉列表ListBox1并将它的字体设置为固定宽度的字体)图1显示了运行列表A中的代码后的结果。
在本例中,我们定义了一个整型变量i和两个字符串数组:strArrSeasons和strArrWeather。每个数组赋初值为预定义好的值;然后,我们将每个数组传递给函数PadArray,并指定在字符串的左侧扩充。
Code:
Private Sub PadStrings()
Dim i As Integer = 0
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 = 0 To strArrSeasons.length – 1
ListBox1.Items.Add(strArrSeasons(i) & " " & strArrWeather(i))
Next
End Sub
Private Sub PadArray(ByRef strArray() As String, ByVal bPadLeft As Boolean)
Dim i As Integer = 0
Dim iMaxLength As Integer = 0
Dim strItem As String
For Each strItem In strArray
If strItem.Length > iMaxLength Then iMaxLength = strItem.Length
Next
For i = 0 To strArray.Length – 1
If bPadLeft = TrueThen
strArray(i) = strArray(i).PadLeft(iMaxLength)
Else
strArray(i) = strArray(i).PadRight(iMaxLength)
End If
Next
End Sub
PadLeft和PadRight方法
PadLeft和PadRight是字符串类的两个方法,可以分别使用它们在字符串的左边和右边填充空格。这两个方法多接受一个代表总长度的整型数,添加的空格数等于填充总长度减去字符串的当前长度。
注意:在完成将字符串格式化为固定宽度显示的工作时,应该使用固定宽度的字体,例如Courier等,因为固定宽度的字符占有相同的宽度。否则,填充将会无效。
程序员经常使用的另一个替代方法是使用tab字符来获得近似固定宽度显示格式。使用tabs的一个问题是,当某行长度比能够显示的长度长时,将会对tab进行扩展,这将导致各行不能很好对齐。
列表A中,我们为大家介绍了如何使用PadLeft和PadRight方法显示字符串。(为了运行该例子,我们添加了一个下拉列表ListBox1并将它的字体设置为固定宽度的字体)图1显示了运行列表A中的代码后的结果。
在本例中,我们定义了一个整型变量i和两个字符串数组:strArrSeasons和strArrWeather。每个数组赋初值为预定义好的值;然后,我们将每个数组传递给函数PadArray,并指定在字符串的左侧扩充。
Code:
Private Sub PadStrings()
Dim i As Integer = 0
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 = 0 To strArrSeasons.length – 1
ListBox1.Items.Add(strArrSeasons(i) & " " & strArrWeather(i))
Next
End Sub
Private Sub PadArray(ByRef strArray() As String, ByVal bPadLeft As Boolean)
Dim i As Integer = 0
Dim iMaxLength As Integer = 0
Dim strItem As String
For Each strItem In strArray
If strItem.Length > iMaxLength Then iMaxLength = strItem.Length
Next
For i = 0 To strArray.Length – 1
If bPadLeft = TrueThen
strArray(i) = strArray(i).PadLeft(iMaxLength)
Else
strArray(i) = strArray(i).PadRight(iMaxLength)
End If
Next
End Sub
![](http://img.zdnet.com.cn/0/852/livR0vkutbBEk.gif)
相关文章推荐
- 如何让DIV在内容不固定的情况下宽度刚好显示完内容
- vb.net反射中如何将字符串转化为对象实例
- [VB.NET]如何在Datagridview中进行列间的计算?
- 如何利用VB.NET提供的方法替换字符串中的某个模式
- ASP.net:截取固定长度字符串显示在页面,多余部分显示为省略号
- 请问vb.NET中如何打印一个某一固定区域的内容?
- ASP.net:截取固定长度字符串显示在页面,多余部分显示为省略号
- [VB.NET]如何把一个图片保存到access中,又如何把它读取出来,并在picturebox中显示?
- ASP.NET - 截取固定长度字符串显示在页面,多余部分显示为省略号
- VB.NET 如何进行调用HTTP外部接口
- vb.net反射中如何将字符串转化为对象实例
- VB.Net-->如何使两个(或以上的)文本框(或NumberUpDown)显示相同的内容?
- [VB.NET]在VB2005中如何将字符串转换为类型
- [VB.NET]输出 浮点数 10 如何显示小数点儿 为 10.0呢?
- VB.net基础:如何获得并显示网上图片
- vb.net中对Repeater控件进行分页显示
- Android下如何计算要显示的字符串所占的宽度和高度
- vb.net DateTimePicker如何显示某…
- [VB.NET]如何使DataGridView中显示的内容不出现点点点(高手们帮帮忙,谢谢先)
- [VB.NET]如何通过FileListBox在PictureBox显示图片!!!!