メールをテキストファイルで保存

　12月20日 きっかけは

　前から、不安に思っていたこと。
　「メールが満杯になったらどうしたらいい」、「トラブルでメールが消えたらどうしよう」

　私はＢｅｃｋｙとＯｕｔｌｏｏｋＥｘｐｒｅｓｓを使っています。　これをテキストファイルとして保存したらいいんじゃないかと常々思っていました。　やってみようか。
　まずメモ帳で　Ｃ：￥becky以下のメールの保存領域　ｘｘｘ．ｂｍｆ　を見てみる。

Return-Path:... 　　とｂｅｃｋｙのヘッダで見覚えのあるキーワードがある。　が、
Subject: =?iso-2022-jp?B?GyRC...　 と、これは何だ。　それに後ろの方の
$B=U$rO"$l$F$-$?:y$N2V$,%... 　など訳の分からない記号は？

　と言う訳で、さっそくインターネットで調べてみる。

　なんとか分かった。　ＢＡＳＥ６４変換とか。

　通信では、８ビットは使えず、７ビットを用いている。（昔聞いたパリティビットと関係あるのか？）　とにかく、
①　８ビットの文字×３バイトを６ビット（頭２ビットには０を詰める）×４バイトにする。
②　変換前の文字列が３の倍数でない時は足りないビットに０を詰める。
③　結果の各バイトは、（６ビットなので）０～６３の数値になっている。　それを
　０～２５⇒英大文字のＡ～Ｚ、２６～５１⇒英小文字のａ～ｚ、５２～６１⇒数字の０～９、６２⇒記号の＋、６３⇒記号の／
　と変換している。
④　結果のバイト数が４の倍数にならない時は、＝を詰めて４の倍数にしている。
　この操作をエンコードといい、そして、その文字列を「?iso-2022-jp?B?」と「?=」とで、囲んでいる。　逆の操作はデコードというそうだ。

　カタカナの「ア」のＪＩＳコードは１６進コードで、２５２２なのでビットで表すと、

　　　　００１００１０１　　｜　　００１０００１０　　　　　となるので

　　００００１００１｜０００１００１０｜００００１０００　　に変換される。　（最後の００は②により詰めた。）

　③と④により、結果はＪＳＩ＝という文字列になる。

　この反対の操作をすればいいので、Ｖｉｓｕａｌ　Ｂａｓｉｃでさっそく、テキストボックス２つとコマンドボックスを配置し、メモ帳の「?iso-2022-jp?B?」と「?=」の間の文字列をテキストボックスに貼り付けて、デコード結果をもう一つのテキストボックスに表示してみる。

　結果は

$B....　　またまた？？

　　　が、メモ帳で見た後の方の文字列と似ている。　どうやら漢字らしいが。

　12月２４日　ＪＩＳコードとシフトＪＩＳコード

　今年は、アンコールワット旅行の時から雪に見舞われ続けているが、昨日はまれに見る大雪、各地で被害が出ているようだ。　昨日と今日、午後になって家の周りの道の除雪をする。

　そして、除雪作業の合間に、懸命になってインターネットで、先日のメモ帳で見たメールの訳の分からない文字の理由を調べる。　有った！
　パソコンで使っている漢字はシフトＪＩＳコードだそうだが、メール等ではＪＩＳコードを使っている。　パソコンに表示する為にはＪＩＳコードからシフトＪＩＳコードに変換する必要がある。

　前回メモ帳で見た、・＄ＢはここからＪＩＳコードが始まることを（最初の・はＥｓｃコードと言い、アスキー文字には無いコード、メモ帳では文字化けしていた）（ＢはＪＩＳコードの終わりを表す。　（Ｊが使われる時もある。

　それなら、先日のＶＢのプログラムにもう一つテキストボックスを追加して、シフトＪＩＳコードを表示するようにしてみよう。

　さらに、インターネットでＪＩＳ⇒シフトＪＩＳ変換の仕組みを調べるが、Ｃで書かれたプログラムは多いが、ＶＢではない。　バリバリのプログラマーはＶＢなんか使わないのか…。
　変換のロジックはいろいろ調べてみた結果、ＶＢで２０行前後でプログラムにすることができた。

　実行してみた結果、確かにメールで見たとおりの文字が出てきた。