正則表達式匹配年？

我是新來的Excel VBA中的正則表達式，一直在看關於堆棧溢出關於它的幾個問題，發現通過以下鏈接"How to use Regular Expressions (Regex) in Microsoft Excel both in-cell and loops"正則表達式匹配年？

一個偉大的有一些非常有用的代碼在這裏，我想我可能嘗試學習和適應我的目的，我試圖匹配一個4位數的字符串，代表電子表格中一個單元格的年份。「2016是一個好年份」將產生「」。

我用了一些稍微改變的代碼從那個問題發佈在那裏，它設法識別一個字符串包含一年，但我不知道如何分離和提取字符串從其餘的單元格內容，即。在相鄰的單元格上自己獲取，我應該做出什麼改變？

Private Sub splitUpRegexPattern() 
Dim regEx As New RegExp 
Dim strPattern As String 
Dim strInput As String 
Dim strReplace As String 
Dim Myrange As Range 

Set Myrange = ActiveSheet.Range("D2:D244") 

For Each c In Myrange 

    strPattern = "([0-9]{4})" 'looks for (4 consecutive numbers) 

    If strPattern <> "" Then 
     strInput = c.Value 
     strReplace = "$1" 

     With regEx 
      .Global = True 
      .MultiLine = True 
      .IgnoreCase = False 
      .Pattern = strPattern 
     End With 

     If regEx.Test(strInput) Then 
      c.Offset(0, 5) = regEx.Replace(strInput, "$1") 'puts the string in an adjacent cell 
     Else 
      c.Offset(0, 5) = "(Not matched)" 
     End If 
    End If 
Next 
End Sub

來源

2015-11-07 user3545370

的'regEx.Execute（）'函數返回匹配對象將包含'在多個子匹配的，每個捕獲組'（圖案）你的模式。你會發現很多這樣的描述，例如在SO上。另外，將模式分配移出循環，它是不變的。最後，爲了匹配一年你會使用'（[12] [0-9] {3}）'來匹配只有最後一個和當前的千年。 – user1016274

謝謝，得到它正在使用regEx.Execute（） – user3545370

user1016274，謝謝，您的評論確實幫助，不得不做一些關於它的搜索，但我發現使用regEx.Execute（strInput）答案

我設法返回匹配的字符串：

Private Sub splitUpRegexPattern() 
    Dim regEx As New RegExp 
    Dim strPattern As String 
    Dim strInput As String 
    Dim strReplace As String 
    Dim Myrange As Range 

    Set Myrange = ActiveSheet.Range("D2:D244") 

    For Each c In Myrange 

     strPattern = "([0-9]{4})" 'looks for (4 consecutive numbers) 

     If strPattern <> "" Then 
       strInput = c.Value 
       strReplace = "$1" 

      With regEx 
       .Global = True 
       .MultiLine = True 
       .IgnoreCase = False 
       .Pattern = strPattern 
      End With 

      If regEx.Test(strInput) Then 
       c.Offset(0, 5) = regEx.Execute(strInput).Item(0).SubMatches.Item(0) 'this was the part I changed 
      Else 
       c.Offset(0, 5) = "(Not matched)" 
      End If 
     End If 
    Next 
End Sub

來源

2015-11-07 14:42:49 user3545370

請你編輯你的答案並添加最終的代碼，爲其他人研究未來相同的問題？然後，您可以將答案標記爲「答案」。 – user1016274

你可以顯著改善如下代碼：

使用變長數組，而不是一個範圍
移動RegExp圈外的（要設置同樣的方式爲每個單元）

你RegExp參數可以爲你想要的（未成年人）被降低。

私人小組splitUpRegexPattern（）

Dim regEx As Object 
Dim strPattern As String 
Dim strInput As String 
Dim X 
Dim Y 
Dim lngCnt As Long 


Set regEx = CreateObject("vbscript.regexp") 
X = ActiveSheet.Range("D2:D244").Value2 
Y = X 

strPattern = "\b[0-9]{4}\b" 'looks for (4 consecutive numbers) 

With regEx 
    .MultiLine = True 
    .Pattern = strPattern 

For lngCnt = 1 To UBound(X) 

If .Test(X(lngCnt, 1)) Then 
      Y(lngCnt, 1) = .Execute(X(lngCnt, 1))(0) 
     Else 
      Y(lngCnt, 1) = "(Not matched)" 
End If 
Next 

Range("D2:D244").Offset(0, 5).Value2 = Y 
End With 
End Sub

來源

2015-11-10 06:42:30 brettdj

正則表達式匹配年？

回答

相關問題