如何使用 VB.net 从 HTML 文件中提取图像

Question

我有几个 HTML 文件，其中的图像以二进制格式存储，如下所示

每个 HTML 文件只有一个图像我需要从每个文件中提取图像并使用 .net 应用程序将它们保存为 png 或 jpg 任何帮助表示赞赏

谢谢吉居

Answer 1

尝试这个：

Imports System.Drawing

模块模块1

Sub Main()

    Dim ImageText = "data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAMAAAAp4XiDAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAFEUExURf////+Kh/+Gg//j4//BwP97eP9jX/+Bfv+5uP/29v+HhP+Mif+mpP/b2/8tJ/8IAP+/vv9ybv8cFv9zb/+1tP9xbf/7+/8uKP/q6v/6+v9KRf9aVv/h4f/9/f/Q0P9AO/9nY/9wbP/09P/Av/85NP+Niv/w8P+tq/9fW//5+f8pI//W1v/OzP82Mf8xK/82MP+Jhv99ev8aFP8SC/8zLf8TDP83Mv81MP/s7P81L/96d/84M/9CPf/19f86Nf8sJv9va/9BPP87Nv8yLP9XU/8RCv8kHv89OP9dWf+cmv8+Of8bFf8hG/+urP90cf94df9TTv+opv9STf+2tf+Aff9EP//Cwf/Y2P9MR/9GQf9taf8gGv+Tkf+Vk/9UUP8WD//FxP9JRP+kov8mIP8XEf9hXf/V1f+0s//39//e3v/S0v/i4pkRhsgAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAE5SURBVEhL7ZJXU8JAFIWvqKgoHlE0RBGwoChWVKyI2Hvvvdf//+7evcmMZCIzvjr5HrL3nN1vNpkJeXh4ePyFMp9NuUoVlX5/VbXeqAkEArV1QT0XUw+bBqIQ0KimJt4IS9usTxXRojAQMU2TqBVtUWqPxZFQG2F0mJ1d3UjKOQcGenjpRUrHvn6kWQmpeQCDunMyJMowvxszglFbocyYrpyMizKR0YkoxteJEkVWOgeTWpnCtESKIG4rM3yhC7NaSWNOIuUwz0p+IZVFweocLGolhyWJFMQyKyura+sbVuVkU75la1snoh3ssrJnRTcKouzjQEc6xBErx5JcORHlFMYZr0mcq2cYPg6/cCEKXeIqcX1zi7t7FUorD5ZCj0/qr3p+eeX5raRC79ZK9PH5ZU0/Sg+PfwXRN1h4IRCn6GVqAAAAAElFTkSuQmCC"

    'We don't need 'data:image/png;base64,'
    ImageText = ImageText.Split(",")(1)


    Dim bitmapData As Byte() = Convert.FromBase64String(FixBase64ForImage(ImageText))
    Dim streamBitmap As System.IO.MemoryStream = New System.IO.MemoryStream(bitmapData)
    Dim bitImage As Bitmap = New Bitmap(CType(Image.FromStream(streamBitmap), Bitmap))

    bitImage.Save("c:\temp\test1.png", Imaging.ImageFormat.Png)
End Sub

Public Function FixBase64ForImage(ByVal Image As String) As String
    Dim sbText As System.Text.StringBuilder = New System.Text.StringBuilder(Image, Image.Length)
    sbText.Replace(vbCrLf, String.Empty)
    sbText.Replace(" ", String.Empty)
    Return sbText.ToString()
End Function

端模块