Shift-Jisの2バイトコードを取得するには？ (ID:142553)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Module A Sub Main() Test( "亜"c ) Test( "C"c ) End Sub Sub Test(ByVal c As Char) MsgBox( String.Format("SJIS=[{0:X4}], Unicode=[{1:x}]", CShort(Asc(c)), AscW(c)), vbInformation, c) MsgBox( CShort(Asc(c)).ToString("x4"), vbInformation, c ) MsgBox( CShort(Asc(c)).ToString("x"), vbInformation, c ) MsgBox( Right("0000" & Hex(CShort(Asc(c))), 4), vbInformation, c ) MsgBox( Hex(CShort(Asc(c))), vbInformation, c ) MsgBox( String.Format("{0:x4}", Asc(c) And &HFFFF), vbInformation, c ) MsgBox( (Asc(c) And &HFFFF).ToString("X4"), vbInformation, c ) MsgBox( Hex(Asc(c) And &HFFFF), vbInformation, c ) End Sub End Module