このフォルダへのフィルタを探す事が簡単No.06777
cuma さん 03/05/11 21:36
 

cumaです。毎度お世話になっています。
以前に投稿したつもりが何か間違えたらしく履歴が無いので再投稿
致します。
ただし月日も経過して多少考えが変わっているので再投稿と言う事
でも無いかもしれません。

作者様への投稿と言うよりもマクロで可能かどうか?と言う色合いが
濃くなっています。もし標準機能で入れば一番ではありますが。

■欲しい機能■

・選択したフォルダへのフィルタ条件を編集する
 機能が欲しいです。

■欲しくなった背景■

・フィルタ条件も膨大になると、今見ているフォルダへの振り分け
 条件がどこにあるのか?
 探すのが大変です。検索すればいいと言えばそうなのですが。

・参考としてBecky2ではフォルダを選択状態でプロパティを見ると
 「このフォルダへの振り分け条件」と言う項目があり、それを
 開けば該当フォルダに振り分ける条件が表示されて編集可能です。

そこでマクロでも良いので、「選択状態にあるフォルダ」に対しての
振り分け条件を手軽に表示したり編集する事は可能でしょうか?

たとえばフォルダを右クリックしてメニューが出たら「このフォルダ
への振り分け条件を開く」とか出るような?

あるいはフォルダを選択した状態でマクロを起動したら振り分け条件
が表示されるとか。。。。

毎度、毎度、お世話になりますが、都合良く実現出来そうなものかどうか
Becky2の該当機能をご存じで有れば話が早いと思います。

[ ]
RE:06777 このフォルダへのフィルタを探すNo.06778
たまがわ さん 03/05/12 00:43
 
cumaさん、こんばんは。

 フォルダを選択して以下のマクロを走らせると、そのフォルダへ移動するかコピー
する設定になっている振り分け条件がリストアップされると思います。
 移動する条件だけリストアップしたかったら、searchdownのところの「"\"に"」を
「"\"に移動"」にすればいいです(2カ所)。
 もしうまく動かなければ、教えてください。(こちらでテストした限りでは大丈夫
ですが、私は単純な振り分け条件しか設定していないので)

loaddll "tkinfo.dll";
$CF = dllfuncstr("CurrentFolder");
if ($CF == "") endmacro;
if (strstr($CF, "受信") == 0) $CF = rightstr($CF, strlen($CF) - 5);
else $CF = "\\" + $CF;
#i = 0;  #j = strlen($CF);
while (#i < #j) {
    if (midstr($CF, #i, 1) == "\\") {
        $CF = leftstr($CF, #i) + "\\\\\\" + rightstr($CF, #j - #i);
        #i = #i + 3;  #j = #j + 3;
    }
    #i = #i + 1;
}
$Path = dllfuncstr("HomeDir") + dllfuncstr("CurrentAccount") + "\\filter.txt";
#n = dllfunc("NewMail");
#n = dllfunc("SwitchHeaderView", 0);
if (dllfunc("IsOrikaeshi")) #n = dllfunc("SwitchOrikaeshi");
if (overwrite) overwriteswitch;
selectall;  delete;
insertfile $Path;
gofiletop;
#y = 0;
while (1) {
    searchdown "^\\t→.+\"" + $CF + "\"に", regular;
    if (!result) break;
    golinetop;
    while (1) { up;  if (code != 0x09) break; }
    beginsel;  moveto 0, #y;  delete;
    searchdown "^\\t→.+\"" + $CF + "\"に", regular;
    #y = y + 1;
}
moveto 0, #y;  beginsel;  gofileend;  delete;
endmacro;

[ ]
RE:06778 このフォルダへのフィルタを探すNo.06779
cuma さん 03/05/12 06:25
 
 cumaです。

たまがわさん、おはようございます。
もの凄く素早くレス、しかも完成マクロ付きでありがとうございます。
理想通りのマクロでした。

心より御礼申し上げます。

仕事前取り急ぎ御礼のみ失礼致します。

[ ]