エディタから本サイトを検索

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年5月8日 (水) 16:53時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「 秀丸エディタからの検索は下記のマクロを登録して使うといいかも。 <pre class="brush:javascript;"> //gzwiki.mac //by gizmon //2012.02.06 // //...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)

秀丸エディタからの検索は下記のマクロを登録して使うといいかも。

//gzwiki.mac
//by gizmon
//2012.02.06
//
//範囲選択している文字列、カーソル位置にある単語、または任意の
//文字列を入力して gizmolabs wiki をブラウザ検索をします。
//Hidemernet Explorer をインストールしているときは秀丸エディタ
//上に検索結果を出すこともできます。

//以下設定
#fHmnetex = false;  //Hidemernet Explorerを使う場合true
//以上設定

if( selecting ) {
    $s = gettext(seltopx,seltopy,selendx,selendy);
} else {
    selectword;
    $s = gettext(seltopx,seltopy,selendx,selendy);
    $s = input( "GizmoLabsWiki検索",  $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://wiki.gz-labs.net/index.php?search=" + $param ;
if( #fHmnetex ) {
    openfile $param;
} else {
    run getenv("Comspec") + " /c start " + $param + " >nul";
}
endmacro;