Regex-pattern

vivka · #1 01-06-2025, 05:56 AM

Batman's final code with the capturing group moved to the end (my personal opinion: similar effect, but better for understanding the logic):

Code:

, [A-Z][A-Za-zü\-]+( [A-Za-zü\-]+)*,

Or a little shorter:

Code:

, [A-Z]([ A-Za-zü\-])*,

Although, longer codes include more conditions, those conditions may be very rare to occur.
P.S. Naturally, making "improvements" to the basic code (Batman's) is less demanding than making the basic code.

batman1 · #2 01-06-2025, 06:44 AM

Quote:

Originally Posted by vivka

Sometimes regex is more functional than Word standard instruments.

That's right. For example, can you provide a simple pattern in Word Find with the following task: "Find in the sequence all numbers consisting of 4 or 5 digits, whose first 4 digits must have at least 1 digit 2"

gmaxey · #3 01-06-2025, 09:27 AM

Quote:

Originally Posted by batman1

That's right. For example, can you provide a simple pattern in Word Find with the following task: "Find in the sequence all numbers consisting of 4 or 5 digits, whose first 4 digits must have at least 1 digit 2"

batman1,

I suppose the skills that someone is familiar with has bearing on what is simple or not. A simple find pattern? No, and one may not exists. However, with VBA your task is easy enough:

Code:

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "[0-9]{1,}"
    .MatchWildcards = True
    While .Execute
      Select Case Len(oRng.Text)
        Case 4
          If InStr(oRng.Text, "2") > 0 Then Debug.Print oRng.Text
        Case 5
          If InStr(Left(oRng.Text, 4), "2") > 0 Then Debug.Print oRng.Text
      End Select
    Wend
  End With
lbl_Exit:
  Exit Sub
End Sub

Sample Numbers:
12345 – Match
56789 – No Match
123 – No Match
1234 – Match
4321 – Match
8945 – No Match
98765 – No Match
124567 – No match
54312 – No match

batman1 · #4 01-06-2025, 11:04 AM

Quote:

Originally Posted by gmaxey

batman1,

I suppose the skills that someone is familiar with has bearing on what is simple or not. A simple find pattern? No, and one may not exists. However, with VBA your task is easy enough:

1. There is nothing that says that a number that has 4 or 5 digits has to be a word. So it can be part of a word. Besides, your code will find 3452 in the string "a3452b" (and correctly), so it should find 12456 (1245 also meets the criteria, but we want the longest result possible) in the string "124567".

2. Every case, well almost every case, can be solved in VBA. The only thing is that the solution is relatively short. In the current code, after .Execute you have to use Select.

Besides, if data = "13452234567" the code will not find 34522

vivka · #5 01-06-2025, 11:16 AM

Or another presentation of Greg's idea:

Code:

Sub ScratchMacro()
'Coded by Gregory K. Maxey
'https://www.msofficeforums.com/184580-post31.html

 Dim oRng As range
  Set oRng = ActiveDocument.range
  With oRng.Find
    .text = "<[0-9]{4,5}>"
    .MatchWildcards = True
    While .Execute
        If InStr(oRng.text, "2") > 0 Then MsgBox oRng.text
    Wend
  End With
lbl_Exit:
  Exit Sub
  End Sub

However I had situations when regex helped me out, unlike VBA. Maybe it was because of my poor VBA knowledge.
Greg and Batman1, thank you for another good lesson!

batman1 · #6 01-06-2025, 11:33 AM

Quote:

Originally Posted by vivka

Or another presentation of Greg's idea:

Code:

Sub ScratchMacro()
'Coded by Gregory K. Maxey
'https://www.msofficeforums.com/184580-post31.html

 Dim oRng As range
  Set oRng = ActiveDocument.range
  With oRng.Find
    .text = "<[0-9]{4,5}>"
    .MatchWildcards = True
    While .Execute
        If InStr(oRng.text, "2") > 0 Then MsgBox oRng.text
    Wend
  End With
lbl_Exit:
  Exit Sub
   End Sub

As I explained the number DOES NOT HAVE TO be a word, it can be part of a word.

If the data is:
a3452b
13452
then the code with .text = "[0-9]{4,5}" will find both 3452 and 13452. Meanwhile, the result 13452 is not good because 2 appears in the fifth place and not in 1-4

vivka · #7 01-06-2025, 12:19 PM

In the code

Code:

<[0-9]{4,5}>

< and > identify a 4- or 5-digit 'word' without any letters. You can test it. As for finding 2 in all positions but fifth, Greg's 2nd condition can be used. So, the final code is:

Code:

Sub ScratchMacro() 
 'Coded by Gregory K. Maxey 
'https://www.msofficeforums.com/184580-post31.html  
 Dim oRng As range   
   Set oRng = ActiveDocument.range   
   With oRng.Find     
     .text = "<[0-9]{4,5}>"     
     .MatchWildcards = True     
     While .Execute         
       If InStr(left(oRng.text, 4), "2") > 0 Then MsgBox oRng.text     
     Wend   
   End With 
lbl_Exit:   
   Exit Sub    
End Sub

However, I repeat that my (not rich) experience shows that there are situations when only regex can be helpful.

batman1 · #8 01-06-2025, 01:15 PM

Quote:

Originally Posted by vivka

In the code

Code:

<[0-9]{4,5}>

< and > identify a 4- or 5-digit 'word' without any letters. You can test it. As for finding 2 in all positions but fifth, Greg's 2nd condition can be used. So, the final code is:

Code:

Sub ScratchMacro() 
 'Coded by Gregory K. Maxey 
'https://www.msofficeforums.com/184580-post31.html  
 Dim oRng As range   
   Set oRng = ActiveDocument.range   
   With oRng.Find     
     .text = "<[0-9]{4,5}>"     
     .MatchWildcards = True     
     While .Execute         
       If InStr(left(oRng.text, 4), "2") > 0 Then MsgBox oRng.text     
     Wend   
   End With 
lbl_Exit:   
   Exit Sub    
 End Sub

I have already explained that the task does not require the number to be a word - it can be part of a word.

With data:
13452234567
a3452b
67892
123456 23556789 3456789 a234667 13452234567 a3452b 1342 222

podany kod znajdzie tylko 1342 . Tymczasem wyniki =
34522
3452
7892
12345
23556
23466
34522
3452
1342

batman1 · #9 01-06-2025, 06:50 AM

Quote:

Originally Posted by vivka

Or a little shorter:

Code:

, [A-Z]([ A-Za-zü\-])*,

In post #15 Greg's wrote: Specifically the last instance ", John smith," is returned as a match. How could we PREVEN T that?" So Greg's wants to find "John Smith," but he doesn't want to find "John smith,"

Your code will find ", John smith," and that's not what Greg wants.

I also want a simpler pattern, but for now I've provided a pattern that at least meets Greg's requirements.

batman1 · #10 01-06-2025, 07:03 AM

Quote:

Originally Posted by vivka

Batman's final code with the capturing group moved to the end (my personal opinion: similar effect, but better for understanding the logic):

Code:

, [A-Z][A-Za-zü\-]+( [A-Za-zü\-]+)*,

I don't understand. ", [A-Z][A-Za-zü\-]+( [A-Za-zü\-]+)*," it's not my code.

My code is ",( [A-Za-zü\-]+)* [A-Z][A-Za-zü\-]+,"

SIMILAR EFFECT?

Kod ", [A-Z][A-Za-zü\-]+( [A-Za-zü\-]+)*," znajdzie ", John smith,"

My code ",( [A-Za-zü\-]+)* [A-Z][A-Za-zü\-]+," NIE znajdzie ", John smith,"

batman1 · #11 01-06-2025, 07:24 AM

Quote:

Originally Posted by vivka

Although, longer codes include more conditions, those conditions may be very rare to occur.
P.S. Naturally, making "improvements" to the basic code (Batman's) is less demanding than making the basic code.

My code is a proposal for SPECIFIC requirements, including Greg's. I didn't come up with these requirements, others did. And since I answered them, I have to give code that meets their requirements

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Capture group in RegEx	alex100	Word VBA	1	01-02-2021 02:39 PM
Regex over 700 matches in a long doc	totoMSOF	Word VBA	19	03-11-2019 01:28 PM
Using VB Regex feature, I tried to replace 'the' and 'this' with 'that' but got screwed	abdan	Word VBA	3	01-18-2019 09:38 PM
Macro help regex	subspace3	Word VBA	1	10-15-2014 09:53 AM
Regex in Word: Replaced strings are in disorder	chgeiselmann	Word	0	04-26-2009 11:33 AM