vb.net中修改字符串 vb 替换字符串

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

在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

vb.net字符串 替换

x="a[11dsfsf]b"

b=x.lastindexof("]")

a=x.indexof("[")

x=x.substring(0,a) "0" x.substring(b)

vb.net字符串的操作应用

字符串的操作应用

[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

vb.Net对文件指定字符串的修改

文本框 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