参考代码

Dim str As String = "2017-11-30进行中订单号:222017113080215 买方:重庆市第三人民医院订单金额: 920,428.48 元"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{4}-[0-9]+-[0-9]+")
msgbox(mc(0).value)
mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{15,}")
msgbox(mc(0).value)
mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9,. ]+(?=元)")
msgbox(mc(0).value)

参考例子 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108619&skin=0

datacolchanged事件

If e.DataCol.name = "第一列" Then
    Dim str As String = e.DataRow("第一列")
    Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{4}-[0-9]+-[0-9]+")
    If mc.count > 0 Then
        e.DataRow("第二列") = mc(0).value
    Else
        e.DataRow("第二列") = Nothing
    End If
    mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{15,}")
    If mc.count > 0 Then
        e.DataRow("第三列") = mc(0).value
    Else
        e.DataRow("第三列") = Nothing
    End If
    mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9,. ]+(?=元)")
    If mc.count > 0 Then
        e.DataRow("第四列") = mc(0).value
    Else
        e.DataRow("第四列") = Nothing
    End If
End If