'''
If e.DataCol.name = "原告" Then
Dim lst As List (of String) = e.DataRow.Lines("原告")
Dim lst1 As new List (of String) For Each ls As String In lst
If ls.Contains("委托代理人") And ls.StartsWith("委托代理人") = False Then '包含“委托代理人”，但不在句首
Dim i1 = ls.indexOf("委托代理人") '出现的位置
ls = ls.Remove(0, i1+1) '去掉前面的字
......
ElseIf ls.StartsWith("委托代理人") = True And ls.Contains("（") And ls.Contains("）") Then '句首包含“委托代理人”，并且包含括号
Dim i1 = ls.indexOf("（") '括号开始位置
Dim i2 = ls.indexOf("）") '括号结束位置
ls = ls.Remove(i1, i2-i1+1) '清除括号内容
......
End If
lst1.add(ls)
Next
e.DataRow.Lines("原告") = lst1
End If
加好友 
发短信
Post By：2019/7/29 21:17:00 [显示全部帖子]
