注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Mr.Right

不顾一切的去想,于是我们有了梦想。脚踏实地的去做,于是梦想成了现实。

 
 
 

日志

 
 
关于我

人生一年又一年,只要每年都有所积累,有所成长,都有那么一次自己认为满意的花开时刻就好。即使一时不顺,也要敞开胸怀。生命的荣枯并不是简单的重复,一时的得失不是成败的尺度。花开不是荣耀,而是一个美丽的结束,花谢也不是耻辱,而是一个低调的开始。

网易考拉推荐

阿英讲VBA正则表达式提取日期和时间  

2016-03-05 13:44:34|  分类: 编程 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
即以此功德,庄严佛净土。上报四重恩,下济三途苦。惟愿见闻者,悉发菩提心。在世富贵全,往生极乐国。

1) 用subroutine实现
' Excel VBA
' do not need early binding: VBA editor ——–>Tools——->References -> Microsoft VBScript Regular Expressions 5.5
Sub testRegExp()
  Dim reg As Object
  Dim myMatches As Object, myMatch As Object
  Dim strInput$, strReplace$, strUpdated$
  'dates in the yyyy/mm/dd and yyyy-mm-dd formats
  'Dim strPattern As String: strPattern = "(19|20)[0-9]{2}[- /.](0[1-9]|1[012])[- /.](0[1-9]|[012][0-9]|3[01])"
  
  ' dates in the yyyy/mm/dd HH:MM:SS and yyyy-mm-dd-HH-MM-SS formats
  Dim strPattern As String: strPattern = "(19|20)[0-9]{2}[- /.](0[1-9]|1[012])[- /.](0[1-9]|[012][0-9]|3[01])[- /.]([01]\d{1}|2[0-3]):[0-5]\d{1}:([0-5]\d{1})"
  
  Dim flag As Boolean
  Set reg = CreateObject("VBScript.RegExp") ' late binding is adopted
  With reg
    .Global = True
    .IgnoreCase = True
    .Pattern = strPattern
  End With
  strInput = "2010-11-11-19:48:57xxx2016/09/11/19:58:57"
  strReplace = "777"
 
    ' Pop up a message box for each match
    Set myMatches = reg.Execute(strInput)
    For Each myMatch In myMatches
      MsgBox myMatch.Value, 0, "Found Match"
    Next

    If reg.Test(strInput) Then
        strUpdated = reg.Replace(strInput, strReplace)
        MsgBox strUpdated
    Else
        MsgBox ("Not matched")
    End If
End Sub

2) 用Function 实现

Private Sub TestDate()
    MsgBox RegExDate("2010-11-11-19:48:57xxx2016/09/11/19:58:57")
End Sub

Private Function RegExDate(s As String) As String
    Dim re, match
    Set re = CreateObject("vbscript.regexp")
    ' dates in the yyyy/mm/dd and yyyy-mm-dd formats
    're.Pattern = "(19|20)[0-9]{2}[- /.](0[1-9]|1[012])[- /.](0[1-9]|[12][0-9]|3[01])"
    ' dates in the yyyy/mm/dd HH:MM:SS and yyyy-mm-dd-HH-MM-SS formats
    re.Pattern = "(19|20)[0-9]{2}[- /.](0[1-9]|1[012])[- /.](0[1-9]|[012][0-9]|3[01])[- /.]([01]\d{1}|2[0-3]):[0-5]\d{1}:([0-5]\d{1})"
    re.Global = True

    For Each match In re.Execute(s)
        MsgBox match.Value
        RegExDate = match.Value
        'Exit For  ' uncomment to get the first match
    Next
    Set re = Nothing
End Function

  评论这张
 
阅读(147)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016