| |
秀丸担当様
色々お世話になります。vbaのAppActivateを秀丸マクロに書き換えたもの、まだ私の
ところでは動いていないのですが、試行錯誤をしているときに一つ気付いたことがあ
ります。
「秀丸から他のアプリケーションに切り替えるための文はない」とのこと、一旦は納
得しかけたのですが、秀丸から別のアプリケーションに切り替えるマクロを、ここで
お教えいただいて自分で使っていることを思い出しました。
それはgoogle.macというマクロで、秀丸のうえで文字を選択しておいて秀丸マクロを
動かすと、アクティブウィンドウがブラウザーに切り替わり検索窓にその文字が入力
され、その上で検索結果が表示されるものです。
ここから言えるのは「秀丸から他のアプリケーションに切り替えて、さらにそのアプ
リケーション上での動作を秀丸マクロで指定する」実例があると言うことです。しか
も他のアプリケーション上で動作させるために他のファイルを起動することもありま
せん。
今はこれを使って何かできないかと試しているところです。
柳絮
//google.mac
//範囲選択している文字列、カーソル位置にある単語、または任意の
//文字列を入力してWebブラウザでGoogle検索をします。
//Hidemernet Explorer をインストールしているときは秀丸エディタ
//上に検索結果を出すこともできます。
//以下設定
#fHmnetex = false; //Hidemernet Explorerを使う場合true
//以上設定
if( selecting ) {
$s = gettext(seltopx,seltopy,selendx,selendy,1) ;
} else {
selectword;
$s = gettext(seltopx,seltopy,selendx,selendy,1);
$s = input( "Google検索", $s );
}
if( $s == "" ) {
endmacro;
}
$param = "";
if( #fHmnetex ) {
$percent = "%";
$and = "&";
} else {
$percent = "^%%";
$and = "^&";
}
#c = strlen( $s );
#i = 0;
while( #i < #c ) {
$param = $param + $percent +
leftstr( hex( ascii( midstr( $s, #i, 1 ) ) ), 2 );
#i = #i + 1;
}
$param = "http://www.google.co.uk/search?q=" + $param + $and + "ie=Shift_JIS
" + $and + "oe=Shift_JIS" +
$and + "hl=ja";
if( #fHmnetex ) {
openfile $param;
} else {
run getenv("Comspec") + " /c start " + $param + " >nul";
}
endmacro;
|
|