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

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

编程学习2007-05-3158100

  在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版

相关文章

VB获取光驱盘符

VB获取光驱盘符

VB获取光驱盘符Option Explicit Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _ (ByVal nDrive As String) As Long 'GetLogicalDriveStrings-->获取一个字串,其中包含了当前所有逻辑驱动器的根驱动器路径 Private Declare Function GetLogicalDriveStri...

VB.NET 用ShellExecuteEx 打开系统文件属性对话框 模块

VB.NET 用ShellExecuteEx 打开系统文件属性对话框 模块

' ' VB.NET 调用系统文件属性对话框模块 ' ' by: Apull ' QQ:374237545 ' http://www.apull.net ' 2007-6-9 ' ' Imports System.Runtime.InteropServices     Mod...

C++实现十进制转换为二进制

C++实现十进制转换为二进制

这个写得有些早了,学习c++是写的。现在看到很多帖子问这个问题,把这个贴上来供大家参考下。/* * FileName: bin.cpp * * 转换十进制为二进制 * * Apull * 2005-12-2 */ #include <iostream> #include <cstdlib> using namespace std; const int size = sizeof(int) *...

HTML与ASCII码表

HTML与ASCII码表

HTML与ASCII码表Standard ASCII set, HTML Entity names, ISO 10646, ISO 8879, ISO 8859-1  Latin alphabet No. 1Browser support: All browsersASCIIHTMLHTMLDecHexSymbolNumberNameDescription32333435363738394041424344454647202122232425262728292A2B...