4楼(“有点甜”)老师的代码精简,但涉及“正则表达式”的知识,以下代码虽不精简,但纯属Foxtable知识点
Dim s As String = "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案,【移送机关】于【受理日期】移送我院【流程名称】,根据系统轮案规则,现由你进行办理,请在【到期日期】前,办理完毕!有疑问请咨询案管办【案管办电话】!请参考:【法律法规】"
Dim p1 As New List(Of Integer)
Dim p2 As New List(Of Integer)
For i As Integer = 0 To s.Length - 1
If s.Chars(i) = "【" Then
p1.Add(i)
ElseIf s.Chars(i) = "】" Then
p2.Add(i)
End If
Next
For j As Integer = 0 To p1.Count - 1
Output.Show(s.SubString(p1(j),p2(j)-p1(j)+1))
Next