vb text 删除指定内容
Dimaa()AsString,bbAsStringaa=Split(Text1,vbCrLf)Fori=0ToUBound(aa)IfInStr(aa(i),"aaa"...
Dim aa() As String, bb As String
aa = Split(Text1, vbCrLf)
For i = 0 To UBound(aa)
If InStr(aa(i), "aaa") = 0 Then bb = bb & aa(i) & vbCrLf
Next
Text1 = bb
这个是删除TEXT里包含AAA行的内容， 如果删除多个类型的怎么改？ 比如删除AAA和删除BBB"aaa""bbb") 这样好像不行 展开
aa = Split(Text1, vbCrLf)
For i = 0 To UBound(aa)
If InStr(aa(i), "aaa") = 0 Then bb = bb & aa(i) & vbCrLf
Next
Text1 = bb
这个是删除TEXT里包含AAA行的内容， 如果删除多个类型的怎么改？ 比如删除AAA和删除BBB"aaa""bbb") 这样好像不行 展开
展开全部
Private Sub Command1_Click()
text1 = Replace(text1, "BBB", "")
End Sub
text1 = Replace(text1, "BBB", "")
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
