如何只保留字符串【】中的内容，其它内容全部删除呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

执行代码一：

Dim ab1 As DataRow= DataTables("信息模板").SQLFind("适用人员='案件承办人'and 流程名称='审查逮捕'")

output.show(ab1("模板内容"))

得到:

【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案,【移送机关】于【受理日期】移送我院【流程名称】,根据系统轮案规则,现由你进行办理,请在【到期日期】前,办理完毕!有疑问请咨询案管办【案管办电话】!请参考:【法律法规】

执行代码二：

Dim Parts() As String = ab1("模板内容").Split("】")

For i As Integer = 0 To Parts.length -1

Output.Show(Parts(I)&"】")

得到:

【姓名】

您好!【嫌疑人姓名】

涉嫌【涉嫌案由】

一案,【移送机关】

于【受理日期】

移送我院【流程名称】

,根据系统轮案规则,现由你进行办理,请在【到期日期】

前,办理完毕!有疑问请咨询案管办【案管办电话】

!请参考:【法律法规】

想达到的效果：

不管模板内容中有好多个【**】的内容，能够自动对应生成对应数量的【】内容

效果如下：

【嫌疑人姓名】

【涉嫌案由】

【移送机关】

【受理日期】

【流程名称】

【到期日期】

【案管办电话】

【法律法规】

[此贴子已经被作者于2019/4/14 12:19:06编辑过]

这个意思？

Dim str As String = "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案"
str = str.Replace("【姓名】", "123").Replace("【嫌疑人姓名】", "abc")
msgbox(str)

不是哦是要拆分成如下：（有点甜老师你的那是替换哦！）

【嫌疑人姓名】

【涉嫌案由】

【移送机关】

【受理日期】

【流程名称】

【到期日期】

【案管办电话】

【法律法规】

Dim str As String = "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "【.*?】")
For i As Integer = 0 To mc.count-1
output.show(mc(i).value)
Next

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

For j As Integer = 0 To p1.Count - 1

Output.Show(s.SubString(p1(j),p2(j)-p1(j)+1))

'再或利用字典的键值对获得每对方括号的位置也可。

Dim dic As New Dictionary(Of Integer,Integer),p As Integer

For i As Integer = 0 To s.Length - 1

Select Case s.Chars(i)

Case "【"

p = i

Case "】"

dic(p) = i

End Select

For Each j As Integer In dic.Keys

Output.Show(s.SubString(j,dic(j)-j+1))

主题：如何只保留字符串【】中的内容，其它内容全部删除呢？