|
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;
|
|