E-Mail 　URL

E-Mail

E-Mail

タマには桐以外の事も・・・　いつもか？　(^^;

私のメインの環境はブラウザが Mozilla で，メーラが WZ Mail なのですが
Mozilla も 1.5 の正式版が出たし WZ も一応 5.0 が出たので入れ替えました。

で，WZ は今まで Mozilla 系から送られてくるメールで日本語ファイル名を
使った添付ファイルが正しく処理できなくて日本語にならない素のエンコード
された状態しか表示してくれなかったのですが，これは WZ 5.0 で正しく処理
してくれるようになりました。今までは Mozilla系から送られてくる JIS では
なく Shift_JIS + Base64 でエンコードされたファイル名を WZ は処理できな
かったのです。(今度の桐はこの辺はどうなる？)

あと Mozilla + WZ Mail で，もう１つ問題になっていたのが mailto: プロト
コルの処理で，Mozilla は Web上に記載された mailto: の記述を，そのまま
コマンドラインに渡すのでは無く，律儀に礼儀正しく UFT-8 にエンコードして
コマンドラインに渡していました。で WZ は，この mailto: の UTF-8 を全く
処理できなかったのですよね・・・　(;_;)

今度の WZ5 には，この辺も期待していたのですが，こちらに対しては対応され
ていなかったようです。(テキストファイルに関しては Unicode や UTF-8 等
についても Shift_JIS 以外の文字についても正式に対応されましたが！)
(桐はいつになる？)

今までは仕方なく mailto: を処理する段階で Shift_JIS に戻してから WZ に
オプションを渡すようなスクリプトを組んで使っていたのですが，こちらに
関しては WZ5 になっても捨てられないようです。　(;_;)

UTF-8 な mailto: プロトコルを巧く処理できないショボイメーラを使っている
そんなあなたに・・・　utf8decode.js (JScriptで〜す)

mailto: プロトコルの関連付けに次のように設定して使います。

"wscript.exe" "C:\Program Files\WZ EDITOR\utf8decode.js" "%1"

utf8decode.js
-----------------------------------------------------------------------
var Arg, Query;
var Arg = WScript.Arguments;
if (Arg.length) {
  Query = decodeURL(Arg(0));
  var WShell = WScript.CreateObject("WScript.Shell");
  WShell.Run("\"C:\\Program Files\\WZ EDITOR\\WZEDITOR.EXE\" /fwzMail -t" + "\"" + Query + "\"");
}

function decodeURL(str){
    var s0, i, j, s, ss, u, n, f;
    s0 = "";                // decoded str
    for (i = 0; i < str.length; i++){   // scan the source str
        s = str.charAt(i);
        if (s == "+"){s0 += " ";}       // "+" should be changed to SP
        else {
            if (s != "%"){s0 += s;}     // add an unescaped char
            else{               // escape sequence decoding
                u = 0;          // unicode of the character
                f = 1;          // escape flag, zero means end of this sequence
                while (true) {
                    ss = "";        // local str to parse as int
                        for (j = 0; j < 2; j++ ) {  // get two maximum hex characters for parse
                            ss += sss = str.charAt(++i);                    // if hex, add the hex character
                            if (!(((sss >= "0") && (sss <= "9")) || ((sss >= "a") && (sss <= "f"))  || ((sss >= "A") && (sss <= "F")))) {
                                s0 += "%" + ss; f = -1; break;
                            }
                        }
                    if (f == -1) {break;}                                   // not a hex char., exit the loop
                    n = parseInt(ss, 16);                                   // parse the hex str as byte
                    if (n <= 0x1f)              {s0 += "%" + ss ; f = -1;}  // code format
                    if ((n >= 0x20) && (n <= 0x7f)){u = n       ; f =  1;}  // single byte format
                    if ((n >= 0xc0) && (n <= 0xdf)){u = n & 0x1f; f =  2;}  // double byte format
                    if ((n >= 0xe0) && (n <= 0xef)){u = n & 0x0f; f =  3;}  // triple byte format
                    if ((n >= 0xf0) && (n <= 0xf7)){u = n & 0x07; f =  4;}  // quaternary byte format (extended)
                    if ((n >= 0x80) && (n <= 0xbf)){u = (u << 6) + (n & 0x3f); --f;} // not a first, shift and add 6 lower bits
                    if (f <= 1){break;}                                     // end of the utf byte sequence
                    if (str.charAt(i + 1) == "%"){ i++ ;}                   // test for the next shift byte
                    else {break;}                                           // abnormal, format error
                }
            if (f != -1) {s0 += String.fromCharCode(u);}                          // add the escaped character
            }
        }
    }
    return s0;
}
-----------------------------------------------------------------------

# 今度の桐は mailto: プロトコルに桐を関連付けて，桐からメールを送ったり
# 記録を取ったりできるようになる(する人も出てくる)のだろうか？

誤記訂正(^^;)
---------------------------------
変数宣言　固有,文字列{&名前,&Tel,&順番,&名前項目名,&Tel項目名}
表　"印刷専用作業表.tbl",表番号=2
行削除　*,圧縮
行追加　終了状態=&実行リターン
ジャンプ　行番号=1
表　"元の表名.tbl",表番号=1
繰り返し(.not #EOF)
　&名前=[名前],&Tel=[Tel],&順番=#全角(#str([順番])),&名前項目名="名前"+&順番,&Tel項目名="Tel"+&順番
　編集表 2
　行訂正　終了状態=&実行リターン,&名前項目名=&名前,&Tel項目名=&Tel
　編集表 1
　ジャンプ　行番号=+1
繰り返し終了
---------------------------------
主な訂正点は[順番]項目値の取得関連です。(^^;)
なお、この項目値が元々文字列型で全角であれば、&順番=#全角(#str([順番]))
のように変換する必要はありません。