【日記】 個人ニュースサイト用秀丸マクロ

いつもウチのブログの更新は秀丸エディタでまずテキストを起こし、
その後にブラウザでニュースにしたいURLを開いて、テキストに戻り専用マクロをショートカットキーを叩いてペロッと1リンク作成、
てなのを繰り返して行なっている。

昔はコピペベースでやっていたものだが、手間で疲れるし時間も勿体無いのでいい加減何とかしたかった。
それでマクロで自動化出来ないかと色々とググって調べたものをアレンジして、自分用にカスタマイズして使ってみると
あらびっくり更新時間が半分以下に。

というわけでFirefox&秀丸使用前提ですが、これから個人ニュースサイトを始めたいという奇特な方向けにそのマクロを公開。

え?そもそも秀丸使わないって?バカな!

//----------------------------------------------------------------------------------
// ブラウザのURLとタイトルを取得し,ニュース形式でリンクを張るマクロ
//----------------------------------------------------------------------------------

// Firefox
call GET_INFO "MozillaWindowClass","Firefox";

if(##return == true)
{
insert "■" + $title + "";
insertreturn;
}
endmacro;

//----------------------------------------------------------------------------------
// 取得関数
//----------------------------------------------------------------------------------
GET_INFO:

if(findwindowclass($$1) != 0)
{
ddeinitiate $$2, "WWW_GetWindowInfo";
$$ret = dderequest( "0xFFFFFFFF" );
ddeterminate;
loaddll hidemarudir + "\\hmjre.dll";

if(!result){
message "hmjre.dllのロードに失敗";
$url = "";
$title = "";
return false;
}

// 補正
if(strlen($$ret) > 0 && rightstr($$ret, 1) != "\""){
$$ret = $$ret + "\"";
}

##pos = dllfunc("FindRegular", "^\\\".+?\\\", *\\\"(.+?)\\\"(?\\1)", $$ret, 0);
if(##pos < 0){
message "タイトルの取得に失敗";
$url = "";
$title = "";
return false;
}

##len = dllfunc("GetLastMatchLength");

$title = midstr($$ret, ##pos, ##len);

##pos = dllfunc("FindRegular", "^\\\"(.+?)\\\",(?\\1)", $$ret, 0);
if(##pos < 0){
message "URLの取得に失敗";
$url = "";
$title = "";
return false;
}
##len = dllfunc("GetLastMatchLength");

$url = midstr($$ret, ##pos, ##len);

##ret = true;
}
else
{
message "ブラウザが見つかりません";
$url = "";
$title = "";
##ret = false;
}

return ##ret;

//----------------------------------------------------------------------------------
// End of File
//----------------------------------------------------------------------------------

実はこれをちょちょいといじれば、ウチでいつも出てくるニコ動やYoutubeのプチサイズのリンクも簡単に出来るのである。
そのソースも公開しようと思ったけどめんどくさいのでここでは割愛。
(冒頭のinsert部分をちょちょいとやればすぐなのです。)

これであなたも快適な個人ニュースサイトライフを!( ´∀`)

[ 2013年07月20日 16:15:22 : 日記 ]

カレンダー

プルダウン 降順 昇順 年別

06月 | 2020年07月 | 08月
- - - 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 -


全記事表示リンク

全ての記事を表示する

検索フォーム

リンク