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

xms77 发表于 2013-11-28 14:50:58

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

本帖最后由 xms77 于 2013-11-28 15:11 编辑

如何用正则替换把日期格式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,$temp,$temp)

afan 发表于 2013-11-28 15:14:09

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 发表于 2013-11-29 15:51:07

很强！！！谢谢，学习了

xms77 发表于 2013-12-2 10:13:02

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

winple 发表于 2014-2-16 16:06:50

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

查看完整版本: [已解决]正则替换日期格式的问题