以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]正则表达式  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124080)
--  作者：kaiyu
--  发布时间：2018/8/30 11:26:00
--  [求助]正则表达式

老师，我想在某列录入数据时做过限制，只能录入下面这种格式数据：

00001

00001，00002

00001，00002，00003

。。。。

请问这个正则表达式该如何写
--  作者：有点甜
--  发布时间：2018/8/30 12:10:00
--  

参考

 

Dim str1 As String = "00001,00002,00003"
Dim str2 As String = ""
For Each s As String In str1.split(",")
    str2 &= "[0-9]{5},"
Next
str2 = "^" & str2.trim(",") & "$"
Dim rgx = new System.Text.RegularExpressions.Regex(str2, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
If rgx.isMatch(str1) Then
    msgbox("匹配")
Else
    msgbox("不匹配")
End If