阳光雨露

举例：

a = "<a href="/">2009-12-19</a>"
其中日期与href都不确定
如何把a的值变成
<a href="/">2009年12月19日</a>

实现方案：

<SCRIPT Language="VBScript">
Function uss(str)
Dim Re
Set Re = New Regexp
Re.Global = True
Re.Ignorecase = True
Re.Pattern="<a(.*)>(\d{4})-(\d{1,2})-(\d{1,2})<\/a>"
uss=re.Replace(Str,"<a$1>$2年$3月$4日</a>")
End Function
</SCRIPT>


<TEXTAREA id="s1" ROWS="10" COLS="50">
<a href="/123">2009-12-19</a>
<a href="123/">2009-12-19</a>
<a href="qw/e">2009-1-19</a>
<a href="w/we">2009-12-1</a>
<a href="t/er">2009-1-1</a>
<a href="e/ww">2009-12-19</a>
<a href="e/rr">2009-12-19</a>
</TEXTAREA><BR>
<INPUT TYPE="button" VALUE="转换" ONCLICK="s2.value=uss(s1.value)"><BR>
<TEXTAREA id="s2" ROWS="10" COLS="50"></TEXTAREA>