有啊,用正则表达式,下面是简单的例子
创新互联公司于2013年创立,是专业互联网技术服务公司,拥有项目网站制作、成都做网站网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元通许做网站,已为上家服务,为通许各地企业和个人服务,联系电话:18980820575
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String = "ABCDAEAFAG"
Dim Patter As String = "A"
Dim Matches As MatchCollection = Regex.Matches(str, Patter, RegexOptions.IgnoreCase Or RegexOptions.ExplicitCapture)
For Each ws In Matches
ListBox1.Items.Add("索引位置:" ws.index)
Next
End Sub
End Class
正则表达式:“第\S{1,3}次”
1-3表示第和次之间可能存在1-3个字符。
For Each i In System.Text.RegularExpressions.Regex.Matches("你的内容第一次第三次第十四次第七十七次替换为", "第\S{1,3}次")
MsgBox(i.value())
Next
很简单,用字符串查找函数就可以实现了。\x0d\x0a当在StrB查找到StrA字符串时,返回肯定是非0的数,值就是True,找不到为0或者-1,值就是Flase\x0d\x0a\x0d\x0a比如:\x0d\x0aDim StrA As String = "Time is Limited"\x0d\x0aDim StrB As String = "Time"\x0d\x0aDim Stu As Boolean= InStr(StrA, StrB)\x0d\x0a\x0d\x0a这运行段代码,Stu值就是True了。\x0d\x0a我觉得这样最简单有效。