重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
一个字符一个字符的判断,空格就删除,非空格就保留
创新互联建站专注于企业成都全网营销、网站重做改版、墨玉网站定制设计、自适应品牌网站建设、H5页面制作、商城网站建设、集团公司官网建设、外贸网站制作、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为墨玉等各大城市提供网站开发制作服务。
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
'定义一个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
Dim regex=New System.Text.RegularExpressions.Regex("\(([^\)]*)\)")
Dim s= regex.Replace("(111)k(222)","$1")