ASP正则
一堆日期数据 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