Help with Regular Expression pattern

[AlexanderBB]

Hi, I've managed to identify a string which starts with a Capitol A-Z followed by a number [0-9] and then a period and space.

However the number may be over 10 (so more than one character) and in some case the period and space missing. This may mean
two checks are needed but I can't get either working properly.

Have Googled a bit but can't find a good pattern tutorial for beginners for VBA RE... if you know of one I'd appreciate a link.

Many thanks, ABB

 

[pgc01]

I'm glad it helped.

 

[AlexanderBB]

I'm not a work and have no idea what SkyDrive is - but here's the text I get from that link -


This item might not exist or is no longer available
This item might have been deleted expired or you might not have permission to view it. Contact the owner of this item for more information.
Go to my SkyDrive

 

[shg]

The link works fine for me as well, Alexander.

 

[AlexanderBB]

The link works fine for me as well, Alexander.

Weird. AFAIK everything is OK this end (NZ) and haven't noticed any other problems...

 

[AlexanderBB]

PGC, I've read the link (thank you) which is great for explaining fundamentals. (I've also got Richards file but looking for how to get it going).
There's a lot in this! Suspect it'll take me a while.

With your pattern "^([A-Z]\d+)(\. )?" is there an ignore or make insignificant switch?

So the [A-Z] could be missing but still find a match if it starts with "1. " with 1 being any number?

Or would it be better practice to alter the string you're searching to Mid(thestring,2) ?

 

[AlexanderBB]

Hi PGC, I'm back yet again...

One of things explained in the link isn't working as hoped and I wonder what I'm doing wrong ?

My string is "1. This is a test 7:14"
objRegExp.Pattern = "(\d+[:]\d+)$"

What I hope to achieve is extract the "7:14"

I find objRegExp.Test("1. This is a test 7:14") is true but the instructions

In RegExpr for VB/VBA, you call RegExprResult(1) to get the first stored value, RegExprResult(2) to get the second one, and so on

fail here. Debug.Print RegExprResult(1) gives error 'Sub or Function not defined'.


Thanks, ABB

 

[pgc01]

Hi

See if this helps:

Sub Test()
Dim regex As Object, regexMatches As Object
Dim s As String

s = "1. This is a test 7:14"
Set regex = CreateObject("VBScript.RegExp")
        
With regex
    .Pattern = "(\d+[:]\d+)$"
    Set regexMatches = .Execute(s)
    Debug.Print regexMatches(0).Value
End With
End Sub

Remark: I'm using late binding because I've problems with setting references in this machine.

 

[AlexanderBB]

That worked spot on PGC, thanks !

I'm just trying (unsuccessfully) to work out how to extract anything with a leading 2 spaces, and an ending two spaces

I tried this pattern

.Pattern = "( )*( )"

But I think it just gives me 4 spaces. LOL I have a way to go here....

 

[Richard Schollar]

Possibly you could use a pattern such as:

.Pattern = "\ \ \S.*?\ \ "

But I'd expect PGC to come up with something slicker.

 

[Richard Schollar]

Oh and how are you finding the add-in? I used it (and the tutorial at regular-expressions.info ) to come up with that pattern