VBScript Tips (Tips0020)

[文字をコードに変換する] 文字をAsciiコードとUnicodeに変換します。 ２バイト文字は、Shift-JISコードに変換されます。 【ソースコード】 [tips0020.vbs] Option Explicit Dim strValue ' 変換する文字 ' 文字→コード WScript.Echo "文字→コード変換" strValue = "A" WScript.Echo strValue & " → " & _ "Ascii=" & Hex(Asc(strValue)) & ", " & _ "Unicode=" & Hex(AscW(strValue)) strValue = "あ" WScript.Echo strValue & " → " & _ "Shift-JIS=" & Hex(Asc(strValue)) & ", " & _ "Unicode=" & Hex(A