0 ～ 127 までは同じですが、Chr で作成される文字は SHIFT_JIS なので、全てが存在しません。それに対して、ChrW では、全ての文字コードが存在しています。 また、SHIFT_JIS の半角カタカナは、SHIFT_JIS の文字コードにありますが、Unicode として表現される場合は、SHIFT_JIS のコードとは違います。 半角カナの ｱ は、SHIFT_JIS では 0xB1 ですが、Unicode では、0xFF71 です
Module MyModule
' *****************************************
' Chr と ChrW と Asc と AscW
' *****************************************
Sub Main()
Dim I As Integer
Dim J As Integer
Dim c As Char
Dim c_code As Integer
' SHIFT_JIS
For I = 0 to 15
For J = 0 to 15
c = Microsoft.VisualBasic.Strings.Chr(I+J*16)
c_code = Microsoft.VisualBasic.Strings.Asc(c)
if J = 0 then
Console.Write( "0" & c_code.ToString("X") & " ")
else if c_code = 0
Console.Write( "-- " )
else
Console.Write( c_code.ToString("X") & " ")
end if
Next
Console.WriteLine()
Next
Console.WriteLine()
' SHIFT_JIS の中の文字の一部を Unicodeに変換
For I = 0 to 15
For J = 0 to 15
c = Microsoft.VisualBasic.Strings.Chr(I+J*16)
c_code = Microsoft.VisualBasic.Strings.AscW(c)
if J = 0 then
Console.Write( "0" & c_code.ToString("X") & " ")
else if c_code = 0
Console.Write( "-- " )
else
Console.Write( c_code.ToString("X") & " ")
end if
Next
Console.WriteLine()
Next
Console.WriteLine()
' Unicode
For I = 0 to 15
For J = 0 to 15
c = Microsoft.VisualBasic.Strings.ChrW(I+J*16)
c_code = Microsoft.VisualBasic.Strings.AscW(c)
if J = 0 then
Console.Write( "0" & c_code.ToString("X") & " ")
else if c_code = 0
Console.Write( "-- " )
else
Console.Write( c_code.ToString("X") & " ")
end if
Next
Console.WriteLine()
Next
End Sub
End Module
00 10 20 30 40 50 60 70 80 -- A0 B0 C0 D0 -- -- 01 11 21 31 41 51 61 71 -- -- A1 B1 C1 D1 -- -- 02 12 22 32 42 52 62 72 -- -- A2 B2 C2 D2 -- -- 03 13 23 33 43 53 63 73 -- -- A3 B3 C3 D3 -- -- 04 14 24 34 44 54 64 74 -- -- A4 B4 C4 D4 -- -- 05 15 25 35 45 55 65 75 -- -- A5 B5 C5 D5 -- -- 06 16 26 36 46 56 66 76 -- -- A6 B6 C6 D6 -- -- 07 17 27 37 47 57 67 77 -- -- A7 B7 C7 D7 -- -- 08 18 28 38 48 58 68 78 -- -- A8 B8 C8 D8 -- -- 09 19 29 39 49 59 69 79 -- -- A9 B9 C9 D9 -- -- 0A 1A 2A 3A 4A 5A 6A 7A -- -- AA BA CA DA -- -- 0B 1B 2B 3B 4B 5B 6B 7B -- -- AB BB CB DB -- -- 0C 1C 2C 3C 4C 5C 6C 7C -- -- AC BC CC DC -- -- 0D 1D 2D 3D 4D 5D 6D 7D -- -- AD BD CD DD -- FD 0E 1E 2E 3E 4E 5E 6E 7E -- -- AE BE CE DE -- FE 0F 1F 2F 3F 4F 5F 6F 7F -- -- AF BF CF DF -- FF 00 10 20 30 40 50 60 70 80 -- F8F0 FF70 FF80 FF90 -- -- 01 11 21 31 41 51 61 71 -- -- FF61 FF71 FF81 FF91 -- -- 02 12 22 32 42 52 62 72 -- -- FF62 FF72 FF82 FF92 -- -- 03 13 23 33 43 53 63 73 -- -- FF63 FF73 FF83 FF93 -- -- 04 14 24 34 44 54 64 74 -- -- FF64 FF74 FF84 FF94 -- -- 05 15 25 35 45 55 65 75 -- -- FF65 FF75 FF85 FF95 -- -- 06 16 26 36 46 56 66 76 -- -- FF66 FF76 FF86 FF96 -- -- 07 17 27 37 47 57 67 77 -- -- FF67 FF77 FF87 FF97 -- -- 08 18 28 38 48 58 68 78 -- -- FF68 FF78 FF88 FF98 -- -- 09 19 29 39 49 59 69 79 -- -- FF69 FF79 FF89 FF99 -- -- 0A 1A 2A 3A 4A 5A 6A 7A -- -- FF6A FF7A FF8A FF9A -- -- 0B 1B 2B 3B 4B 5B 6B 7B -- -- FF6B FF7B FF8B FF9B -- -- 0C 1C 2C 3C 4C 5C 6C 7C -- -- FF6C FF7C FF8C FF9C -- -- 0D 1D 2D 3D 4D 5D 6D 7D -- -- FF6D FF7D FF8D FF9D -- F8F1 0E 1E 2E 3E 4E 5E 6E 7E -- -- FF6E FF7E FF8E FF9E -- F8F2 0F 1F 2F 3F 4F 5F 6F 7F -- -- FF6F FF7F FF8F FF9F -- F8F3 00 10 20 30 40 50 60 70 80 90 A0 B0 C0 D0 E0 F0 01 11 21 31 41 51 61 71 81 91 A1 B1 C1 D1 E1 F1 02 12 22 32 42 52 62 72 82 92 A2 B2 C2 D2 E2 F2 03 13 23 33 43 53 63 73 83 93 A3 B3 C3 D3 E3 F3 04 14 24 34 44 54 64 74 84 94 A4 B4 C4 D4 E4 F4 05 15 25 35 45 55 65 75 85 95 A5 B5 C5 D5 E5 F5 06 16 26 36 46 56 66 76 86 96 A6 B6 C6 D6 E6 F6 07 17 27 37 47 57 67 77 87 97 A7 B7 C7 D7 E7 F7 08 18 28 38 48 58 68 78 88 98 A8 B8 C8 D8 E8 F8 09 19 29 39 49 59 69 79 89 99 A9 B9 C9 D9 E9 F9 0A 1A 2A 3A 4A 5A 6A 7A 8A 9A AA BA CA DA EA FA 0B 1B 2B 3B 4B 5B 6B 7B 8B 9B AB BB CB DB EB FB 0C 1C 2C 3C 4C 5C 6C 7C 8C 9C AC BC CC DC EC FC 0D 1D 2D 3D 4D 5D 6D 7D 8D 9D AD BD CD DD ED FD 0E 1E 2E 3E 4E 5E 6E 7E 8E 9E AE BE CE DE EE FE 0F 1F 2F 3F 4F 5F 6F 7F 8F 9F AF BF CF DF EF FF
|
|
【VB.NET : ベーシックの最新記事】
- VB.net : 「ファイルを開くダイアログ」のパラメータを単純なテキストファイルより取得する
- VB.net での テキストファイルの読み書きを、出力時のみキャラクタセット毎に条件コンパイル指定する
- VB.net での DateDiff メソッドの使用方法
- VB.net : 整数 : カンマ編集/前ゼロ/前スペース/１６進数文字列変換
- テキストファイルとキャラクタセットの処理
- VB.net : String、Char()、Byte() の相互変換
- コマンドプロンプト : 入力したキーストロークを表示しない readkey.exe
- VB.net/C# : 連続する文字の作成と良く使う文字列フォーマット
- VB.net : 各種ディレクトリパスの取得 : テンポラリ/システム/特殊ディレクトリの列挙
- VB.net : アプリケーションを開始した実行可能ファイルのパス
- VB.net : アプリケーションディレクトリ
- VB.NET : バッチファイル用ファイルの参照ダイアログ
- コマンドプロンプト : クリップボードにあるファイル情報を標準出力へ
- VB.NET(コマンドプロンプト) : 指定した文字列だけ色を変えて表示する
- VB.NET : SHA256
