//MTG：AutoCardリンク変換マクロ
//初期設定
#starttime = tickcount; //開始時刻
#c1 = 0; //ループカウンタ
if (!searchmode) call SetSearchMode 1; // 検索での表示を「範囲選択」に設定
replaceallfast "《" , "《/" , casesense; //英名のみのカードのための措置（設置）
gofiletop; //ファイル先頭へ
roop: //ループラベル
searchdown ")》", casesense; //カード部分を検索
//これ以上見つからなかったら
if(!result){
//replaceallfast "《/" , "《" , casesense; //英名のみのカードのための措置（除去）
replaceallfast "cgi?/" , "cgi?" , casesense; //ゴミの除去
replaceallfast "name=/" , "name=" , casesense; //ゴミの除去（Conflux）
replaceallfast "(~" , "~" , casesense; //ゴミの除去
replaceallfast "~(" , "~" , casesense; //ゴミの除去
replaceallfast "(&printed" , "&printed" , casesense; //ゴミの除去（Conflux）
replaceallfast ")\"" , "\"" , casesense; //ゴミの除去
if (#searchmodechanged) call SetSearchMode 0; //サブルーチンで設定を変更していた場合元に戻す
message "完了\n変換" + str(tickcount - #starttime) + "ms / " + str(#c1)+ "箇所"; //結果表示
endmacro; //終了
}
//見つかったら
searchup "/.*?\\(" , regular; //英名部分を選択
$name = gettext(seltopx, seltopy, selendx, selendy); //英名部分を取得
searchdown "\\(.*?\\)" , regular; //セット名部分を選択
$set = gettext(seltopx, seltopy, selendx, selendy); //セット名部分を取得
replaceup "《/" , "《" , casesense; //開始タグ
if($set == "(CON)"){ //Conflux特別措置
replacedown ")》" , ")》［Gatherβ］" , casesense; //終了タグ
}
else{
replacedown ")》" , ")》" , casesense; //終了タグ
}
#c1 = #c1 + 1; //ループカウンタ増加
goto roop; //ループ
// 検索での表示を設定
SetSearchMode:
openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\Env";
writeregnum "SelectFound", ##1;
closereg;
envchanged;
#searchmodechanged = 1;
return;
//Version：3.1.0
//更新日：2009/02/28
//制作：華乃音.J.M.P.D.exempty
//URL：http://exemptyjmpd.blog3.fc2.com/
//更新履歴
//3.1.0 ［2009/02/28］
//GatherβをConfluxのみの特別措置に
//3.0.0 ［2009/02/28］
//Gatherβに移行
//2.2.0［2007/07/06］
//ゴミ除去カウンタの設置
//2.1.0［2007/07/02］
//アドレスに付くことのあったゴミを除去（対症療法）
//2.0.0［2006/12/19］
//英名のみのカードに対応
//1.1.0［2006/10/20］
//ファイル先頭のカードも置換可能に。
//連続したカードも置換可能に。