JISコードの表示ツールを作る
どうも、三流プログラマーのＫｅｎ３です。 今回は、 漢字のＪＩＳコードの表示ツールを作ってみたいと思います。 プログラムは、 http://www.ken3.org/p/e/vbnet013.lzh に圧縮したプロジェクトが入ってます。 あわせて見てください。/* * １. 仕様を決める */
画面仕様 調査文字列 [ _______________ ] txtMOJI 結果 [ ____________________ ] txtOUT [ ____________________ ] 複数行可能とする 流れ ユーザーが確認したい文字列を入力後、調査開始のボタンを押します 文字列から１文字単位で文字を取り出し、コードを表示します。 オヤ？どこかで見たような？仕様だなぁ。 文字コードの表示で使ってた画面と一緒ですね。 txtMOJIと入力用にテキストボックスを作成して、 結果をtxtOUTに書き込むことにします。/* * ２．下準備、調べごと */
漢字コード、JISコードの変換関数ないかなぁ、と調べ始める。 Asc関数をヘルプで見ると、返ってくるコードは、 解説 Asc は、入力文字に対するコード ポイント (文字コード) を返します。 2 バイト文字セット (DBCS: Double-Byte Character Set) 値に対しては -32768 〜 32767 です。 返される値は、TextInfo クラスの ANSICodePage プロパティに含まれている 現在のスレッドのコード ページによって異なります。 TextInfo.ANSICodePage は、 System.Globalization.CultureInfo.CurrentCulture.TextInfo.ANSICodePage を指定することによって取得できます。 なんかよくわかんないねぇ。 MsgBox(Hex(Asc("愛"))) で実際にテストしてみよう。 FFFF88A4？なにこれ？ (
実行画像)
どうやら、シフトＪＩＳみたいですね、頭のＦＦＦＦは気になるけど、
88A4がシフトＪＩＳです。
とすると、シフトＪＩＳをＪＩＳに直す関数をチェックすると、
えっ無いの？（探し方が悪いのか？それとも漢字コードなんて気にしないのか？）
シフトJIS JISコード 変換表
をキーワードにgoogleを検索する
OSF 日本ベンダ協議会 (OSF/JVC) 推奨
日本語 EUC ・シフト JIS 間コード変換仕様とコード系実態調査
http://www.opengroup.or.jp/jvc/cde/sjis-euc.html
日経ソフトウエア JIS漢字コード
http://software.nikkeibp.co.jp/software/special/jiscode/nc.html
なんだか、よくわかんないよ（笑）
オレは変換プログラムを書きたいんだってば、
＊自分で変換の意味見て計算式ぐらい書けよ。
と読者の声が聞こえたところで、
初心者によるエンコーディングと文字セットメモ
http://sanaki-web.hp.infoseek.co.jp/code/encode.htm
を見ると、やっと変換の式が書いてある。
>S-JIS -> JIS
>if(第一バイト <= 0x9F){
>第一バイト = 第一バイト - 0x71
>}
>else{
>第一バイト = 第一バイト - 0xB1
>}
>第一バイト = 2 * 第一バイト + 1
>if(第ニバイト > 0x7F){
>第ニバイト = 第ニバイト - 1
>}
>if(第ニバイト >= 0x9E){
>第ニバイト = 第ニバイト - 0x7D
>第一バイト = 第一バイト + 1
>}
>else{
>第ニバイト = 第ニバイト - 0x1F
>}
を元に作成してみる。
'シフトJISコードの文字列を受け取り、ＪＩＳコードを返す
エラー画像)
なんで？Right関数って無いの？と思い、ヘルプを見ると、
解説
Str の文字数を確認するには、Len 関数を使用します。
Windows フォーム、
または Right プロパティを持つほかの任意のクラスで使用される場合、
Microsoft.VisualBasic.Right で関数を完全修飾する必要があります。
^^^^^^^^^^^^^^^^^^^^^^^^^^^
えっ、そんなこと必要なの、、、
なんか、イヤだなぁ、、、
Private Sub btnRUN_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnRUN.Click
Dim n As Integer 'カウンタ
Dim strWORK As String '文字保存
Dim strCODE As String '文字コード１６進
Me.txtOUT.Text = "" '結果エリアを初期化
For n = 1 To Me.txtMOJI.Text.Length '文字数分ループする
strWORK = Me.txtMOJI.Text.Chars(n - 1) '配列が０からなので
Me.txtOUT.Text += ("[" & strWORK & "] - ")
strCODE = Microsoft.VisualBasic.Right(Hex(Asc(strWORK)), 4)
If Len(strCODE) <= 2 Then '１バイト半角文字なら
Me.txtOUT.Text += ("ASCII " & strCODE & "半角です")
Else
Me.txtOUT.Text += ("SJIS=" & strCODE)
Me.txtOUT.Text += (" JIS=" & SJIStoJIS(strCODE))
End If
Me.txtOUT.Text += vbCrLf '改行
Next
End Sub
と、してなんとか作ってみました。
こんなに一生懸命やらなくても、何かいいほうほうがありそうだけど。