主题：提取中间字符串代码怎么写

代码改成

If e.DataCol.Name = "第一列"
    If e.NewValue = Nothing Then
        e.DataRow("第二列") = Nothing
    Else
        Dim str = e.NewValue
        Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=发放帐号.{1})[0-9]+")
        If mc.count > 0 Then
            e.DataRow("第二列") = mc(0).value
        Else
            e.DataRow("第二列") = Nothing
           
        End If
    End If
End If

参考

http://www.runoob.com/regexp/regexp-syntax.html