正则表达式：“第\S{1,3}次”
公司主营业务：网站建设、成都做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联建站是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联建站推出北川羌族免费做网站回馈大家。
1-3表示第和次之间可能存在1-3个字符。
For Each i In System.Text.RegularExpressions.Regex.Matches("你的内容第一次第三次第十四次第七十七次替换为", "第\S{1,3}次")
MsgBox(i.value())
Next
RichTextBox1.SelectionStart = RichTextBox1.Text.IndexOf(string3,RichTextBox1.SelectionStart1)
这样可以查找多个重复的值.但是到最后没有的时候就会提示:InvalidArgument=“-1”的值对于“SelectionStart”无效。
参数名: SelectionStart
怎么搞定.查找就是这个问题不能解决,至于替换感谢你们提供的replace.
wuyazhe 朋友,你那个我不太懂啊.而且我也不需要太复杂.现在主要的问题是查找！
步骤如下：
窗体上添加2个列表框，一个按钮：
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
'搜索并显示子文件夹
ListBox1.Items.Clear()
For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)
ListBox1.Items.Add(MySubDir)
Next
'搜索并显示文件
ListBox2.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)
ListBox2.Items.Add(MyFile)
Next
End Sub
End Class
