Base64 エンコードされた文字列を VBScript で

2年 ago
光, 明
1 minute

VBScript では、Base64Encode 関数を使用して Base64 エンコードが行えます。以下は簡単なサンプル コードです。

Dim Base64String
Base64String = Base64Encode("Hello, World!")
WScript.Echo Base64String
Function Base64Encode(str)
Dim objXML, objNode
' 创建XML对象
Set objXML = CreateObject("MSXML2.DOMDocument")
' 创建节点并设置节点值
Set objNode = objXML.CreateElement("b64")
objNode.DataType = "bin.base64"
objNode.Text = StreamStringToBase64(str)
' 将节点内容转换为Base64字符串并返回
Base64Encode = objNode.Text
Set objNode = Nothing
Set objXML = Nothing
End Function
' 将字符串转换为Base64编码的字节数组
Function StreamStringToBase64(str)
Dim objStream
' 创建二进制数据流对象
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = 2 ' adTypeText
objStream.Charset = "UTF-8"
objStream.Open
objStream.WriteText str
objStream.Position = 0
objStream.Type = 1 ' adTypeBinary
StreamStringToBase64 = objStream.ReadText(-1)
Set objStream = Nothing
End Function

そのコードでは Base64Encode 関数が文字列を受け取りエンコードされた結果を返します。StreamStringToBase64 関数は文字列をバイト配列に変換し、Base64 でエンコードします。XML オブジェクトとノードを作成した後、ノードの Text プロパティにバイト配列を割り当て、Text プロパティからエンコードされた文字列を取得します。

bannerAds