vb.net消除字符串 vbs去除字符串的所有空格

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

'定义一个find函数

成都创新互联是专业的沿滩网站建设公司，沿滩接单;提供成都网站设计、成都网站建设、外贸网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行沿滩网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

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中的Text2.Text字符删除

Private Sub Command1_Click()

Dim s As String

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

Text1.Text = s

End Sub

最好的办法：

Dim aa As String = "123456789"

MsgBox(aa.Substring(7))

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

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

新闻名称：vb.net消除字符串 vbs去除字符串的所有空格
路径分享：http://6mz.cn/article/doeojid.html