click me down!
and you can also enjoy this service!
聖書の異なる翻訳ごとの同じ箇所の照応
を可能にする秀丸マクロ（こう言うのをハイパーテキストっていうんですか？）
$Dirで指定されたDir┬$Strの次の行でそれぞれ指定された子ディレクトリ
├$Strの次の行でそれぞれ指定された子ディレクトリ
└$Strの次の行でそれぞれ指定された子ディレクトリ
このマクロでは４カ所をチェックする必要があります。チェックして直さないとうまくファイルが開けません。
//VZ bibgre.defを真似たもの v.2.00
//上田彰（東神大）97/12/31(水) 23:03
//特徴
//grepファイルに対してもかけられる
//bibgre.defのように画面分割が出来ない
//詩篇に対応できるように、少数と節数の桁数を２以上の任意とした。ふつうは２〜３
$Dir = "C:\\DATA\\BIBLE\\"; //ここをチェック
$directory = directory;
$latestsearchbuffer = searchbuffer;
#latestsearchoption = searchoption;
MOUSE:
mousemenu "(&S)新共同訳", "(&G)ギリシャ語訳", "(&J)欽定訳" ;
if( result == 0 ) goto end;
else if( result == 1 ) {
goto SKD;
} else if( result == 2 ) {
goto GREEKNT;
} else if( result == 3 ) {
goto KJV;
}
SKD:
$Str = "SKD";
$BookDir = $Dir + "skd\\"; //確認
goto MAIN;
GREEKNT:
$Str = "GK";
$BookDir = $Dir + "greeknt\\"; //確認
goto MAIN;
KJV:
$Str = "KJV";
$BookDir = $Dir + "kjv\\"; //確認
goto MAIN;
////////////////////////////聖書ファイルとGrepファイルの共通セクション（１）
MAIN:
golineend;
searchup "[0-9][0-9]:[0-9][0-9]" ,regular;
#Now_X = x; //初期Ｘ座標
#Now_Y = y; //初期Ｙ座標
golinetop;
beginsel;
goto NEXT;
////////////////////////////Grepファイルに対応するためのセクション
withTAG:
moveto #Now_X, #Now_Y;
searchup " " ,casesense;
right;
beginsel;
goto NEXT;
////////////////////////////聖書ファイルとGrepファイルの共通セクション（２）
NEXT:
searchdown "[^0-9][0-9][0-9]" ,regular;
right;
copy;
moveto #Now_X, #Now_Y;
beginsel;
searchdown "[0-9][^0-9]" ,regular;
searchdown "[0-9][^0-9]" ,regular;
right;
getsearch;
beginclipboardread;
$book = getclipboard;
if (existfile($BookDir + $book + "." + $Str) == false){
goto withTAG;}
escape;
readonlyopenfile $BookDir + $book + "." + $Str;
gofiletop;
finddown;
if( !result )
{message "見つかりませんでしたよん。";
prevpos;
goto end;
}
escape;
poppaste;
deleteline;
#FEP=imestate;
if (#FEP==1) imeswitch; //漢字ONなら、解除
goto end;
end:
setsearch $latestsearchbuffer, #latestsearchoption;
endmacro;
//誤動作情報はmailto:ued@made.in.jpn.orgでお願いします。