[コードを文字に変換する]

Asciiコードを文字に変換します。

【ソースコード】

[tips0021.vbs]
Option Explicit

Dim lngValue    ' 変換するコード

' コード→文字
WScript.Echo "コード→文字変換"
lngValue = Asc("a")
WScript.Echo Hex(lngValue) & " → " & Chr(lngValue)
lngValue = Asc("ア")
WScript.Echo Hex(lngValue) & " → " & Chr(lngValue)

【実行結果】

C:\> cscript //NoLogo tips0021.vbs
コード→文字変換
61 → a
8341 → ア