'定義一個find函數
成都創新互聯專注為客戶提供全方位的互聯網綜合服務,包含不限于成都網站制作、做網站、外貿營銷網站建設、大安市網絡推廣、微信小程序開發、大安市網絡營銷、大安市企業策劃、大安市品牌公關、搜索引擎seo、人物專訪、企業宣傳片、企業代運營等,從售前售中售后,我們都將竭誠為您服務,您的肯定,是我們最大的嘉獎;成都創新互聯為所有大學生創業者提供大安市建站搭建服務,24小時服務熱線:18980820575,官方網址:vcdvsql.cn
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
string.SubString(string,string.Length-1)
or
string.Remove(string.Length - 1)
一個字符一個字符的判斷,空格就刪除,非空格就保留
一個字符一個字符的判斷,空格就刪除,非空格就保留
一個字符一個字符的判斷,空格就刪除,非空格就保留
一個字符一個字符的判斷,空格就刪除,非空格就保留
一個字符一個字符的判斷,空格就刪除,非空格就保留
一個字符一個字符的判斷,空格就刪除,非空格就保留
Dim?regex=New?System.Text.RegularExpressions.Regex("\(([^\)]*)\)")
Dim?s=?regex.Replace("(111)k(222)","$1")
分享題目:vb點虐
去除字符串 vb中用于去掉字符串左邊空格的函數是
分享網址:http://vcdvsql.cn/article10/ddeisgo.html
成都網站建設公司_創新互聯,為您提供商城網站、外貿網站建設、動態網站、網站維護、定制網站、微信公眾號
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯