RegEx Backreference

Hello Everyone,

I almost have this working. I'm trying to find those street number suffixes that should be appearing like this 5th Avenue but are appearing with the first letter capitalized like this: 5Th

I'm using this snippet of regular expression which is working:


FIXNUMBERSUFFIX = strLookIn

objRegEx.Pattern = "\b([0-9])(Th)\b"
FIXNUMBERSUFFIX = objRegEx.Replace(FIXNUMBERSUFFIX, "$1" & "th")


It's correctly finding and changing this address 520 W. 5Th Street, Apt. 500 to this: 520 W. 5th Street, Apt. 500

Then is I realized I have to account for up to three digit street numbers. I tried the following, but it's not working. I must not have the correct expression for finding a three digit pattern. Also don't know how to reference back to it.

objRegEx.Pattern = "\b([1-9][1-9][0-9])(Th)\b"
FIXNUMBERSUFFIX = objRegEx.Replace(FIXNUMBERSUFFIX, "$1$2$3" & "th")

Thank you for your help!

Hi !

Ever no need a regular expression but just using easy Replace VBA function !

I think I have it. I had to add the asterisk after the [0-9]* which I believe means 0 or more matches?

objRegEx.Pattern = "\b([0-9]*)(Th)\b"
FIXNUMBERSUFFIX = objRegEx.Replace(FIXNUMBERSUFFIX, "$1" & "th")

Thank you.

Do you really need an Abrams tank to just knock a door ?‼

PHP Code: 

Sub Demo4Noob()
    MsgBox Replace$("5TH Street", "TH ", "th ")
End Sub 


Do you like it ? So thanks to click on bottom left star icon « Add Reputation » !