vba base64图像png解码

Question

我在抓取网页时遇到大问题

我需要刮除img src adrress但结果是“ data：image / png; base64，iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAQAAAC1HAwCAAAAC0lEQVR4nGP6zwAAAgcBApocMXEAAAAASUVORK5CYII =”

起初我不是这个，但是我知道之后但我无法解码

我尝试搜索有关base64 png图像的信息，但是我根本无法尝试编码。我需要你的帮助

Answer 1

尝试一下。我写了两个函数DecodeBase64和WriteByteArrayToFile。 DecodeBase64接受Base64编码的字符串，然后从中返回Byte()。 WriteByteArrayToFile接受Byte()和FilePath作为字符串，并将其写入文件。

"YOURPATHGOESHERE\Picture.png"子目录中的Example区域更新为计算机上的有效文件路径，请参阅是否有帮助！我得到的似乎是正方形的很小的图片。

代码

Option Explicit

'Decode Base64 string into a byte array
Public Function DecodeBase64(ByVal Base64String As String) As Byte()
    With CreateObject("MSXML2.DOMDocument").createElement("b64")
        .DataType = "bin.base64"
        .Text = Base64String
        DecodeBase64 = .nodeTypedValue
    End With
End Function

'Take a byte array and write to a file
Public Sub WriteByteArrayToFile(FileData() As Byte, FilePath As String)
    Dim FileNumber As Long: FileNumber = FreeFile
    Open FilePath For Binary Access Write As #FileNumber
    Put #FileNumber, 1, FileData
    Close #FileNumber
End Sub

'Run from here
Sub example()
    WriteByteArrayToFile DecodeBase64("iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAQAAAC1HAwCAAAAC0lEQVR4nGP6zwAAAgcBApocMXEAAAAASUVORK5CYII="), "YOURPATHGOESHERE\Picture.png"
End Sub