执行代码一：
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)&"】")
Next
得到:
【姓名】
您好!【嫌疑人姓名】
涉嫌【涉嫌案由】
一案,【移送机关】
于【受理日期】
移送我院【流程名称】
,根据系统轮案规则,现由你进行办理,请在【到期日期】
前,办理完毕!有疑问请咨询案管办【案管办电话】
!请参考:【法律法规】
想达到的效果：
不管模板内容中有好多个【**】的内容，能够自动对应生成对应数量的【】内容
效果如下：
【嫌疑人姓名】
【涉嫌案由】
【移送机关】
【受理日期】
【流程名称】
【到期日期】
【案管办电话】
【法律法规】
[此贴子已经被作者于2019/4/14 12:19:06编辑过]
加好友 
发短信
Post By：2019/4/14 12:13:00 [显示全部帖子]
