Base64 | ||
Property | ||
Member of ScriptUtils.ByteArray |
Where | Type | Optional | Default | Description |
---|---|---|---|---|
maxLineChars | Long | yes | 76 | Maximum line characters for Base64 encoded data |
| ||
Dim ByteArray Set ByteArray = CreateObject("ScriptUtils.ByteArray") ByteArray.Base64 = "UHV0IHNvbWUgY2hhcmFjdGVycyB0by" Wscript.Echo "Source data:" & vbCrLf & _ ByteArray.String |
| ||
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" |
| ||
'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 |
|
|