| |
秀丸担当さん今日は、ひろです。
> V3.16β8を作りました。
次のファイルで Courier フォントを選択し、確認ダイアログに対して
は、「テキストの〜」を選択し、[OK] を選択します。次に更新扱いになるの
で、保存します。
;----------------- sample begin -----------------------------
Content-Type: text/plain; charset=iso-8859-1
In-Reply-To: <199706271325.xxxxxxxx@mx1.nisiq.net>
References: <199706271325.xxxxxxxx@mx1.nisiq.net>
From: <xxx@nifty.ne.jp>
;----------------- sample end ------------------------------
この状態で、末尾のマクロを実行すると、11 行目がエラーになります。た
だし行頭の半角空白は、半角空白 2 つに対して、1 つのタブに変更してくだ
さい。何故か半角空白だと大丈夫でした。またVer.3.16β7 では大丈夫のよ
うですが、鶴亀 Ver.1.95 でも同様の問題が発生するので、以前から内在し
ていたのかもしれません。
call arab2japan2 "59";
message $$return;
endmacro;
arab2japan2://arab numuber を日本語表示に (60 より小さい数のみに対応)
##number = val($$1);
if(##number < 10){
call arab2japan $$1;
return $$return;
}
else if(##number == 10)return "十";
else if(##number > 10 && ##number < 20){
call arab2japan rightstr($$1,1);
return "十" + $$return;
}
else if(##number == 20)return "二十";
else if(##number == 30)return "三十";
else if(##number == 30)return "四十";
else if(##number == 30)return "五十";
else{
call arab2japan leftstr($$1,1);
$$1digit = $$return;
call arab2japan rightstr($$1,1);
return $$1digit + $$return;
}
arab2japan://アラビア数字を日本語数字 (一桁のみ)
if($$1 == "1")return "一";
else if($$1 == "2")return "二";
else if($$1 == "3")return "三";
else if($$1 == "4")return "四";
else if($$1 == "5")return "五";
else if($$1 == "6")return "六";
else if($$1 == "7")return "七";
else if($$1 == "8")return "八";
else if($$1 == "9")return "九";
else if($$1 == "0")return "○";
else return "";
|
|