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

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

编程学习2007-05-3124690

  在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


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

图一


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


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

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

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

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

上一篇:密码的故事

下一篇:MD5加密VB版

相关文章

VB/VB.net 只允许运行一个实例

VB/VB.net 只允许运行一个实例

VB/VB.net  只允许运行一个实例       by:  Apull  VB中的实现方法VB如何防止程序被重复加载,也就是只允许运行一个实例,一般有2种方法。一,直接用VB提供的APP对象的PrevInstance方法。PrevInstance的返回值为True则说明已经有一个实力在运行。If App.PrevInstance Then Msgbox "已经有一个实例在运行" End if这个...

用VB类实现文件对话框

用VB类实现文件对话框

用VB类实现文件对话框'类名:ComDlg.cls '作用:文件打开保存对话框 ' ' ' 'By:Apull '2007-5-21 'http://www.apull.net Option Explicit Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _ pOpenfil...

ASP错误提示大全

ASP错误提示大全

Microsoft VBScript 语法错误(0×800A03E9)–>内存不足Microsoft VBScript 语法错误(0×800A03EA)–>语法错误Microsoft VBScript 语法错误(0×800A03EB)–>缺少’:’Microsoft VBScript 语法错误(0×800A03ED)–>缺少’(’Mi...

6个变态的C语言Hello World程序

6个变态的C语言Hello World程序

下面的六个程序片段主要完成这些事情:输出Hello, World混乱C语言的源代码下面的所有程序都可以在GCC下编译通过,只有最后一个需要动用C++的编译器g++才能编程通过。hello1.c    #define _________ } #define ________ putchar #define _______ main #define _(a) ________(a); #define ______ _______(){ #define...

发表评论

访客

看不清,换一张

◎欢迎参与讨论,请在这里发表您的看法和观点。