13/01/27 12:58:23.31 qlcqRLoM0
>>53
//1801年からの元号・西暦変換 （改定暫定版）
$k="享和\t文化\t文政\t天保\t弘化\t嘉永\t安政\t万延\t文久\t元治\t慶応\t明治\t大正\t昭和\t平成"; // 元号に使われる漢字
$n="0123456789元"; // 数字など
// カーソルが年表記の可能性のある文字列の上にあるか？
if (strstr($n+$k,char(code))<0) { // そうでなければ...
beep; // 警告音を鳴らして
endmacro; // マクロの実行を終了
}
// カーソル位置を保存
#x0=column; // カラム位置
#y0=lineno; // 行番号
// 元号を取得
call get_gengou;
$g=$$return;
// 年を取得
call get_year;
#y=##return;
// 年表記を変換
$r="";
if ($g!="") { // 和暦→西暦の変換
if (4<=strlen($g) && 0<=strstr($k,rightstr($g,4))) {
$g=rightstr($g,4);
} else if (0<=strstr("明大昭平",rightstr($g,2))) {
$g=midstr($k,strstr($k,rightstr($g,2)),4);
}
//（1/３ つづく）