主题：关于狐表的正则表达式提取

Dim str As String = "张三20%"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str,"[^0-9\%]+")
If mc.count >= 1 Then
    msgbox(mc(0).value)
End If
mc = System.Text.RegularExpressions.Regex.Matches(str,"[0-9\%]+")
If mc.count >= 1 Then
    msgbox(mc(0).value)
End If

黄色：是固定的语法，不需要理解；

红色：不同格式的提取，就修改红色字符即可

Dim mc = System.Text.RegularExpressions.Regex.Matches(str,"\d{4}-\d{1,2}-\d{1,2}")

改成

Dim str As String = e.DataRow("关键词")

Dim mc = System.Text.RegularExpressions.Regex.Matches(str,"\d{4}-\d{1,2}-\d{1,2}")

必须要加count的判断。如果count=0的话，意思就是没有找到匹配你正则格式的内容，这个时候，就不能提取获得的内容。