大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你是要把连续多个空格,变换成只需要一个空格,那么:
成都创新互联主要从事成都网站制作、成都网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务金秀,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格,替换2个空格
loop
它本身是没法忽略空格这个功能的,只能在MID取出字符后判断是不是空格,是就放弃这个就可以了
‘用replace
’TextBox1输入
‘TextBox2输出
Dim Num As String
Num = TextBox1.Text
Num = Num.Replace(" ", "")
TextBox2.Text = Num
这个应该可以,已经通过VB2010测试:
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text "" Then
If Microsoft.VisualBasic.Right(TextBox1.Text, 1) = "/" Or Microsoft.VisualBasic.Right(TextBox1.Text, 1) = "*" Or _
Microsoft.VisualBasic.Right(TextBox1.Text, 1) = "?" Or Microsoft.VisualBasic.Right(TextBox1.Text, 1) = "" Or _
Microsoft.VisualBasic.Right(TextBox1.Text, 1) = "" Then
TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)
TextBox1.SelectionStart = Len(TextBox1.Text)
End If
End If
End Sub
For Each MyHtml As HtmlElement In WebBrowser1.Document.GetElementsByTagName("abc")
If MyHtml.GetAttribute("bcd") = "123" Then
For Each MyDel As HtmlElement In WebBrowser1.Document.GetElementsByTagName("p")
MyDel.InnerText = "要换成的内容"
Next
End If
Next
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留