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