一堆日期数据 2013-11-5,2013-11-6,2013-11-8,2013-11-18,2013-11-28,2013-11-30,2013-12-18,2013-11-28,2014-1-1,2014-1-5,2014-1-8
我要一个ASP正则可以得出以下结果: 11月5,6,8,18,28,30日 12月18,28日 1月1,5,8日
谢谢
------解决方案--------------------
split，遍历然后获取日期部分
s="2013-11-5,2013-11-6,2013-11-8,2013-11-18,2013-11-28,2013-11-30,2013-12-18,2013-11-28,2014-1-1,2014-1-5,2014-1-8"
arr=split(s,",")
l=ubound(arr)
set d=server.createobject("scripting.dictionary")
for i=0 to l
p=instrrev(arr(i),"-")
dt=left(arr(i),p-1)
if d.Exists(dt) then
d(dt)=d.Item(dt)&","&right(arr(i),len(arr(i))-p)
else
d.Add dt,right(arr(i),len(arr(i))-p)
end if
next
keys=d.Keys
items=d.Items
for i=0 to d.Count-1
response.Write Keys(i)&"月"&Items(i)&"日<br/>"
next
set d=nothing