| |
adomosさん，
>本文内に記載されているURLを全て検出しリストアップしてくれるような機能は
>ありませんか？検出後自動的に全てブラウザで開かれるのがベストです。
とりあえず次のマクロで試してください。
//------------------------------------------------------------//
$file = "d:\\temp\\temp.txt";//保存用ファイル指定
loaddll "tkinfo.dll";
disabledraw;
#n = dllfunc( "SelectPane", 2);
gofiletop;
#i = 0;
while( 1 ) {
searchdown2 "https?://[ -Z_-z]+", regular;
if( !result ) break;
#i = #i + 1;
$url[#i] = gettext( foundtopx, foundtopy, foundendx, foundendy );
right;
}
if( #i == 0 ) endmacro;
newfile;
#n = dllfunc("SwitchHeaderView", 0);
selectall;
delete;
#j = 1;
while( #j <= #i ) {
insert $url[#j] + "\n";
#j = #j + 1;
}
saveas $file;
question "サイトを全部開きますか？";
if( result == no ) endmacro;
gofiletop;
#j = 1;
while( #j <= #i ) {
selectline;
openbyshell;
#n = dllfunc("SetAutoPushTimer", 1, "ok");
message str(#j);
#j = #j + 1;
movetolineno 1, lineno + 1;
}
endmacro;
//------------------------------------------------------------//
では， (^^)/~
山紫水明（ユーザー）
SANSHISUIMEI
|
|