| |
とりあえず簡単に作ってみたマクロです。お試しください。何か問題があった
らまた連絡ください。
#x = x; #y = y;
#browse = browsemode;
if( #browse ) {
browsemodeswitch;
}
loaddll "tkinfo.dll";
#headerview = dllfunc("HeaderView");
if( #headerview == 0 ) {
#n = dllfunc("SwitchHeaderView", 1);
}
gofiletop;
beginsel;
moveto 0, -9999;
endsel;
searchdown "@", regular, inselect;
if( result ) {
while(1) {
if( selecting ) escape;
if( (colorcode & 0x1f) == 12 ) {
while( (colorcode & 0x1f) == 12 ) {
left;
}
right;
#x1 = x; #y1 = y;
while( (colorcode & 0x1f) == 12 ) {
right;
}
$email = gettext( #x1, #y1, x, y );
left;
if( dllfuncstr("FindBook", $email ) == "" ) {
#n = sendmessage( hidemaruhandle(0), 0x0111
, 40052, 0 );
}
}
finddown;
if( !result ) {
break;
}
}
}
escapeinselect;
if( #headerview == 0 ) {
#n = dllfunc("SwitchHeaderView", 0);
}
moveto #x, #y;
if( #browse ) {
browsemodeswitch;
}
|
|