2014年11月26日水曜日

ブックマークをリストファイルにして保存

あいさつ


これまで、PPcでのフォルダブックマークと、PPvでのファイルブックマークの方法を考察してきた。


今回はその応用編。ブックマークをファイルに保存して、再利用できるようにする。

準備(両者共通)


  • file2alias.js
  • alias2file.js

の二つをScriptフォルダに保存する。

file2alias.jsはリストファイルを読みとり、エイリアスに登録するスクリプトで、alias2file.jsはエイリアスをリストファイルにして保存するスクリプト。

ちなみにリストファイルというのは
;ListFile
D:\Work\画像フォルダ\ひだまりスケッチ\kulSc26Vu4BA6C577.jpg
D:\Work\画像フォルダ\ひだまりスケッチ\0dd01f46.jpg
D:\Work\画像フォルダ\輪るピングドラム\2dffa763.jpg
D:\Work\画像フォルダ\輪るピングドラム\3b0de06d.jpg
D:\Work\画像フォルダ\輪るピングドラム\4d45aa4d.jpg

こんな書式のテキストファイルで、仮想ディレクトリとして扱うためのもの。


普通にテキストファイルにするよりもこうしておいたほうが、後々何か使い道ありそうかも、と思ってこのようにしている(一行目に;ListFileって付けるだけだし)。

file2alias.js

//!*script
// リストファイルの内容をエイリアスにセットする
// 第一引数:リストファイルのパス
// 第二引数:エイリアス

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

var s = new ActiveXObject('ADODB.Stream');
var i = 0;
var fn = PPx.Arguments.Item(0);
var cmd = PPx.Arguments.Item(1);

// エイリアスをリセット
for (var i2 = 0; i2 < 30; i2++) {
  PPx.Execute("*alias "+cmd + i2 + " = ");
}

// ファイルを読み取り
s.type = 2;
s.charset = 'utf-16';
s.open();
s.loadFromFile(fn);

// エイリアスを順次セット
while(!s.EOS){
  hoge = s.readText(-2);
  if (hoge != "" && hoge != ";ListFile") {
    PPx.Execute("*alias "+cmd + i + " = " +hoge);
    i++;
  }
}
s.close();

alias2file.js

//!*script
// エイリアスをリストファイルに保存する
// 第一引数:リストファイルのパス
// 第二引数:エイリアス

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

var strLine = ";ListFile";
var objFileSys = new ActiveXObject("Scripting.FileSystemObject");
var fn = PPx.Arguments.Item(0);
var cmd = PPx.Arguments.Item(1);

// エイリアスを展開し一つにまとめる
for (var i = 0; i < 30; i++) {
  if (PPx.Extract("%'"+ cmd + i + "'")){
    strLine = strLine + "\r\n" +PPx.Extract("%'" +cmd + i + "'");
  } else {
    break;
  }
}

// ファイルに書き込み
objFileSys.CreateTextFile(fn);
var sw = new ActiveXObject("ADODB.Stream");
sw.Type = 2;
sw.charset = "utf-16";
sw.Open();
sw.WriteText(strLine,1);
sw.SaveToFile( fn, 2 );
sw.Close();

フォルダブックマークの場合


ここからは個別の話に。それぞれで、メニューを作成、表示するためのスクリプトを作成して、ブックマークをファイルに保存、再利用を実現する。

まず、PPxフォルダにbookmarkフォルダを作成。

次に、以下をScriptフォルダに保存する。

bookmarkmenu.js

//!*script
// フォルダのブックマーク用メニュー

fs = PPx.CreateObject("Scripting.FileSystemObject");
var objFileSys = new ActiveXObject("Scripting.FileSystemObject");
var fn = PPx.Extract('%0')+"bookmark";

// フォルダの有無をチェック
if (objFileSys.FolderExists(fn) == false) {
    PPx.Echo(fn+"は存在しません");
    PPx.Quit(-1);
}

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

// 静的メニューの登録
PPx.Execute('*setcust M_hoehoe:ブックマークをファイルに保存=*script %%0\Script\\alias2file.js,'+fn+'\\%%"ブックマークをファイルに保存"%%{%%|.txt%%},bookmark');
PPx.Execute('*setcust M_hoehoe:ブックマークフォルダへ移動=%%j '+ fn);
PPx.Execute('*setcust M_hoehoe:--  =');

// フォルダリストを取得し動的メニューの登録
objFolder = objFileSys.GetFolder(fn);
e = new Enumerator(objFolder.Files); 
for( ; !e.atEnd(); e.moveNext()) {
  PPx.Execute('*setcust M_hoehoe:'+e.item().Name+'=*script %%0\\Script\\file2alias.js,'+fn+"\\"+e.item().Name+",bookmark");
}

// メニューを開く
PPx.Execute("%M_hoehoe,1");

以下を編集して取り込み。

K_bookmark = { ** comment **
',' , *script %0\Script\bookmarkmenu.js
}

使い方


PPc上でC_s ,(Ctrl+Sを押してからカンマを押す)。メニューが表示される。



「ブックマークをファイルに保存」を選択すると、一行編集が出るので、保存したい名前を入力してEnter。


保存したブックマークを使いたいときは、メニュー下部のファイルから適当なものを選択。すると、エイリアスがそのファイルの内容に置き換わる。

ファイルブックマークの場合


まずは、PPxフォルダにClipフォルダを作成。

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

clipmenu.js

//!*script
// PPv用ブックマークメニュー

fs = PPx.CreateObject("Scripting.FileSystemObject");
var objFileSys = new ActiveXObject("Scripting.FileSystemObject");
var fn = PPx.Extract('%0')+"Clip";

// フォルダの有無をチェック
if (objFileSys.FolderExists(fn) == false) {
    PPx.Echo(fn+"は存在しません");
    PPx.Quit(-1);
}

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

// 静的メニューの登録
PPx.Execute('*setcust M_hoehoe:ブックマークをファイルに保存=*script %%0\Script\\alias2file.js,'+fn+'\\%%"ブックマークをファイルに保存"%%{%%|.txt%%},clip');
PPx.Execute('*setcust M_hoehoe:クリップフォルダへ移動=*execute C,*jumppath '+ fn);
PPx.Execute('*setcust M_hoehoe:--  =');

// フォルダリストを取得し動的メニューの登録
objFolder = objFileSys.GetFolder(fn);
e = new Enumerator(objFolder.Files); 
for( ; !e.atEnd(); e.moveNext()) {
  PPx.Execute('*setcust M_hoehoe:'+e.item().Name+'=*script %%0\\Script\\file2alias.js,'+fn+"\\"+e.item().Name+",clip");
}

// メニューを開く
PPx.Execute("%M_hoehoe,1");

以下を編集して取込
K_clip = { ** comment **
',' , *script %0\Script\clipmenu.js
}

使い方


PPv上でC_s ,(Ctrl+Sを押してからカンマを押す)。メニューが表示される。


「ブックマークをファイルに保存」を選択すると、一行編集が出るので、保存したい名前を入力してEnter。

保存したブックマークを使いたいときは、メニュー下部のファイルから適当なものを選択。すると、エイリアスがそのファイルの内容に置き換わる。

想定している使い方とか

 
フォルダであれば、個々の作業ごとに必要なフォルダを登録して再利用するだとか、各所にある画像フォルダをまとめておくとかだろうか。

ファイルであれば、個々の作業で閲覧することになるファイルをまとめておく、とかが考えられる。

他には、リストファイルを作成されるのを利用する方法もありそう。画像なりメモファイルなりを探してる途中、気になるものがあればブックマーク。あとでそれをリストファイル化し、仮想ディレクトリ内でゆっくり選別するとか。

2014年11月25日火曜日

フォルダのブックマーク(PPxで一時ブックマーク改)


あいさつ


PPxで一時ブックマークで行ったフォルダブックマークを

  • setalias.js
  • resetalias.js
  • RotateExecute3.js

の、PPvメインの連動ビューで使った3つのスクリプトで作りなおす。*setが*aliasに変わったこと以外は、やれることはほぼ同じ。
ではなぜ、わざわざ作りなおしたのかというと、次回あたりでやりたい「ブックマークをファイルにして保存」の準備に必要だから。

スクリプト


以下の3つのスクリプトをScriptフォルダに保存。PPvメインの連動ビューのものと全く同じなので流用できる。

setalias.js
//!*script
// 第一引数 : エイリアス
// 第二引数 : マクロ

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

var cmd = PPx.Arguments.Item(0);
var macro = PPx.Arguments.Item(1);

// 既に登録されていたら登録しない
for (var i = 0; i < 30; i++) {
  if (PPx.Extract("%'"+cmd + i + "'") == PPx.Extract(macro)){
    PPx.SetPopLineMessage("既に登録されてます");
    PPx.Quit();
  }
}

// エイリアスに登録
for (var i = 0; i < 30; i++) {
  if (!PPx.Extract("%'"+cmd + i + "'")){
    PPx.Execute("*alias "+cmd+i+" = "+macro);
    PPx.SetPopLineMessage(cmd+i+"に登録しました");
    break;
  }
}

resetalias.js

//!*script
// 第一引数 : エイリアス

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

var cmd = PPx.Arguments.Item(0);

// cmd0からcmd30までをリセット
for (var i = 0; i < 30; i++) {
  PPx.Execute("*alias "+cmd+i+" = ");
}

PPx.SetPopLineMessage(cmd +"をリセットしました");

RotateExecute3.js
//!*script
// 第一引数: 識別子
// 第二引数: エイリアス

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

var id = PPx.Arguments.Item(0);
var command = PPx.Arguments.Item(1);

// command0があるかどうかをチェック
if (!PPx.Extract("%'"+command+"0'")){
  PPx.SetPopLineMessage("コマンドが空です");
  PPx.Quit(-1);
}

// 数値に1を足す
if (!PPx.Extract("%'"+id+"'")){
  PPx.Execute("*set "+id+" = 0");
}else {
  var i = parseInt(PPx.Extract("%'"+id+"'")) + 1;
  PPx.Execute("*set "+id+" = "+ i);
}
var i2 = PPx.Extract("%'"+id+"'");

// commandを実行
if (PPx.Extract("%'"+command+ i2 + "'")){
  PPx.Result = PPx.Extract("%'"+command+ i2 + "'");
}else{
  PPx.Execute("*set "+id+" = 0");
  PPx.Result = PPx.Extract("%'"+command+"0'");
}

設定


以下を編集して取込。
-|K_bookmark =

KC_main = { ; PPcメイン窓
^S ,*setnextkey K_bookmark
}

K_bookmark = { ** comment **
S , *script %0\Script\setalias.js,bookmark,%%1
R , *script %0\Script\resetalias.js,bookmark
^S , %j %*script("%0\Script\rotateExecute3.js","homu","bookmark")
}

使い方


C_s s(Ctrl+Sを押したあとSを押す)で、カレントフォルダをブックマークに登録できる。このとき、左上に登録したエイリアスが表示される。bookmark0、bookmark1、bookmark2と、1つずつ数値が増えているのがわかると思う。






C_s C_s(Ctrl+Sを二回押し)で、ブックマークしたフォルダに順次移動。登録した順に、bookmark0、bookmark1…と切り替わり、最後まで行くとまたbookmark0に戻る。





ブックマークをリセットしたいときは、C_s r(Ctrl+Sを押したあとRを押す)

2014年11月20日木曜日

PPvメインの連動ビュー(ブックマークをローテート)


あいさつ


ブックマークした画像ファイルやテキストファイルを、専用のPPvで開くようにします。

PPv[A]上でC_s C_s。PPv[Z]がフォーカス移動無しで起動、ブックマークしたファイルを開く



C_s C_sを押すたびに、PPv[Z]にブックマークファイルが表示される



という仕組みです。

PPcとPPvの対応関係についても考える必要があるので、それを含めて調整します。PPvをPPcと連動(ID一対一対応をやめる)から色々と変更してます。

スクリプト


必要なのは

  • setalias.js
  • resetalias.js
  • RotateExecute3.js
  • togglemark.js

の4つ。

setalias.js

//!*script
// 第一引数 : エイリアス
// 第二引数 : マクロ

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

var cmd = PPx.Arguments.Item(0);
var macro = PPx.Arguments.Item(1);

// 既に登録されていたら登録しない
for (var i = 0; i < 30; i++) {
  if (PPx.Extract("%'"+cmd + i + "'") == PPx.Extract(macro)){
    PPx.SetPopLineMessage("既に登録されてます");
    PPx.Quit();
  }
}

// エイリアスに登録
for (var i = 0; i < 30; i++) {
  if (!PPx.Extract("%'"+cmd + i + "'")){
    PPx.Execute("*alias "+cmd+i+" = "+macro);
    PPx.SetPopLineMessage(cmd+i+"に登録しました");
    break;
  }
}

*script %0\Script\setalias.js,clip,%%FCDというように引数を2つ取る。第一引数がエイリアスで第二引数がマクロ。Clip0、Clip1、Clip2…と順番に、マクロを展開したものを登録する。

resetalias.js

//!*script
// 第一引数 : エイリアス

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

var cmd = PPx.Arguments.Item(0);

// cmd0からcmd30までをリセット
for (var i = 0; i < 30; i++) {
  PPx.Execute("*alias "+cmd+i+" = ");
}

PPx.SetPopLineMessage(cmd +"をリセットしました");

*script %0\Script\resetalias.js,clipというように引数を一つ取る。引数は初期化したいエイリアス。引数をclipにすると、Clip0~Clip30までを初期化する。

RotateExecute3.js

//!*script
// 第一引数: 識別子
// 第二引数: エイリアス

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

var id = PPx.Arguments.Item(0);
var command = PPx.Arguments.Item(1);

// command0があるかどうかをチェック
if (!PPx.Extract("%'"+command+"0'")){
  PPx.SetPopLineMessage("コマンドが空です");
  PPx.Quit(-1);
}

// 数値に1を足す
if (!PPx.Extract("%'"+id+"'")){
  PPx.Execute("*set "+id+" = 0");
}else {
  var i = parseInt(PPx.Extract("%'"+id+"'")) + 1;
  PPx.Execute("*set "+id+" = "+ i);
}
var i2 = PPx.Extract("%'"+id+"'");

// commandを実行
if (PPx.Extract("%'"+command+ i2 + "'")){
  PPx.Result = PPx.Extract("%'"+command+ i2 + "'");
}else{
  PPx.Execute("*set "+id+" = 0");
  PPx.Result = PPx.Extract("%'"+command+"0'");
}

%*script(rotateExecute3.js,id,command)

と引数を2つ付ける。第一引数は数値をカウントするための識別子で、第二引数はエイリアス。実行するたびに、

command0 command1 command2…

と、第二引数に数字を付け足したエイリアスを順次戻り値として返す。最後のエイリアスを実行したら、またcommand0に戻るという仕組み。


togglemark.js

//!*script

PPx.Entry.Mark = -1;

Space時のマークトグルをどう再現したらいいかわからないので新たに作った。多分もっと良いやり方がある。

設定


以下を編集して取込。

-|K_clip =

K_clip = { ** comment **
S , *script %0\Script\setalias.js,clip,%%FCD
^S , %Oa %0\PPVW.EXE -bootid:z -r %*script("%0\Script\rotateExecute3.js","hoge","clip")
R , *script %0\Script\resetalias.js,clip
}

KV_main = { ; PPvメイン窓
LEFT ,*execute C,*cursor 6,-1,4,B0000,0,B0000 %: *execute C,*ppv -bootid:A -r %%*name(CD,"%%R","%%1")
RIGHT ,*execute C,*cursor 6, 1,4,B0000,0,B0000 %: *execute C,*ppv -bootid:A -r %%*name(CD,"%%R","%%1")
UP ,*execute C,*cursor 2,-1,4,B0000,5,B0000 %: *execute C,*ppv -bootid:A -r %%*name(CD,"%%R","%%1")
DOWN ,*execute C,*cursor 2, 1,4,B0000,5,B0000 %: *execute C,*ppv -bootid:A -r %%*name(CD,"%%R","%%1")
SPACE ,*execute C,*script %0\Script\togglemark.js %: *execute C,*cursor 2, 1,4,B0000,5,B0000 %: *execute C,*ppv -bootid:A -r %%*name(CD,"%%R","%%1")
\SPACE ,*execute C,*script %0\Script\togglemark.js %: *execute C,*cursor 2,-1,4,B0000,5,B0000 %: *execute C,*ppv -bootid:A -r %%*name(CD,"%%R","%%1")
Q ,*closeppx VZ
ENTER ,*closeppx V*
^S ,*setnextkey K_clip
}

E_cr = { ; [Enter]用判別
:JPEG ,
:BMP ,
:XJS ,
:XVBS ,
PNG ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
JPG ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
JPEG ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
BMP ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
GIF ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
TXT ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
CPP ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
H ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
C ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
L ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
EL ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
HTML ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
HTM ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
XYZZY ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
EMACS ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
SCM ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
INI ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
VBS ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
JS ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
PY ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
PYW ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
HOWM ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
CFG ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
KIF ,*launch %0\PPVW.EXE -bootid:A -r %*name(CD,"%R","%1")
}

これで、

  • PPcで画像ファイルやテキストファイルにカーソルをあわせてEnterを押すと、PPv[A]で表示
  • PPv[A]上でカーソルを動かすと、それに連動してアクティブPPcのカーソルが動き、対応するファイルを表示する
  • PPv[A]上でC_s sで表示ファイルをブックマーク
  • C_s C_sでPPv[Z]にブックマークファイルを順次PPv[Z]に表示。PPv[Z]が無い場合はそれを起動。PPv[Z]にフォーカスは当てない
  • QでPPv[Z]を閉じる
  • EnterでPPvを全て閉じる

となる。

使い方


PPcで画像ファイルやテキストファイルにカーソルをあわせてEnterを押すと、PPv[A]が起動。PPv[A]上でカーソルを動かすとそれにあわせてPPcのカーソルが動き、それにあわせてPPv[A]に表示されるファイルも変わる



PPv[A]で閲覧中、気になるファイルを見つけたらC_s sでブックマーク




ブックマークしたファイルを閲覧したいときは、C_s C_s。PPv[Z]がフォーカス無しで起動し、ブックマークファイル(Clip0に登録されているもの)を開く



C_s C_sとするたびに、PPv[Z]にブックマークしたファイルが順次(Clip1、Clip2…)表示される。最後までいくと、またClip0に戻る。



もう十分だと思ったら、Qを押してPPv[Z]を消す



Enterを押すと、PPv[Z]とPPv[A]が共に閉じる


テキストファイルもブックマークできるし、ブックマークにテキストファイルと画像ファイルを混在させることももちろんできる。


追記 2014/11/24


スクリプトを全体的に変更、それにあわせて設定も変更。

画像ファイルやテキストファイルをブックマーク


あいさつ


画像ファイルやテキストファイルなど、PPvで表示したファイルをブックマーク。あとで順次表示できるようにする。
以前やったPPxで一時ブックマークと同じ仕組み。

スクリプト


必要なのは、

  • setclip.js
  • resetclip.js
  • RotateExecute2.js

の3つ。RotateExecute2.jsはPPxで一時ブックマークのと全く同じだが、一応こっちにも載せておく。

setclip.js

//!*script

for (var i = 0; i < 9; i++) {
  if (PPx.Extract("%'clip" + i + "'") == PPx.Extract("*ppv -r %FCD")){
    PPx.SetPopLineMessage("既に登録されてます");
    PPx.Quit();
  }
}

for (var i = 0; i < 9; i++) {
  if (!PPx.Extract("%'clip" + i + "'")){
    PPx.Execute("*alias clip"+i+" = *ppv -r %FCD");
    PPx.SetPopLineMessage("登録しました");
    break;
  }
}

resetclip.js

//!*script

PPx.Execute("*alias clip0 = ");
PPx.Execute("*alias clip1 = ");
PPx.Execute("*alias clip2 = ");
PPx.Execute("*alias clip3 = ");
PPx.Execute("*alias clip4 = ");
PPx.Execute("*alias clip5 = ");
PPx.Execute("*alias clip6 = ");
PPx.Execute("*alias clip7 = ");
PPx.Execute("*alias clip8 = ");
PPx.Execute("*alias clip9 = ");

PPx.SetPopLineMessage("クリップをリセットしました");

RotateExecute2.js

//!*script

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

var id = PPx.Arguments.Item(0);
var command = PPx.Arguments.Item(1);

// command0があるかどうかをチェック
if (!PPx.Extract("%'"+command+"0'")){
  PPx.SetPopLineMessage("コマンドが空です");
  PPx.Quit();
}

// 数値に1を足す
if (!PPx.Extract("%'"+id+"'")){
  PPx.Execute("*set "+id+" = 0");
}else {
  var i = parseInt(PPx.Extract("%'"+id+"'")) + 1;
  PPx.Execute("*set "+id+" = "+ i);
}
var i2 = PPx.Extract("%'"+id+"'");

// commandを実行
if (PPx.Extract("%'"+command+ i2 + "'")){
  PPx.Execute(PPx.Extract("%'"+command+ i2 + "'"));
}else{
  PPx.Execute("*set "+id+" = 0");
  PPx.Execute(PPx.Extract("%'"+command+"0'"));
}

登録


以下を編集して取込。
-|K_clip =
-|M_clip =

M_clip = { ** comment **
現在のファイルを登録 = *script %0\Script\setclip.js
クリップをリセット = *script %0\Script\resetclip.js
--  =
&A:%*regexp("%'clip0'","s/^.*\s(.*)/$1/") = *execute ,%'clip0'
&B:%*regexp("%'clip1'","s/^.*\s(.*)/$1/") = *execute ,%'clip1'
&C:%*regexp("%'clip2'","s/^.*\s(.*)/$1/") = *execute ,%'clip2'
&D:%*regexp("%'clip3'","s/^.*\s(.*)/$1/") = *execute ,%'clip3'
&E:%*regexp("%'clip4'","s/^.*\s(.*)/$1/") = *execute ,%'clip4'
&F:%*regexp("%'clip5'","s/^.*\s(.*)/$1/") = *execute ,%'clip5'
&G:%*regexp("%'clip6'","s/^.*\s(.*)/$1/") = *execute ,%'clip6'
&H:%*regexp("%'clip7'","s/^.*\s(.*)/$1/") = *execute ,%'clip7'
&I:%*regexp("%'clip8'","s/^.*\s(.*)/$1/") = *execute ,%'clip8'
&J:%*regexp("%'clip9'","s/^.*\s(.*)/$1/") = *execute ,%'clip9'
}

KV_main = { ; PPcメイン窓
^S ,*setnextkey K_clip
}

K_clip = { ** comment **
S , *script %0\Script\setclip.js
^S , *script %0\Script\RotateExecute2.js,hoge,clip
R , *script %0\Script\resetclip.js
',' , %M_clip
}

使い方


気に入った画像あるいはテキストファイルを見つけたら、PPv上でC_s s(Ctrl+Sを押したあとにS)で登録。


  これもあとで見よう。C_s s


別の場所でよさげな画像を見つけた。C_s s


ブックマークしたファイルを見返したいと思ったら、PPvを開いてからC_s C_s(Ctrl+Sを二度押す)。そのたびに、さっきブックマークしたファイルが順に表示される。


思ったこととか


ブックマーク表示用のPPvを別に用意しておく、というのもありそうですね。

PPv[A]でC_s C_s。すると、ブックマーク表示用のPPv[Z]をフォーカス移動無しで実行。ブックマークしたファイルを開く。



C_s C_sを押すたびに、PPv[Z]が順にブックマークファイルを表示する。






これを実現するには、さらに少し準備が必要。なのでまた次回。

2014年11月19日水曜日

PPxのリネームパターン私的まとめ


僕がPPxでリネームするときには、いくつかパターンがある。いつも「あれ?どうすればいんだっけ?」みたいに迷うので、整理のためメモ。特に新しいことはしてない。

  1. 普通にリネーム
  2. 外部ソフトに投げて一括リネーム
  3. バラバラのファイル名を統一する
  4. 頭に連番を付ける
  5. ダイアログでマークファイルを順次リネーム
くらいがありそう。

普通にリネーム





Rを押して行うリネーム。一つのファイルをリネームしたいときに。
カーソル状態他は、X_eselでいじれるらしい。僕は選択を外し、拡張子前にカーソルがいくようにしている。


外部ソフトに投げて一括リネーム




複数のファイルを一括リネームするときは、マークしてLiNameに投げる。好きなエディタでリネームできて便利。
まとめサイト他にあるBatchRename.jsを使ってもいいかも。

バラバラのファイル名を統一する




ファイル名がバラバラなのを統一したいときは、マークしてからShift+Rを押して一括リネームする。

s/.+\.(.+)/file\\.$1

とすればおk。拡張子はそのままで、それを除いたファイル名がfile+連番になる。
連番の桁数やどの数値から始めるかもリネームダイアログで調整可能。

頭に連番を付ける




一括リネームで、次のようにすればおk。マークした順番に連番を振るので、音楽ファイルの並び順を調整したいときとかに使えるかもしれない。


s/^/\\_

ダイアログでマークファイルを順次リネーム




PPXSCR.TXTに載っているサンプルを使う。

//!*script

var oldalst = PPx.Extract("%*getcust(XC_alst)");
PPx.Execute("*customize XC_alst=1,1,1,1,1");
PPx.EntryFirstMark;
do {
   if ( PPx.Execute("%K\"@R") != 0 ) break;
   PPx.EntryMark = 0;
}while( PPx.EntryFirstMark != 0 );
PPx.Execute("*customize XC_alst=" + oldalst);

2014年11月18日火曜日

動的メニューの考察


現在の設定に応じ、メニューを動的に変更する方法について考えてみる。
僕は普段、Ctrl+Enterに「拡張子判別実行」%K"@Zを割り当てている。その時は、



と「実行時にカーソルを下げる(1)」メニュー項目を表示。選択すれば、Ctrl+Enterへの割当が「拡張子判別実行をしてからカーソルを下げる」%K"@Z @DOWNに切り替わる。

もし、現在の設定で、Ctrl+Enterへの割当が「拡張子判別実行をしてからカーソルを下げる」%K"@Z @DOWNになっていれば、





と「実行時にカーソルを下げない(1)」メニュー項目を表示。選択すれば、Ctrl+Enterへの割当が「拡張子判別実行」%K"@Zに切り替わる。

スクリプト


//!*script

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

// メニュー項目の登録
if (PPx.Extract("%*getcust(KC_main:^ENTER)")=="@Z @DOWN"){
  PPx.Execute('*setcust M_hoehoe:実行時にカーソルを下げない(&1)=*setcust KC_main:^ENTER=@Z');
} else {
  PPx.Execute('*setcust M_hoehoe:実行時にカーソルを下げる(&1)=*setcust KC_main:^ENTER=@Z @DOWN');
}

// メニューを開く
PPx.Execute("%M_hoehoe");

思ったこととか


登録すべき適当なコマンドが他に思いつかない…。「その時々で切り替えれば便利な設定」って結構ある気がするんだけどな。
このやり方を応用すれば、「あふモード」「だいなモード」みたいに、その時々でキーバインドその他の設定を大きく、一挙に切り替えるということもできるかもという妄想。ただ俺の使い方だとあまり有用性はなさそうだ。「画像管理モード」とか「テキスト閲覧モード」とかなら案外便利…?

2014年11月15日土曜日

PPxで一時ブックマーク


あいさつ


つかさです。
今回は一時ブックマーク。実は以前にもやったことがあるのだが(PPxでブックマーク)、すぐに使わなくなった。「ブックマークをするキー」と「ブックマークへ移動するキー」で2つのキーを潰す必要があるという理由と、一々メニューを開いてそこに移動、というのが緩慢すぎるという理由による。
これを解決する方法を思いついたので試してみる。

やりたいこと


何かの作業をするために、複数のフォルダを行き来することが必要な場合がある。
利用するフォルダが2つだけなら、2窓で左右それぞれに表示すれば十分であり、特に考えることはない。だが、これが3つ、4つとなったら対応できなくなる。そのたびに一々階層を戻って表示、というのも面倒だ。
おそらく、こういう時のためにタブというものがあり、それを使えと言われそうな気がするが、今回はパス。今までのやり方の延長でやれるなら、それで済ましてしまいたいのだ。

そこで、

  • 特定のキーを押せば現在のフォルダをブックマーク
  • 別のキーを押せば、ブックマークしたフォルダを順番に表示する

仕組みを作ってみる。

スクリプト


以下の3つのスクリプトをScriptフォルダに保存。

setbookmark.js
//!*script

for (var i = 0; i < 9; i++) {
  if (PPx.Extract("%'bookmark" + i + "'") == PPx.Extract("*jumppath %1")){
    PPx.SetPopLineMessage("既に登録されてます");
    PPx.Quit();
  }
}

for (var i = 0; i < 9; i++) {
  if (!PPx.Extract("%'bookmark" + i + "'")){
    PPx.Execute("*set bookmark"+i+" = *jumppath %1");
    PPx.SetPopLineMessage("登録しました");
    break;
  }
}

ブックマーク登録用のスクリプト。これを実行すると、bookmark0、bookmark1、bookmark2…というように、空のブックマークに現在のパスを順次登録していく。すでに登録されてたら登録しない。


rotateExecute2.js
//!*script

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

var id = PPx.Arguments.Item(0);
var command = PPx.Arguments.Item(1);

// command0があるかどうかをチェック
if (!PPx.Extract("%'"+command+"0'")){
  PPx.SetPopLineMessage("コマンドが空です");
  PPx.Quit();
}

// 数値に1を足す
if (!PPx.Extract("%'"+id+"'")){
  PPx.Execute("*set "+id+" = 0");
}else {
  var i = parseInt(PPx.Extract("%'"+id+"'")) + 1;
  PPx.Execute("*set "+id+" = "+ i);
}
var i2 = PPx.Extract("%'"+id+"'");

// commandを実行
if (PPx.Extract("%'"+command+ i2 + "'")){
  PPx.Execute(PPx.Extract("%'"+command+ i2 + "'"));
}else{
  PPx.Execute("*set "+id+" = 0");
  PPx.Execute(PPx.Extract("%'"+command+"0'"));
}

*RotateExecuteに似た何か。引数を2つ取る。引数が足りない場合は何もしない。

rotateExecute2.js,id,command

第一引数は現在何番目を実行したかを記憶する識別子。

これを実行すると、

command0 command1 command2…

というように、第二引数に数字を付け足したマクロを順次実行していく。最後のマクロを実行したら、またcommand0に戻るという仕組み。

これを利用することで、

bookmark0 bookmark1 bookmark2…

というように、先に登録したブックマークを順次実行することが可能になる。

resetbookmark. js
//!*script

PPx.Execute("*set bookmark0 = ");
PPx.Execute("*set bookmark1 = ");
PPx.Execute("*set bookmark2 = ");
PPx.Execute("*set bookmark3 = ");
PPx.Execute("*set bookmark4 = ");
PPx.Execute("*set bookmark5 = ");
PPx.Execute("*set bookmark6 = ");
PPx.Execute("*set bookmark7 = ");
PPx.Execute("*set bookmark8 = ");
PPx.Execute("*set bookmark9 = ");

PPx.SetPopLineMessage("ブックマークをリセットしました");

登録したブックマークをリセットするスクリプト。

登録


以下を編集して取込。
-|K_bookmark =
-|M_bookmark =

M_bookmark = { ** comment **
現在のディレクトリを登録 = *script %0\Script\setbookmark.js
ブックマークをリセット = *script %0\Script\resetbookmark.js
--  =
&A:%*regexp("%'bookmark0'","s/^.*\s(.*)/$1/") = *execute ,%'bookmark0'
&B:%*regexp("%'bookmark1'","s/^.*\s(.*)/$1/") = *execute ,%'bookmark1'
&C:%*regexp("%'bookmark2'","s/^.*\s(.*)/$1/") = *execute ,%'bookmark2'
&D:%*regexp("%'bookmark3'","s/^.*\s(.*)/$1/") = *execute ,%'bookmark3'
&E:%*regexp("%'bookmark4'","s/^.*\s(.*)/$1/") = *execute ,%'bookmark4'
&F:%*regexp("%'bookmark5'","s/^.*\s(.*)/$1/") = *execute ,%'bookmark5'
&G:%*regexp("%'bookmark6'","s/^.*\s(.*)/$1/") = *execute ,%'bookmark6'
&H:%*regexp("%'bookmark7'","s/^.*\s(.*)/$1/") = *execute ,%'bookmark7'
&I:%*regexp("%'bookmark8'","s/^.*\s(.*)/$1/") = *execute ,%'bookmark8'
&J:%*regexp("%'bookmark9'","s/^.*\s(.*)/$1/") = *execute ,%'bookmark9'
}

KC_main = { ; PPcメイン窓
^S ,*setnextkey K_bookmark
}

K_bookmark = { ** comment **
S , *script %0\Script\setbookmark.js
^S , *script %0\Script\RotateExecute2.js,homu,bookmark
R , *script %0\Script\resetbookmark.js
',' , %M_bookmark
}

  • C_s s    ブックマークに登録
  • C_s C_s    ブックマークに移動
  • C_s r    ブックマークをリセット
  • C_s ","    ブックマークメニューを開く

となる。

PPxを終了してもリセットしたくないなら


*setのかわりに*aliasを使うと、PPxを終了しても、登録したブックマークがリセットされない(参考:PPxでブックマーク)。どっちがいいのかは難しいところ。