ページ

▼

2016年2月22日月曜日

拡張コメントを利用したソート

今回は、拡張コメントを利用して柔軟なソートをする方法です。PPx 1.47+1以降とPPx Script Module R15以降が必要です。

EXE、TXT、CFG、ZIPを前方に。それ以外は後方に持ってくるようなソートをしてみます。



以下をScriptフォルダに保存。

 excomment.js
//!*script

for (var i = 0; i < PPx.EntryAllCount; i++) {
  if (PPx.Entry(i).Name.match(/.EXE$/i)) {
    PPx.Entry(i).SetComment(1,1);
  } else if (PPx.Entry(i).Name.match(/.TXT$/i)) {
    PPx.Entry(i).SetComment(1,2);
  } else if (PPx.Entry(i).Name.match(/.CFG$/i)) {
    PPx.Entry(i).SetComment(1,3);
  } else if (PPx.Entry(i).Name.match(/.ZIP$/i)) {
    PPx.Entry(i).SetComment(1,4);
  } else {
    PPx.Entry(i).SetComment(1,5);
  }
}

SetCommentで、個々のエントリに拡張コメントを設定してます。

次に、このスクリプトをCOMMENTEVENTに登録します。
以下を編集して取込。
KC_main = { ; PPcメイン窓
COMMENTEVENT1 ,*script %0\Script\excomment.js
}

次に、ソートを実行したいフォルダに行って、以下を実行。

*sortentry -thispath 24,1,0,B11111,1

すると、COMMENTEVENT1が呼び出され、excomment.jsが実行された後に、拡張コメントを用いたソートがなされます。

追記　2017/03/16


XC_dsetで、特定のフォルダでコマンドを実行するよう設定すれば良さげ。
PPxフォルダで拡張コメントのソートをしたいなら、次のようになる。cmd より前は無視しておｋ。
XC_dset = { 
D:\bin\ppx2window64\ = B0000,-1,-1,11,-1,-1,B011111,B00000000000000000000000001,cmd:"*sortentry -thispath 24,1,0,B11111,1"
}

参考：Paper Plane xUI (PPx) でサーバによって背景色を変える
時刻: 0 件のコメント:

2016年2月1日月曜日

サブフォルダをメニュー表示してファイル移動

カレントフォルダのサブフォルダをメニュー表示して、そこにカーソル下のファイル（あるいはマークファイル）を移動する。


文書や画像の管理の時、こういう操作をすることが結構多いよな、と思って作った。利用機会はあまり無い気もするが、一応コピーもできるようにする。

準備


以下をScriptフォルダに保存。

subdirmenu.js
//!*script
// カレントフォルダのサブフォルダをメニュー表示し、そこに移動/コピーするスクリプト
// 第一引数がmなら移動
// 第一引数がcならコピー

// 引数がなければ終了
if (PPx.Arguments.Length < 1){
  PPx.SetPopLineMessage("引数が正しくありません。");
  PPx.Quit(-1);
}

// サブフォルダがなければ終了
if (PPx.EntryDisplayDirectories() == 0){
  PPx.SetPopLineMessage("サブフォルダがありません。");
  PPx.Quit(-1);
}

var currentDir = PPx.Extract('%1');
var fso = PPx.CreateObject("Scripting.FileSystemObject");
var i2 = 0;

// メニューの削除
PPx.Execute("*setcust -|M_hoehoe =");

// メニュー項目の登録
for (var i = 0; i < PPx.EntryAllCount; i++) {
  var f = PPx.Entry(i).Name;
  // ディレクトリかどうかを判別
  if (PPx.Entry(i).Attributes & 16 && f !=('.') && f!=('..')) {
    // 項目数が10を超えたら次の段へ。30を超えたら終了。
    if (i2 == 10 || i2 == 20) { 
      PPx.Execute('*setcust M_hoehoe:||=');
    } else if (i2 == 30) {
      break;
    }
    // 表示内容を、コメントがあるときはコメントに。ない場合はフォルダ名に。
    if (PPx.Entry(i).Comment != ""){
      var item = PPx.Entry(i).Comment;
    } else {
      var item = f;
    }
    // メニューの登録。10項目までは数字のショートカットを付加する。
    if (i2 < 10) {
      // 表示内容の後ろに全角スペースを付け足している。表示内容が１文字の場合、実行内容も表示されてしまうため。
      PPx.Execute('*setcust M_hoehoe:&'+i2+ ' '+item+'　= '+fso.BuildPath(PPx.Extract("%1"), f));
    } else {
      PPx.Execute('*setcust M_hoehoe:'+item+'　= '+fso.BuildPath(PPx.Extract("%1"), f));
    }
    i2 += 1;
  }
}

// メニューの実行
if (PPx.Arguments.Item(0) == "m"){
  PPx.Execute("*ppcfile !move,%M_hoehoe,0");
} else if (PPx.Arguments.Item(0) == "c"){
  PPx.Execute("*ppcfile !copy,%M_hoehoe,0");
} else {
  PPx.SetPopLineMessage("引数にはmかcを指定してください");
}

//  オブジェクトを解放
fso = null;

以下を編集して取込。
KC_main = { ; PPcメイン窓
^\C ,*script %0\Script\subdirmenu.js,c
^\M ,*script %0\Script\subdirmenu.js,m
}

やり方


  1. 移動したいファイルをマークする。移動させたいのが一つなら、そこにカーソルを置くだけでもいい。
  2. Ctrl+Shift+Mを押す（コピーの場合はCtrl+Shift+C）。すると、サブフォルダメニューが出る。
  3. 移動したいフォルダを選択すると、ファイル移動する。


追記


時刻: 0 件のコメント: