Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim bodyContent as string = "<html><body><img src='image001.png'/><img src='image002.png'/></body></html>"
Dim searchStr as string = "image002"
Dim imgRegex As New Regex("<img[^>]+" & searchStr & "[^>]*>", RegexOptions.IgnoreCase)
bodyContent = imgRegex.Replace(bodyContent, "<div class='newCode'><a href='https://m...content-available-to-author-only...e.net/ViewAttachment'><img src='https://m...content-available-to-author-only...e.net/ViewThumbnail'></a></div>")
Console.Write(bodyContent)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gYm9keUNvbnRlbnQgYXMgc3RyaW5nID0gIjxodG1sPjxib2R5PjxpbWcgc3JjPSdpbWFnZTAwMS5wbmcnLz48aW1nIHNyYz0naW1hZ2UwMDIucG5nJy8+PC9ib2R5PjwvaHRtbD4iCgkJRGltIHNlYXJjaFN0ciBhcyBzdHJpbmcgPSAiaW1hZ2UwMDIiCgkJRGltIGltZ1JlZ2V4IEFzIE5ldyBSZWdleCgiPGltZ1tePl0rIiAmIHNlYXJjaFN0ciAmICJbXj5dKj4iLCBSZWdleE9wdGlvbnMuSWdub3JlQ2FzZSkKCQlib2R5Q29udGVudCA9IGltZ1JlZ2V4LlJlcGxhY2UoYm9keUNvbnRlbnQsICI8ZGl2IGNsYXNzPSduZXdDb2RlJz48YSBocmVmPSdodHRwczovL20uLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLmUubmV0L1ZpZXdBdHRhY2htZW50Jz48aW1nIHNyYz0naHR0cHM6Ly9tLi4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5lLm5ldC9WaWV3VGh1bWJuYWlsJz48L2E+PC9kaXY+IikKCQlDb25zb2xlLldyaXRlKGJvZHlDb250ZW50KQoJRW5kIFN1YgpFbmQgQ2xhc3M=