SQLの窓

2010年05月30日


VB.net : 文字単位の ASCII と Unicode

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


posted by lightbox at 2010-05-30 17:06 | VB.NET : ベーシック | このブログの読者になる | 更新情報をチェックする
バッチ処理

Microsoft Office
container 終わり

フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
CSS ドロップシャドウの参考デモ
Google Hosted Libraries
cdnjs
BUTTONS (CSS でボタン)
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり