[已解决]求修改一个正则表达式

非池中

我写的正则表达式：\d{4}(-\d+)*

用来匹配形如：1001，1001-1，1001-1-3421，1001-1-2341-3，9862-3-3-1-223-1这样的字符串，规律是各段数字用“-”分隔，第一段一定是四位，后面各段位数不固定，几段也不固定。

但是现在我的正则表达式连10000这样的也匹配进去了，而像1001-1-2341-3这样的则匹配成了1001-1-2341，求高手帮忙修改正则表达式。

谢谢。

最佳答案

月排行榜 / 总排行榜

香川群子

2015-3-27 16:32

非池中 发表于 2015-3-27 15:42
怎么能保证把像第一段是非四位数字剃除出去？像10000这样的。

.Pattern = "\d{4}-\d+(-\d+)*"

自定义函数：

1. Function TQ$(txt$)
   
2.     With CreateObject("VBScript.RegExp")
   
3.         .Pattern = "\d{4}-\d+(-\d+)*"
   
4.         If .test(txt) Then TQ = .Execute(txt)(0)
   
5.     End With
   
6. End Function

复制代码

效果：
10000 不匹配，
其余 xxxx-xx-xxx-x都可以匹配。

跳转到最佳答案楼层

26759761@qq.com

貌似没问题啊

非池中

26759761@qq.com 发表于 2015-3-27 15:05
貌似没问题啊

我也找不到问题，可是像10000不应该匹配的也匹配进去了。像2313-1-2312-2这样的匹配不正确。

yuxirp

mid（），find（），SUBSTITUTE(）函数结合实现
也可以直接分列就行

JLxiangwei

非池中 发表于 2015-3-27 15:15
我也找不到问题，可是像10000不应该匹配的也匹配进去了。像2313-1-2312-2这样的匹配不正确。

我写的这个和你的那个差不多，你那个应该也没有问题

非池中

JLxiangwei 发表于 2015-3-27 15:24
我写的这个和你的那个差不多，你那个应该也没有问题

怎么能保证把像第一段是非四位数字剃除出去？像10000这样的。

香川群子

非池中 发表于 2015-3-27 15:42
怎么能保证把像第一段是非四位数字剃除出去？像10000这样的。

.Pattern = "\d{4}-\d+(-\d+)*"

自定义函数：

1. Function TQ$(txt$)
   
2.     With CreateObject("VBScript.RegExp")
   
3.         .Pattern = "\d{4}-\d+(-\d+)*"
   
4.         If .test(txt) Then TQ = .Execute(txt)(0)
   
5.     End With
   
6. End Function

复制代码

效果：
10000 不匹配，
其余 xxxx-xx-xxx-x都可以匹配。

liu-aguang

非池中 发表于 2015-3-27 15:42
怎么能保证把像第一段是非四位数字剃除出去？像10000这样的。

\b\d{4}(-\d+)*\b