vbsの作法 その49

概要

vbsの作法調べてみた。
hex2binやってみた。

サンプルコード

Function hex2bin(HexText)
    With CreateObject("Microsoft.XMLDOM").createElement("tmp")
        .DataType = "bin.hex"
        .Text = HexText
        hex2bin = .NodeTypedValue
    End With
End Function

Dim Hex
Dim Text
Hex = "3100320033003400"
msgbox Hex
Text = hex2bin(Hex)
msgbox CStr(Text)


Hex = "b530f330d730eb30"
msgbox Hex
Text = hex2bin(Hex)
msgbox CStr(Text)

以上。