十年網站開發(fā)經驗 + 多家企業(yè)客戶 + 靠譜的建站團隊
量身定制 + 運營維護+專業(yè)推廣+無憂售后,網站問題一站解決
t = "1234a789405450"

成都創(chuàng)新互聯(lián)公司成都網站建設專業(yè)公司,是成都網站制作公司,為會所設計提供網站建設服務,有成熟的網站定制合作流程,提供網站定制設計服務:原型圖制作、網站創(chuàng)意設計、前端HTML5制作、后臺程序開發(fā)等。成都網站營銷推廣熱線:028-86922220
tt = InStr(t, "a") - 1
If tt 1 Then
t = Mid(t, 1, tt)
MsgBox t
End If
Dim?regex=New?System.Text.RegularExpressions.Regex("\(([^\)]*)\)")
Dim?s=?regex.Replace("(111)k(222)","$1")
'定義一個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中的Text2.Text字符刪除
Private Sub Command1_Click()
Dim s As String
s = find(Text1.Text, Text2.Text)
Text1.Text = s
End Sub