| |
マクロとしては、例えばこんな風ですけど。
loaddll "tkinfo.dll";
if( dllfunc("SelectedMailCount") == 0 ) {
endmacro;
}
#browsemode = browsemode;
if( #browsemode ) {
browsemodeswitch;
}
setclipboard "";
#n = dllfunc("LockSelection");
while(1) {
#n = dllfunc("EnumSelection", 1);
if( #n == 0 ) {
break;
}
if( readonly ) readonlyswitch;
replaceallfast "^\\.", "..", regular;
gofiletop;
beginsel;
gofileend;
appendcopy;
if( column != 0 ) {
addclipboard "\r\n.\r\n";
} else {
addclipboard ".\r\n";
}
}
#n = dllfunc("UnlockSelection", 1);
if( #browsemode ) {
browsemodeswitch;
}
#n = dllfunc("NewMail");
#n = dllfunc("SwitchHeaderView", 0);
gofiletop;
beginsel;
gofileend;
delete;
paste;
SAVEAS;
quit;
|
|