重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim num As Integer '次数
创新互联成立于2013年,是专业互联网技术服务公司,拥有项目成都做网站、成都网站建设网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元汕城做网站,已为上家服务,为汕城各地企业和个人服务,联系电话:18982081108
For i = 1 To Len(strText)
If Mid(strText, i, 5) = "index" Then
num = num + 1
i = i + 4
End If
Next
richtextbox有两种属性可以显示内容:分别是text和lines~~
text属性是对于单行,不需换行的~~
lines属性是对于多行的,他是一个数组~~
对于text属性可以使用以下代码:
Dim
A
As
Integer
A
=
InStr(RichTextBox1.Text,
"查找字符")
变量A就是字符起始位置
lines属性是一个数组可以用循环每行比对
正则表达式:“第\S{1,3}次”
1-3表示第和次之间可能存在1-3个字符。
For Each i In System.Text.RegularExpressions.Regex.Matches("你的内容第一次第三次第十四次第七十七次替换为", "第\S{1,3}次")
MsgBox(i.value())
Next
for i as integer =0 to listbox1.items.count-1
if instr(listbox1.items(i).tostring(),textbox1.text)0 then
textbox2.text=listbox1.items(i).tostring()
exit for
end if
next