Converts data between ByteArray (safearray of bytes) and Base64. Works as a Base64 encoder and decoder from binary (bytearray) or from Unicode String.
Base64Data = ByteArray.Base64 ([maxLineChars as Long = 76])
ByteArray.Base64 ([maxLineChars as Long = 76]) = Base64Data
| Where | Type | Optional | Default | Description |
|---|---|---|---|---|
| maxLineChars | Long | yes | 76 | Maximum line characters for Base64 encoded data |
Variant
Base64 returns ByteArray
You can use the property to do Base 64 encoding and decoding of data stream. Base64 property accepts UNICODE String (VT_BSTR) or binary data (VT_UI1 | VT_ARRAY) as an input.
maxLineChars has no meaning for property put.
See also live sample of this method at On-line base64 decoder and encoder page.
ByteArray - Decode a Base64 string to a binary data. |
Dim ByteArray
Set ByteArray = CreateObject("ScriptUtils.ByteArray")
ByteArray.Base64 = "UHV0IHNvbWUgY2hhcmFjdGVycyB0by"
Wscript.Echo "Source data:" & vbCrLf & _
ByteArray.String |
ByteArray - encode a file to a base64 string (Base64 file) |
| You can simply encode a binary or text file to a Base64 string using this sample code. The base64 string can be stored to a file using SaveAs method. |
'Convert a string to Base64
Dim ByteArray
Set ByteArray = CreateObject("ScriptUtils.ByteArray")
'Convert a File to a Base64
ByteArray.ReadFrom "F:\data\vbs\del.vbs"
'Convert contents of the file to a base64
Base64String = ByteArray.Base64.String
Wscript.Echo "Base64 encoded file:" & vbCrLf & _
Base64String
'Save Base64 encoded data to a disk
ByteArray.Base64.SaveAs "F:\data\vbs\base64-del.vbs" |
ByteArray - decode and encode from Base64 |
'Convert a string to a Base64
Dim ByteArray
Set ByteArray = CreateObject("ScriptUtils.ByteArray")
'Put some characters to the bytearray.
ByteArray.String = "Put some characters to the bytearray."
'Write the characters in original (windows-1250) charset
Dim Base64String
Wscript.Echo "Source data:" & vbCrLf & _
ByteArray.String
Base64String = ByteArray.Base64.String
Wscript.Echo "Base64 encoded string:" & vbCrLf & _
Base64String
Base64String = ByteArray.Base64(30).String
Wscript.Echo "Base64 encoded string with short lines:" & vbCrLf & _
Base64String
Wscript.Echo "Part of data encoded to base64:" & vbCrLf & _
ByteArray.Mid(3,3).Base64.String
'Convert a File to a Base64
ByteArray.ReadFrom "F:\data\vbs\del.vbs"
Base64String = ByteArray.Base64.String
Wscript.Echo "Base64 encoded file:" & vbCrLf & _
Base64String |
ByteArray, T-SQL - base64 decoder for Microsoft SQL |
ByteArray, T-SQL - base64 encoder for Microsoft SQL |
Find, FindRev, CharSetConvert, Left, Mid, ReadFrom, Right, SaveAs, SetSize
Base64, ByteArray, CodePage, HexString, CharSet, Length, Punycode, String
Works with safearray binary data - save/restore binary data from/to a disk, convert to a string/hexstring, codepage/charset conversions, Base64 conversion, etc.
ByteArray is a COM class specially designed to work with Microsoft Windows Scripting engines - VB Script and JScript in Active Server Pages or WSH and in CHM or HTA applications. It also works with VB Net, Visual basic (VBA - VB 5, VB 6, Word, Excel, Access, …), C#, J#, C++, ASP, ASP.Net, Delphi and with T-SQL OLE functions - see Use ByteArray object article. You can also use the object in other programming environments with COM support, such is PowerBuilder.
Source code for ByteArray is available within distribution license, please see License page for ASP file upload and ScriptUtilities.
© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: info@pstruh.cz