参考代码

Dim str As String = "18000-搏彩广告_碧水源宣传单2000张-157克2千张A4双面1M.pdf"
Dim ary = System.Text.RegularExpressions.Regex.split(str,"[-_.]")
msgbox(ary.length)
msgbox(ary(0))
msgbox(ary(1))
msgbox(ary(2))

参考代码

If e.DataCol.name = "资料名称" Then
    If e.newvalue > "" Then
        Dim str As String = e.newvalue
        Dim ary = System.Text.RegularExpressions.Regex.split(str,"[-_.]")
        If ary.length >= 4 Then
            e.DataRow("客户名称") = ary(1)
            e.DataRow("客户文件名") = ary(2)
            e.DataRow("产品名称") = ary(3)
        End If
    Else
        e.DataRow("客户名称") = Nothing
        e.DataRow("客户文件名") = Nothing
        e.DataRow("产品名称") = Nothing
    End If
End If