vb.net删除字符串 vbnet去除字符串空格

vb编写一个函数，删除一个字符串中的特定字符

'定义一个find函数

Private Function find(s1 As String, s2 As String) As String

Dim i As Integer

For i = 1 To Len(s1)

If i = InStr(1, s1, s2, vbTextCompare) Then

find = Left(s1, i - 1) Right(s1, Len(s1) - Len(s2) - i + 1)

Exit Function

End If

Next i

find = s1

End Function

'将Text1.Text中vb.net删除字符串的Text2.Text字符删除

Private Sub Command1_Click()

Dim s As String

s = find(Text1.Text, Text2.Text)

Text1.Text = s

End Sub

相关问答

Q1: vb.net比较简单的方法删除指定的字符串

     Dim regex=New System.Text.RegularExpressions.Regex("\(([^\)]*)\)")

     Dim s= regex.Replace("(111)k(222)","$1")

Q2: vb.net编写一个为列表框添加删除选项的应用程序，如果该字符串在列表框中，

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If e.KeyChar.ToString() = Chr(13) Then

Dim str As String = TextBox1.Text

If Not ListBox1.Items.Contains(str) Then

ListBox1.Items.Add(str)

End If

End If

End Sub

Private Sub btn_Remove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If ListBox1.SelectedIndex 0 Then

ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)

End If

End Sub

Private Sub btn_Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

ListBox1.Items.Clear()

End Sub

Q3: vb.net 怎么删除一字符串中前7个字符？

最好的办法：

Dim aa As String = "123456789"

MsgBox(aa.Substring(7))

Q4: 请问vb中要删除字符串最后一个字符怎么做？

有两种方法:

1.用right函数,从字符串右边取出的指定数量的字符.

right(string,

length)

取最后一位

a

=

"abc123"

d

=

right(a,1)

取最后二位

d

=

right(a,2)

取最后第二位

d

=

right(a,2,1)

2.用mid函数

返回

variant

(string)，其中包含字符串中指定数量的字符。

语法

mid(string,

start[,

length])

此发先要用len函数确定字符串长度,然后才能确定起始位,例:

a

=

"abc123"

取最后一位

d

=

mid(a,len(a),1)

取最后二位

d

=

mid(a,len(a)-1,2)

取最后第二位

d

=

mid(a,len(a)-1,1)

后一种在取每位字符时配合for

next循环更有用.

vb.net删除字符串的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet去除字符串空格、vb.net删除字符串的信息别忘了在本站进行查找喔。