Edit VBA Code

[horrellbt01]

I need to edit the following code that someone wrote years ago (no longer w/ the company) to work with a new source.
Set expr = New RegExp
'expr.Pattern = "src=""([^""]*ObjectiveImages[^""]*/([^""/]*\.jpg))"""
'ClientCommentImages
expr.Pattern = "src=""([^""]*Images[^""]*/([^""/]*\.jpg))"""
expr.Global = True
expr.IgnoreCase = True

The source format has changed to the following format: https://www.qtraxweb.com/p/90767-719431-us/TX/90458979_172130162.JPG
Everything after the /p/ would be a wildcard except the .JPG.

 

[Vogateer]

Would you mind confirming what you want as the end result of the RegEx? I think you want "90767-719431-us/TX/90458979_172130162.JPG", but I'm not completely certain. What happens with the RegEx in the code?

Do you have a few more examples of URLs for testing? Would all of the images start with the same domain? If so, can you just use the MID formula to extract the image name more easily? If not, are you able to use the new RegEx formula in the latest Excel365?