How to remove image dimensions from urls that are in a Excel Column?

[brvnbld]

Hi there, I have a long list of Image urls in a column all which have image dimensions, for example https://example.com/wp-content/uploads/2022/07/sample-image-300x212.jpg . I need to remove everything that dimensions 300x212, these dimensions vary. I thought I can replace this -*x, with x and then x*. so that all those get deleted. But the replace sees the first "-", so it didn't work. The image urls also have other extensions like webp etc.

 

[Domenic]

You can use the InstrRev function to search in reverse...

    Dim url As String
    url = "https://example.com/wp-content/uploads/2022/07/sample-image-300x212.jpg"
   
    url = Left(url, InStrRev(url, "-") - 1) & Mid(url, InStrRev(url, ".jpg"))
   
    MsgBox url, vbInformation 'for demenstration purposes

So in this example the message box will display...

https://example.com/wp-content/uploads/2022/07/sample-image.jpg

Hope this helps!

 

[brvnbld]

Wow, that worked as I wanted,. Thank you buddy.

 

[Domenic]

That's great, I'm glad I could help.

Cheers!

 

[brvnbld]

People like you are making Internet a better place. I am so happy I found this forum. Thanks again.

 

[Domenic]

I have to say, that's great to hear. Yes, this is a great place to learn.

By the way, give me a minute, I just want make another suggestion. Actually, I should have made it originally.

 

[Domenic]

Just in case you may have images with different file extensions, other than .jpg, you can replace...

url = Left(url, InStrRev(url, "-") - 1) & Mid(url, InStrRev(url, ".jpg"))

with

url = Left(url, InStrRev(url, "-") - 1) & Mid(url, InStrRev(url, "."))

So this will search for a period ( . ), instead of .jpg.

 

[brvnbld]

Just in case you may have images with different file extensions, other than .jpg, you can replace...

url = Left(url, InStrRev(url, "-") - 1) & Mid(url, InStrRev(url, ".jpg"))

with

url = Left(url, InStrRev(url, "-") - 1) & Mid(url, InStrRev(url, "."))

So this will search for a period ( . ), instead of .jpg.

Yeah, but that will also replace the values after example. com too,. yes?

 

[Domenic]

Oh, yes that's right.

So, in that case, you may want to first check for the extension...

If LCase(Right(url, 4)) = ".jpg" Then

And then, if true, remove the dimensions from the string...

url = Left(url, InStrRev(url, "-") - 1) & ".jpg"

And, of course, you could check for more than one type of file extension, and if found you would search for the period instead of ".jpg" or what have you.

 

[brvnbld]

or We could do this?

Dim url As String
url = "https://example.com/wp-content/uploads/2022/07/sample-image-300x212.jpg"
url = Left(url, InStrRev(url, "-") - 1) & Mid(url, InStrRev(url, ".webp"))
url = Left(url, InStrRev(url, "-") - 1) & Mid(url, InStrRev(url, ".jpg"))
url = Left(url, InStrRev(url, "-") - 1) & Mid(url, InStrRev(url, ".png"))

Since the files might be from one of the extensions, only one of the lines will get executed,. yes?