（雑談）サーチエンジン - 秀丸メール情報交換会議室 - スレッド00347, 2001/04/05

（雑談）サーチエンジン

"y.iida" さん　01/04/05 09:44

ふと、思ったんですけど
鶴エディタや内部ビューで、文字列選択して
流行のgoogleなどの各社サーチエンジンへ連動すると
かなり便利だと思いませんか？　＞ALL

標準の右クリックにあれば申し分ないと思うけど
とりあえず誰か作りません？(^^;;;　＞マクロ
あっ、そういう意味からすると、右クリックメニューに
マクロ１～８があっても良いのかも？

RE:00347 （雑談）サーチエンジン

かかし さん　01/04/05 10:18

かかしです、こんにちは。

>ふと、思ったんですけど
>鶴エディタや内部ビューで、文字列選択して
>流行のgoogleなどの各社サーチエンジンへ連動すると
>かなり便利だと思いませんか？　＞ALL

常時接続、LAN接続であれば、問題ないですが、
ダイアルアップでつないでる人はあまり使わない機能ですね。

なんとか、マクロで組めませんかねえ？？
(googleでaiueoを検索した例)
http://www.google.com/search?q=aiueo&btnG=Google+%8C%9F%8D%F5&hl=ja&lr=
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
下線部分のルールさえ分かれば、なんとかなると思うのですが、どうでしょう。

---かかし

RE:00349 （雑談）サーチエンジン

まっちん さん　01/04/05 11:10

　まっちんです。こんにちは、y.iida さん、かかしさん。

>かかしです、こんにちは。
>
>>ふと、思ったんですけど
>>鶴エディタや内部ビューで、文字列選択して
>>流行のgoogleなどの各社サーチエンジンへ連動すると
>>かなり便利だと思いませんか？　＞ALL

以前、NetMail用に作ったきり、メンテナンスしてませんです。

>なんとか、マクロで組めませんかねえ？？
>(googleでaiueoを検索した例)
>http://www.google.com/search?q=aiueo&btnG=Google+%8C%9F%8D%F5&hl=ja&lr=
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>下線部分のルールさえ分かれば、なんとかなると思うのですが、どうでしょう。

　CGIの知識をお持ちなら日本語への対応も可能だと思いますし、下線部のルー
ルについてもHTMLのソースを読めばわかります。
　
GoogleComの場合、キーワード入力フォームの部分に
　<input type=text value="" framewidth=4 name=q size=55 maxlength=256>
　<input name=btnG type=submit value="Google 検索">
　<input name=btnI type=submit value="I'm Feeling Lucky">
　<input name=hl type=hidden value=ja>
といったタグがならんでいます。

先のURLは&で区切って読んでみると、"変数名"="値"のペアが並んでいます。
ここで変数名と書いたのは、inputタグのname=に続く英単語です。

search →呼び出すCGIスクリプト名。formタグのactionを見ればわかります。

q=aiueo →最初inputタグ(名前がq)のtextの入力値を変換したもの。

btnG=Google+%8C%9F%8D%F5
→Google, 空白を意味する+, "検索"を変換した%8C%9F%8D%F5
をつなげた物。2番目のinputタグに書いてある
value="Google 検索"を変換した物になります。

hl=ja →たぶん言語指定ですね。値はja、日本語を指定。
hiddenが指定されているのでページ上は見えません。

lr= →検索対象をウェブ全体か、日本語ページに限定するかの指定です。
標準の選択だと値が空欄になって、ウェブ全体を検索するように
なってます。

RE:00350 （雑談）サーチエンジン

かかし さん　01/04/05 12:01

かかしです、こんにちは。

まっちんさん、y.iidaさん、こんにちは。

>　CGIの知識をお持ちなら日本語への対応も可能だと思いますし、下線部のルー
>ルについてもHTMLのソースを読めばわかります。

CGIも勉強しようと思って買った本は、今も部屋で眠っております。
下記の件、参考になりました。
で・・・↓

>search →呼び出すCGIスクリプト名。formタグのactionを見ればわかります。
>
>q=aiueo →最初inputタグ(名前がq)のtextの入力値を変換したもの。
>
>btnG=Google+%8C%9F%8D%F5
> →Google, 空白を意味する+, "検索"を変換した%8C%9F%8D%F5
> をつなげた物。2番目のinputタグに書いてある
> value="Google 検索"を変換した物になります。
>
>hl=ja →たぶん言語指定ですね。値はja、日本語を指定。
> hiddenが指定されているのでページ上は見えません。
>
>lr= →検索対象をウェブ全体か、日本語ページに限定するかの指定です。
> 標準の選択だと値が空欄になって、ウェブ全体を検索するように
> なってます。

「q=」のパラメタだけを可変にするとして、以下のマクロを作りました。

ただし・・・英数字しか検索できません。

文字列を「検索」→「%8C%9F%8D%F5」に変換するサブルーチンを埋め込めば
いいのですが、16進数の文字列に変換するのが、ちと面倒なのでやってません。

---Net検索.mac

$IEPATH = "C:\\Program Files\\Plus!\\Microsoft Internet\\IEXPLORE\.EXE";

$Search = gettext(seltopx,seltopy,selendx,selendy);

//$Searchに2byte文字が含まれていたら変換する。
//(各Byteを16進数で表記して、前に%を付ければいいのかな。)

run($IEPATH + " http://www.google.com/search?q="+$Search+"&btnG=Google+%8C%9
F%8D%F5&hl=ja&lr=");

----

---かかし

RE:00351 （雑談）サーチエンジン

"y.iida" さん　01/04/05 12:08

(^-^)/ドモ

まっちんさんってＭさんだったんですね（謎）

>CGIも勉強しようと思って買った本は、今も部屋で眠っております。
>下記の件、参考になりました。

>ただし・・・英数字しか検索できません。
>
>文字列を「検索」→「%8C%9F%8D%F5」に変換するサブルーチンを埋め込めば
>いいのですが、16進数の文字列に変換するのが、ちと面倒なのでやってません。

ん～と、たぶんこいつを変換するマクロはＮ氏が作ったやつの逆だと
思うんですけど（ボクMLで以前に出たんですます）
ボクが公開するわけには行かないと思うんで、どうしようかしらん？
Ｎさん、ココにいますよね？と呼びかけてみます(^^;;;

とりあえずマクロで行けそうですね。
なんて素晴らしいんだろ　＞秀丸というか鶴亀というか。

RE:00350 （雑談）サーチエンジン

ひろさん　01/04/05 12:26

　まっちんさん今日は、ひろです。
> >>ふと、思ったんですけど
> >>鶴エディタや内部ビューで、文字列選択して
> >>流行のgoogleなどの各社サーチエンジンへ連動すると
> >>かなり便利だと思いませんか？　＞ALL
<中略>
> >http://www.google.com/search?q=aiueo&btnG=Google+%8C%9F%8D%F5&hl=ja&lr=
> > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> >下線部分のルールさえ分かれば、なんとかなると思うのですが、どうでしょう。
<中略>
> →Google, 空白を意味する+, "検索"を変換した%8C%9F%8D%F5
<中略>
> lr= →検索対象をウェブ全体か、日本語ページに限定するかの指定です。
を気をつけるぐらいで、後はそれほど気をつける必要は無いようです。
//-------------------- search string for google ---------------------
$word = gettext(seltopx,seltopy,selendx,selendy);
if($word == "")endmacro;
call ChangeCharacter $word, " ", "+";
$word = $$return;
run "start http://www.google.com/search?lr=lang_ja&hl=ja&q=" + $word;
//もし日本語サイトに限定しないなら、上記^^^^^^^^^^^を削除
endmacro;

ChangeCharacter:
##change_char = strlen($$2);
while(1){
##long = strlen($$1);
##number = strstr($$1,$$2);
if(##number == -1)break;
else $$1 = leftstr($$1, ##number) + $$3
+ rightstr($$1,##long-##number-##change_char);
}return $$1;
//----------------------------------------------------------------------
で如何でしょう。「秀丸」と「マクロ」の AND 検索はこれで上手くいきま
した。ただし、I.E 4.0 以上が必要だったと思います。

　また Yahoo! なら run 文の行を、
run "start http://search.yahoo.co.jp/bin/search?p=" + $word;
と変えます。

RE:00354 （雑談）サーチエンジン

"y.iida" さん　01/04/05 13:08

雑談だったのに・・短時間で解決してしまった(^^;;;

>で如何でしょう。「秀丸」と「マクロ」の AND 検索はこれで上手くいきま
>した。ただし、I.E 4.0 以上が必要だったと思います。

素晴らしい！使わさせて頂きますぅ。
いつもながらご教授ありがとうござました。

RE:00352 （雑談）サーチエンジン

ながさわ さん　01/04/05 13:18

こんにちは、長澤です。

>>文字列を「検索」→「%8C%9F%8D%F5」に変換するサブルーチンを埋め込めば
>>いいのですが、16進数の文字列に変換するのが、ちと面倒なのでやってません。
>
>ん～と、たぶんこいつを変換するマクロはＮ氏が作ったやつの逆だと
>思うんですけど（ボクMLで以前に出たんですます）
>ボクが公開するわけには行かないと思うんで、どうしようかしらん？
>Ｎさん、ココにいますよね？と呼びかけてみます(^^;;;

（穴だらけでもいいなら）別に構いませんよ
って返事しようとしたら既にできているようですね(^^;

ま、他の検索エンジンに応用する場合も基本的にmethod=getでパラメータを受け取る
CGIだのJavaServletだのJSPだのであれば、パラメータの意味さえつかめれば（ソー
スを見ればだいたい判る）、ほとんど同じです。ま、JavaServletやJSPの場合は、セ
ッションの関係があるので、いきなりジャンプはできない可能性が高いですが。

RE:00356 （雑談）サーチエンジン

"y.iida" さん　01/04/05 13:25

>こんにちは、長澤です。

ご登場ありがとうございます(^^;;;

>（穴だらけでもいいなら）別に構いませんよ
>って返事しようとしたら既にできているようですね(^^;

私、こういうのは苦手ですから、いつも他力本願です(^_^;)

>ま、他の検索エンジンに応用する場合も基本的にmethod=getで
>パラメータを受け取るCGIだのJavaServletだのJSPだのであれば、
>パラメータの意味さえつかめれば（ソースを見ればだいたい判る）

すでに隣の人がinfo版をやっている模様です（笑）
あとは、まっちんさんのバージョンアップで完全かも（微笑）

（余談）
ちょっと使ってみると、マウス選択すると
やはり右クリックメニューが欲しい所でした。

RE:00357 （雑談）サーチエンジン

かかし さん　01/04/05 13:39

かかしです、こんにちは。

>（余談）
>ちょっと使ってみると、マウス選択すると
>やはり右クリックメニューが欲しい所でした。

今回の件をいろいろ試していて、私もそう思いました。

秀丸のように、右クリック、左クリックにもキー割り当てできると
いいなあ。

---かかし

RE:00354 （雑談）サーチエンジン

まっちん さん　01/04/05 13:42

　ひろさん、こんにちは。まっちんです。

>> >>ふと、思ったんですけど
>> >>鶴エディタや内部ビューで、文字列選択して
>> >>流行のgoogleなどの各社サーチエンジンへ連動すると
>> >>かなり便利だと思いませんか？　＞ALL

<中略>

>//-------------------- search string for google ---------------------
>$word = gettext(seltopx,seltopy,selendx,selendy);
>if($word == "")endmacro;
>call ChangeCharacter $word, " ", "+";
>$word = $$return;
>run "start http://www.google.com/search?lr=lang_ja&hl=ja&q=" + $word;
>//もし日本語サイトに限定しないなら、上記^^^^^^^^^^^を削除
>endmacro;
>
>ChangeCharacter:
> ##change_char = strlen($$2);
> while(1){
> ##long = strlen($$1);
> ##number = strstr($$1,$$2);
> if(##number == -1)break;
> else $$1 = leftstr($$1, ##number) + $$3
> + rightstr($$1,##long-##number-##change_char);
> }return $$1;
>//----------------------------------------------------------------------
>で如何でしょう。「秀丸」と「マクロ」の AND 検索はこれで上手くいきま
>した。ただし、I.E 4.0 以上が必要だったと思います。

変換をIEに任せるわけですね(違います？)。うまい手ですね。

AND検索(複数の検索語をスペースで区切る)がうまくいくなら、ちゃんと変換
されているのでしょうね。

RE:00351 （雑談）サーチエンジン

まっちん さん　01/04/05 13:42

　まっちんです。かかしさん、こんにちは。

>「q=」のパラメタだけを可変にするとして、以下のマクロを作りました。
>
>ただし・・・英数字しか検索できません。
>
>文字列を「検索」→「%8C%9F%8D%F5」に変換するサブルーチンを埋め込めば
>いいのですが、16進数の文字列に変換するのが、ちと面倒なのでやってません。
>
>---Net検索.mac
>
>$IEPATH = "C:\\Program Files\\Plus!\\Microsoft Internet\\IEXPLORE\.EXE";
>
>$Search = gettext(seltopx,seltopy,selendx,selendy);
>
>//$Searchに2byte文字が含まれていたら変換する。
>//(各Byteを16進数で表記して、前に%を付ければいいのかな。)
>
>run($IEPATH + " http://www.google.com/search?q="+$Search+"&btnG=Google+%8C%9
>F%8D%F5&hl=ja&lr=");
>
>----

　手元に参考になる資料がないのですが、「各Byteを16進表記にして%をつけ
る」でOKのはずです。
　2バイト文字だけではなく、URLに使われる :/?&= なども対象になります。
自分で使う分には、気をつければいいのですが。

RE:00352 （雑談）サーチエンジン

まっちん さん　01/04/05 13:42

　まっちんです。

(NetMail-MLローカルな話で申し訳ないです、みなさま。)

>まっちんさんってＭさんだったんですね（謎）

そうです(謎)。

>>文字列を「検索」→「%8C%9F%8D%F5」に変換するサブルーチンを埋め込めば
>>いいのですが、16進数の文字列に変換するのが、ちと面倒なのでやってません。
>
>ん～と、たぶんこいつを変換するマクロはＮ氏が作ったやつの逆だと
>思うんですけど（ボクMLで以前に出たんですます）
>ボクが公開するわけには行かないと思うんで、どうしようかしらん？
>Ｎさん、ココにいますよね？と呼びかけてみます(^^;;;

　共有されたフォルダにあるファイルの名前が、変換されていて読めない
といったお話で。

あのときは、Nさんは「あっ」という間にマクロを完成されましたよね。

RE:00363 （雑談）サーチエンジン

番頭++ さん　01/04/05 15:44

>>文字列を「検索」→「%8C%9F%8D%F5」に変換するサブルーチンを埋め込めば
>>いいのですが、16進数の文字列に変換するのが、ちと面倒なのでやってません。
でOKのはずです。
>　2バイト文字だけではなく、URLに使われる :/?&= なども対象になります。

// あちききは、今はメールには関係していないので、「秀丸」マクロです。

//*5a1.mac
$wk1 = "a未確認Ｇ\x81\x40bあAX -@#%&Z'\" !";
call pp_hex_1a $wk1;
message $wk1 + "\n" + $$return;
endmacro;

pp_hex_1a:
if( $$1 == "" ){return;}//ヲィ !!!
$$t = "0123456789ABCDEF";
$$s = $$1 + char(0xFF);//stopper.
while( midstr($$s,##i,1) != char(0xFF) ){
##j = ascii(midstr($$s,##i,2));
if( ##j <= 0xFF ){
if( strstr("\x20_-@#%&!'\"",char(##j)) == -1 ){//好み ...
$$2 = $$2 + char(##j);
} else {
$$2 = $$2 + "%" + midstr($$t,(##j/16),1) + midstr($$t,(##j%16),1);
}
##i = ##i + 1;
} else {
##k = ##j / 256;
$$2 = $$2 + "%" + midstr($$t,(##k/16),1) + midstr($$t,(##k%16),1);
##k = ##j % 256;
$$2 = $$2 + "%" + midstr($$t,(##k/16),1) + midstr($$t,(##k%16),1);
##i = ##i + 2;
}
}
return $$2;

RE:00362 （雑談）サーチエンジン

ひろさん　01/04/05 18:38

　まっちんさん今日は、ひろです。
> 変換をIEに任せるわけですね(違います？)。うまい手ですね。
　変換をどの部分でやっているのか不明ですが(^^;、NN や IE ならアドレ
スに直接打ち込んでしまっても大丈夫のようです。

RE:00366 （雑談）サーチエンジン

まっちん さん　01/04/06 16:48

　まっちんです。こんにちは、番頭++ さん。

>>>文字列を「検索」→「%8C%9F%8D%F5」に変換するサブルーチンを埋め込めば
>>>いいのですが、16進数の文字列に変換するのが、ちと面倒なのでやってません。
>でOKのはずです。
>>　2バイト文字だけではなく、URLに使われる :/?&= なども対象になります。
>
>// あちききは、今はメールには関係していないので、「秀丸」マクロです。
>
>//*5a1.mac
＜中略＞

ありがとうございます。
y.iida さん、かかしさん、完成しそうですね。

以前、私が書いた物はいろいろなサイトに対応したせいで、ややこしい作りにな
っていた気がします。今は、ちょっと見直す暇がないので御免なさい。