当前位置:首页 > 编程学习 > VB.NET中如何扩充字符串进行固定宽度显示

VB.NET中如何扩充字符串进行固定宽度显示

编程学习2007-05-3161040

  在VB.NET中,当你需要在控制台显示数据或准备好打印数据时,可能需要调整列宽以显示固定长度的数据。本文介绍了使用String对象的PadLeft方法和PadRight方法扩充字符串以进行固定宽度显示。


PadLeft和PadRight方法

     PadLeft和PadRight是字符串类的两个方法,可以分别使用它们在字符串的左边和右边填充空格。这两个方法多接受一个代表总长度的整型数,添加的空格数等于填充总长度减去字符串的当前长度。

     注意:在完成将字符串格式化为固定宽度显示的工作时,应该使用固定宽度的字体,例如Courier等,因为固定宽度的字符占有相同的宽度。否则,填充将会无效。

     程序员经常使用的另一个替代方法是使用tab字符来获得近似固定宽度显示格式。使用tabs的一个问题是,当某行长度比能够显示的长度长时,将会对tab进行扩展,这将导致各行不能很好对齐。


     下面代码我们为大家介绍了如何使用PadLeft和PadRight方法显示字符串。(为了运行该例子,我们添加了一个下拉列表ListBox1并将它的字体设置为固定宽度的字体)

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


图一显示了运行代码后的结果。

VB.NET中如何扩充字符串进行固定宽度显示  .NET 编程 第1张

图一


在本例中,我们定义了一个整型变量i和两个字符串数组:strArrSeasons和strArrWeather。每个数组赋初值为预定义好的值;然后,我们将每个数组传递给函数PadArray,并指定在字符串的左侧扩充。


扫描二维码推送至手机访问。

版权声明:本文由海阔天空发布,如需转载请注明出处。

本文链接:https://apull.net/html/20070531101.html

标签: .NET编程
分享给朋友:
返回列表

上一篇:密码的故事

下一篇:MD5加密VB版

相关文章

年纪偏大是否适合学习计算机

年纪偏大是否适合学习计算机

★年纪偏大是否适合学习计算机  Q:我本科不是学计算机专业。但是我对计算机的兴趣很大,想明年考北京大学计算机软件的研究生!请问像我这样快30岁的人了,才开始学习计算机是不是太晚了?  A:中国很多人相信程序员是吃青春饭的。 这主要是由中国软件水平发展的现状决定的。 1、大部分都做的是行业管理方面的软件,从计算机技术上说很快就可以进入。 2、很多公司没有管理和技术双重的提升机制,使得人们觉得做管理比做技术有前途,但是仍...

MD5加密VB版

MD5加密VB版

'MD5加密VB版 '调用方法:str=MD5("Apull",32),就能得到"Apull"的32位的MD5。 Private m_lOnBits(30) Private m_l2Power(30) Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private Fu...

制作网页28个常用小代码

制作网页28个常用小代码

1、oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键<table border oncontextmenu=return(false)><td>no</table>  可用于Table2、<body onselectstart="return false"> 取消选取、防止复制3、onpaste="retu...

在ASP中访问和更新Cookies集合

在ASP中访问和更新Cookies集合

  Cookies的值比ASP其他集合(例如Form和ServerVariables)的值要复杂得多。Cookie是一小块由浏览器存贮在客户端系统上的文本,且随同每次请求发往它们应用于的域中的服务器。  ASP使得应用cookie较为容易,可以从Request对象的Cookies集合中获得所有随同请求发出的cookie值,并可创建或修改cookie,通过Response对象的Cookies集合发回给用户。  Cookie包含可用两种方式构造的信息,单值cookie提供其值给代...