在VB NET中 当你需要在控制台显示数据或准备好打印数据时 可能需要调整列宽以显示固定长度的数据 本文介绍了使用String对象的PadLeft方法和PadRight方法扩充字符串以进行固定宽度显示
创新互联建站专注于洛江网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供洛江营销型网站建设，洛江网站制作、洛江网页设计、洛江网站官网定制、小程序制作服务，打造洛江网络公司原创品牌,更为您提供洛江网站排名全网营销落地服务。
PadLeft和PadRight方法
PadLeft和PadRight是字符串类的两个方法 可以分别使用它们在字符串的左边和右边填充空格 这两个方法多接受一个代表总长度的整型数 添加的空格数等于填充总长度减去字符串的当前长度
注意 在完成将字符串格式化为固定宽度显示的工作时 应该使用固定宽度的字体 例如Courier等 因为固定宽度的字符占有相同的宽度 否则 填充将会无效
程序员经常使用的另一个替代方法是使用tab字符来获得近似固定宽度显示格式 使用tabs的一个问题是 当某行长度比能够显示的长度长时 将会对tab进行扩展 这将导致各行不能很好对齐
列表A中 我们为大家介绍了如何使用PadLeft和PadRight方法显示字符串 （为了运行该例子 我们添加了一个下拉列表ListBox 并将它的字体设置为固定宽度的字体）图 显示了运行列表A中的代码后的结果
在本例中 我们定义了一个整型变量i和两个字符串数组 strArrSeasons和strArrWeather 每个数组赋初值为预定义好的值 然后 我们将每个数组传递给函数PadArray 并指定在字符串的左侧扩充
列表A
lishixinzhi/Article/program/net/201311/11703
x="a[11dsfsf]b"
b=x.lastindexof("]")
a=x.indexof("[")
x=x.substring(0,a) "0" x.substring(b)
字符串的操作应用
[vb]
Module Module
Sub Main()
定义 个字符串变量
Dim str str str As String
给str str 付初值
str = Hello : str = World
Console WriteLine( 方法Concat )
连接一个或多个字符串
Console WriteLine( str ={ } str ={ } String Concat(str str )={ } str str String Concat(str str ))
判断字符串中是否具有相同的值返回类型为布尔型
Console WriteLine( 方法Equals )
Console WriteLine( str ={ } str ={ } String Equals(str )={ } str str str Equals(str ))
在字符串中指定索引位置插入指定的字符串
Console WriteLine( 方法Insert )
str = : str = aaa
Console WriteLine( str ={ } str ={ } str Insert( str )={ } str str str Insert( str ))
左右对齐字符串中的字符
Console WriteLine( 方法PadLeft/PadRight )
str = World : str = 世界
Console WriteLine( str ={ } str )
Console WriteLine( str PadLeft( * )={ } str PadRight( * )={ } str PadLeft( * ) str PadRight( * ))
Console WriteLine( str ={ } str )
Console WriteLine( str PadLeft( * )={ } str PadRight( * )={ } str PadLeft( * ) str PadRight( * ))
找出指定字符串或字符转在此字符串中的第一个 最后一个匹配项的索引位置
Console WriteLine( 方法IndexOf/LastIndexOf )
str = Visual Basic NET ASP NET C# NET
Console WriteLine( str ={ } str )
Console WriteLine( str IndexOf( NET )={ } str LastIndexOf( NET )={ } str IndexOf( NET ) str LastIndexOf( NET ))
将字符串中的字符复制到字符串数组
Console WriteLine( 方法ToCharArray )
str = str ToCharArray(str IndexOf( NET ) )
Console WriteLine( str ={ } str )
Console WriteLine( str ToCharArray(str IndexOf( NET ) )={ } str )
在指定字符串数组的每个元素之间串联指定的分隔符 产生单个串联的字符串
Console WriteLine( 方法Join )
Dim myArray( ) As String
myArray( ) = I : myArray( ) = am : myArray( ) = a : myArray( ) = student
For i As Integer = To
Console Write( myArrat({ })={ } i myArray(i))
Next
Console WriteLine()
Console WriteLine( String Join( * myArray)={ } String Join( * myArray))
此字符串中删除指定个数字符
Console WriteLine( 方法Remove )
str =
Console WriteLine( str ={ } str Remove( )={ } str str Remove( ))
将此字符串指定字符串字符的所有匹配项代替为其他指定字符串
Console WriteLine( 方法Replace )
str =
str = abc
Console WriteLine( str ={ } str ={ } str ={ } str Replace(str str )={ } str str str str Replace(str str ))
从此字符串检索字符串
Console WriteLine( 方法SubString )
Console WriteLine( str ={ } str Substring( )={ } str str Substring( ))
Console ReadLine()
End Sub
lishixinzhi/Article/program/net/201311/13956
文本框 TextBox1
上一条 Button1
下一条 Button2
修改 Button3
Imports System.IO
Public Class Form1
Dim currIndex As Integer = 0
Dim s2 As List(Of String) = New List(Of String)
Dim s As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
s = File.ReadAllText(Application.StartupPath "\txt.txt")
Dim s1 As String() = s.Split("@")
For i As Integer = 0 To s1.Length - 1
If s1(i).Trim() "" Then
s2.Add("@" s1(i))
End If
Next
TextBox1.Text = s2(0)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
currIndex = currIndex + 1
If currIndex s2.Count - 1 Then
MsgBox("已经是最后条了")
Return
End If
TextBox1.Text = s2(currIndex)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
currIndex = currIndex - 1
If currIndex 0 Then
MsgBox("已经是第一条了")
Return
End If
TextBox1.Text = s2(currIndex)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
s2(currIndex) = TextBox1.Text
s = ""
For i As Integer = 0 To s2.Count - 1
s = s2(i)
Next
File.WriteAllText(Application.StartupPath "\txt.txt", s)
End Sub
End Class
