昨日、「秀丸に URL を入力するのではなく、一度アクセスした URL を IE からコピーして動作するようなマクロにしないと…」と言っていたのですが、秀丸のサイトを調べたら、IE から URL をコピーするマクロが紹介されていました。

これを利用して、早速マクロを改造しました。

---------- ここから ----------
// 現在 IE で開いている URL を取得し、
// URL 中の  「〇〇」を「△△」に変換し、IEで開く。

// IE から URL を取得

if( findwindowclass("IEFrame") == 0 ) {
    message "Internet Explorerが起動されていません。";
    endmacro;
}

ddeinitiate "iexplore", "WWW_GetWindowInfo";
$url = dderequest( "0xFFFFFFFF" );
ddeterminate;

if( leftstr($url, 1) == "\"" ) {
    $url = midstr($url, 1, 1024);
    #x = strstr($url, "\"");
    if( #x >= 0 ) {
        $url = leftstr($url, #x);
    }
}

movetolineno 1,lineno+1;
insert $url;
insertreturn;
movetolineno 1,lineno-1;

// 〇〇 を △△ に置き換えて、開く。

replacedown "〇〇", "△△", nocasesense;

if( result == no ) {
  message "△△に変換できません";

} else {
  directtagjump;
  if( result == no ) message "△△版が開きません";
}

endmacro;
---------- ここまで ----------
 

[0回]

休みの間に作成した「URL の一部を置き換えてアクセスするマクロ」を早速、仕事に使ってみましたが、今ひとつ…でした。^^;
やはり、最初に秀丸に URL を入力するのではなく、一度アクセスした URL を IE からコピーして動作するようなマクロにしないと、あまり効率があがらないですね。

次の休みの検討課題です。

[0回]

IT 系のローカライズをしていると、リンク先の URL にアクセスして内容を確認するということがよくあると思います。
また、特殊な例かもしれませんが、その URL のうち一部を置き換えて、アクセスするということもあります。
これって、たくさんあると面倒ではありませんか。1 つや 2 つなら良いのですが、ひたすらリンク先の確認をするようなこともあって、そんなとき、この「ちまちま」と URL を置き換える作業がうっとうしくなってきます。

そこで、また秀丸マクロを作成してみました。

とても簡単なマクロのつもりだったのですが、あらかじめ IE が起動していないときに、2 つの URL に続けてアクセスすると、最初の URL の表示が出ない (おそらく、2 つ目の URL の表示が上書きする?) ため、うまくいきませんでした。そこで、IE が起動していないときは、2 秒 Wait をかけることにしました (1 秒ではだめでした)。ちょっと鈍くさい方法ですが、とりあえずこれでうまく行ってます。

---------- マクロのコード ----------
// カーソル行のテキストを URL とみなし、IE で開く。
// さらに、URL 中の 「〇〇」を「△△」に変換し、IEで開く。
// 「〇〇」が存在しない場合は、メッセージを表示する。

// IE が起動しているかを確認
#findIE = findwindowclass( "IEFrame" );

// カーソルを行の先頭に移動
movetolineno 1,lineno;

// ブラウザーで開く。
directtagjump;

if( result == no ) {
  message "オリジナルが開きません";
}

// 〇〇 を △△ に置き換えて、開く。
replacedown "〇〇", "△△", nocasesense;

if( result == no ) {
  message "△△に変換できません";
} else {
  // IE が起動していない場合、 2秒待って、次の URL を開く。
  if( #findIE == 0 ) {
    #tickcount = tickcount + 2000;
    while( 1 ){
      if(#tickcount < tickcount) break;
    }
  }

  // △△に置き換えた URL の表示
  directtagjump;

  if( result == no ) message "△△版が開きません";
}

endmacro;
-------------------
 

[0回]

今回、最後の城は天ヶ城です。
模擬天守に模擬櫓門ですが、立派です。でも、遺構は全くわかりません…。

[0回]

さすが100名城の１つです。
飫肥城は見応えあります。

[0回]