[已解决]正则替换日期格式的问题

xms77

如何用正则替换把日期格式YYYY-M-D, YYYY-MM-D, YYYY-M-DD替换为YYYY-MM-DD格式。
我的正则代码如下，不是很理想。

If StringRegExp($iDate,'\d{4}-\d-\d',0 ) = 1 Then $iDate = StringRegExpReplace($iDate,'(\d{4})-(\d)-(\d)','$1-0$2-0$3')
        If StringRegExp($iDate,'\d{4}-\d{2}-\d',0 ) = 1 Then $iDate = StringRegExpReplace($iDate,'(\d{4})-(\d{2})-(\d)','$1-$2-0$3')
        If StringRegExp($iDate,'\d{4}-\d-\d{2}',0 ) = 1 Then $iDate = StringRegExpReplace($iDate,'(\d{4})-(\d)-(\d{2})','$1-0$2-$3')

搜索论坛，找到了解决办法，解决办法如下

$temp = StringRegExp($iDate,'\d+',3)
$dateNoBar = StringFormat('%d%02d%02d',$temp[0],$temp[1],$temp[2])

afan

Local $Str = '2013-11-2'
;$Str = '2013-2-2'
;$Str = '2013-2-25'
Local $sRE = StringRegExpReplace($str, '-(\d)(?=\D|$)', '-0\1')
MsgBox(0, $Str, $sRE)

plutosherry

很强！！！谢谢，学习了

xms77

回复 2# afan
感谢A大，就是没有看懂，得好好消化一下！

winple

哈哈哈……灰常好，我用了