*[PPx]スクリプトメモ マーク対応リネーム

//!*script
// @R置き換えスクリプト Ver 2.3
// 引数:\R:拡張子変更 それ以外:ファイル名変更
// X_esel = 1,0を想定
// ============================================================
//^変数宣言
var arg     = '';    // 引数:呼出モード
var command = '';    // PPxコマンドワーク

//引数取得
arg = PPx.Arguments.Item(0);  //0オリジン

// 引数判定
if (arg != '\\R') {
   command = '%K"@R"';                   //ファイル選択(通常)
// command = '%k"^A" %K"@R"';            //全選択
// command = '%k"\\^A" %K"@R"';          //選択解除
} else {
   command = '%k"\\^A \\END" %K"@R"';    //拡張子(.込み)選択
// command = '%k"\\^A @F2 @F2" %K"@R"';  //拡張子(.除き)選択

}
// ヒストリ使用禁止
PPx.Execute('*setcust K_edit:UP,');
PPx.Execute('*setcust K_edit:DOWN,');

// マーク終了までリネーム(後聞き)
do {
   PPx.EntryFirstMark;  //マーク先頭エントリに位置付け
   if ( PPx.Execute(command) != 0 ) {
      break;
   }
} while( PPx.EntryMarkCount != 0);

// ヒストリ使用禁止解除
PPx.Execute('*setcust K_edit:UP=@UP');
PPx.Execute('*setcust K_edit:DOWN=@DOWN');
PPx.Quit();