Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(Excel) Extract data:image/png;base64 from HTMLDemonstrates how to extract base64 image data from HTMl and save to files..
Dim sb As Chilkat.StringBuilder Set sb = Chilkat.NewStringBuilder Dim bd As Chilkat.BinData Set bd = Chilkat.NewBinData Dim sbFilename As Chilkat.StringBuilder Set sbFilename = Chilkat.NewStringBuilder index = 1 success = sb.LoadFile("qa_data/html/oresp body.txt","utf-8") ' Assume success. Debug.Print "length = "; sb.Length mayHaveMore = True Do While mayHaveMore = True ' Get the base64 between the 1st occurrence "data:image/png;base64," and "'" sBase64 = sb.GetBetween("data:image/png;base64,","'") ' If nothing is found, then we'll exit the loop because there are no more. mayHaveMore = sb.LastMethodSuccess If (sb.LastMethodSuccess = True) Then ' Found something. ' Load into bd and save. success = bd.LoadEncoded(sBase64,"base64") success = sbFilename.SetString("qa_output/png_") success = sbFilename.AppendInt(index) success = sbFilename.Append(".png") success = bd.WriteFile(sbFilename.GetAsString()) ' Replace "data:image/png;base64" with "data:image-png;base64" so the next iteration finds the next occurrence. success = sb.ReplaceFirst("data:image/png;base64","data:image-png;base64") End If index = index + 1 Loop ' Restore our replacements.. count = sb.Replace("data:image-png;base64","data:image/png;base64") Debug.Print "All done." |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.