将左侧单元格多行内容，转换为右侧的效果，就是去掉红框内的文字。
1、如果“委托代理人”不在句首，去掉“委托代理人”前面的字；
2、如果“委托代理人”在句首，去掉括号及其内的字。
此主题相关图片如下：截屏图片.jpg
'''
If e.DataCol.name = "原告" Then
Dim lst As List (of String) = e.DataRow.Lines("原告")
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
Next
End If
[此贴子已经被作者于2019/7/29 20:45:08编辑过]
加好友 
发短信
Post By：2019/7/29 20:09:00 [显示全部帖子]
