主题：[求助]正则提取单元格字符串

1、相同的单位名称肯定覆盖；例子没问题。

2、第二组代理人修改代码

'''
If e.DataCol.name = "诉讼参加人" Then
    Dim str As String = e.NewValue
    If str > "" Then
        Dim ary() As String = str.Replace("被告", "@").split("@")
        For i As Integer = 0 To ary.length-1
            str = ary(i)
            If str > "" Then
                msgbox(str)
                Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=^).*?(?=。)")   '提取被告单位名称
                Dim mc1 = System.Text.RegularExpressions.Regex.Matches(str, "(?<=法定代表人).*?(?=。)")   '提取被告法定代表人
                Dim mc2 = System.Text.RegularExpressions.Regex.Matches(str, "(?<=委托代理人).*?(?=。)")   '提取被告委托代理人
               
                Dim s As String = mc(0).value
                Dim dr = DataTables("当事人信息表").Find("[单位名称] = '" & s.split("，")(0) & "'")      '到信息表去找
                If dr Is Nothing Then
                    dr = DataTables("当事人信息表").AddNew
                End If
               
                dr("单位名称") = s.split("，")(0)
                dr("住所地") = s.split("，")(1)
                s = mc1(0).value
                dr("法定代表人") = s.split("，")(0)
                dr("职务") = s.split("，")(1)
                s = mc2(0).value
                dr("委托代理人1") = s.split("，")(0)
                dr("代理人单位1") = s.split("，")(1)
                s = mc2(1).value
                dr("委托代理人2") = s.split("，")(0)
                dr("代理人单位2") = s.split("，")(1)
            End If
        Next
       
    End If
End If

1、判断一下

If mc2.count >= 2 then

    s = mc2(1).value
    dr("委托代理人2") = s.split("，")(0)
    dr("代理人单位2") = s.split("，")(1)

End If

2、

Dim ary() As String = str.Replace("被告", "@").split("@")

改成

Dim ary() As String = str.Replace("上诉人（一审被告）", "@").replace("上诉人（一审被告）", "@").split("@")

1、第一个委托人，属于【高新技术产业开发区管理委员会】的；第二个委托人，属于【市公安局高新技术产业开发区分局】的，分别是各自【第一个委托人】

2、上传实例说明问题。