求正则表达式

zez

各位大侠：想把“2013-9-8"变为“2013-09-08”、“2013-10-8”变为“2013-10-08”、”2013-9-18“变为“2013-09-18”。正则表达式应该怎么写？这里先谢谢了！

wpxxsyzx

Private Sub CommandButton1_Click()
Dim regex As New RegExp
regex.Global = True
regex.Pattern = "\-(\d\b)"
MsgBox regex.Replace("2013-09-08", "-0$1")
End Sub

jsxjd

1. Sub a()
   
2.     Set e = CreateObject("VBScript.RegExp")
   
3.     e.Pattern = "-(\d)-"
   
4.     s = "2013-8-9"
   
5.     s = e.Replace(s, "-0$1-")
   
6.     e.Pattern = "-(\d)$"
   
7.     s = e.Replace(s, "-0$1")
   
8.     Debug.Print s
   
9. End Sub

复制代码

doitbest

Private Sub 充个数()
Dim regex As New RegExp, s
regex.Global = True
s = "2013-9-8"
regex.Pattern = "-(\d(?=(-|$)))"
MsgBox regex.Replace(s, "-0$1")
End Sub

zez

好用！谢谢！

Zamyi

多此一举：

1. s = "2013-9-8"
   
2. s = Format(s, "yyyy-mm-dd")

复制代码

jbjbzjb

Zamyi 发表于 2013-10-14 08:46
多此一举：

楼主主题已醒目指明“求正则表达式”，你才是多此一举！！

liuguansky

1. .Pattern = "-(\d)(?=[^\d]|$)"
   
2. .Replace(s, "-0$1")

复制代码

烟灰泪

怎么都看不懂啊

amesman

Zamyi 发表于 2013-10-14 08:46
多此一举：

严重赞同！！