vbsの作法 その31

概要

vbsの作法調べてみた。
base64encodeしてみた。

サンプルコード

Function base64enc(PlainText)
    Dim st
    Dim dom
    Dim tmp
    Dim bin
    Set st = CreateObject("ADODB.Stream")
    st.Type = adTypeText
    st.Charset = "Shift-JIS"
    st.Open
    st.WriteText PlainText
    st.Position = 0
    st.Type = adTypeBinary
    bin = st.Read
    st.Close
    Set dom = CreateObject("Microsoft.XMLDOM")
    Set tmp = dom.CreateElement("tmp")
    tmp.DataType = "bin.base64"
    tmp.NodeTypedValue = bin
    base64enc = tmp.Text
End Function

Const adTypeBinary = 1
Const adTypeText = 2 
Dim str0, str1
str0 = "あ"
str1 = base64enc(str0)
MsgBox str1

以上。