google.macについてNo.03126
Hirohiro さん 02/05/16 12:25
 
03011で、WINDOWS98上では、ひろさん作のgoogle.macが動かないと投稿した者です。
その後、ひろさんからのアドバイス(03016)をいただいて、無事動いたのですが、
今度、WINDOWSXPに変えたところ、うんともすんとも言わなくなってしまいました。X
Pではだめでしょうか。おたずねします。

[ ]
RE:03126 google.macについて(追伸)No.03127
Hirohiro さん 02/05/16 12:27
 
下記のマクロで動かしてました。

//-------------------- 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;
//----------------------------------------------------------------------
if(selecting){
  $$return = gettext(seltopx,seltopy,selendx,selendy);
  if( strstr($$return,"\x0D") != -1 && strstr($$return,"\x0A") != -1){
    call ChangeCharacter $$return,"\x0D","";
    call ChangeCharacter $$return,"\x0A","";
    run "start " + $$return;
  }
  else directtagjump;
}
else directtagjump;
endmacro;

ChangeCharacter://buff 中の文字列を置換
  ##change_char=strlen($$2);
  $$string = "";
  while(1){
    ##number = strstr($$1, $$2);
    if(##number == -1)break;
    else{
      ##long = strlen($$1);
      $$string = $$string + leftstr($$1, ##number) + $$3;
      $$1 = rightstr($$1, ##long - ##number - ##change_char);
    }
  }
  return $$string + $$1;
 



[ ]
RE:03127 google.macについて(追伸)No.03128
たけのこ さん 02/05/16 13:23
 
たけのこです。

// 下半分って要らないロジックですよね…?

OSに依存しそうな場所は

>run "start http://www.google.com/search?lr=lang_ja&hl=ja&q=" + $word;

だけですが、例えば

run "start http://www.google.com/search?lr=lang_ja&hl=ja&q=STAR+WARS";

とかっていう1行マクロでもうんともすんとも行かなくなりますか?
それなら、コマンドプロンプトを起動して

start http://www.google.com/search?lr=lang_ja&hl=ja&q=STAR+WARS

を実行したらどうでしょう?

また、挙げられているマクロはx-www-form-urlencodedに則ってませんが、その
仕様に引っかかる言葉を検索しようとしているとか(検索が失敗するだけで、う
んともすんとも…にはならないでしょうが)?

[ ]
RE:03127 google.macについて(追伸)No.03129
yoshi223 さん 02/05/17 14:23
 
>run "start http://www.google.com/search?lr=lang_ja&hl=ja&q=" + $word;
上記の行を
run "cmd.exe /c start ...
にするとどうでしょうか?

[ ]
RE:03129 google.macについて(追伸)No.03130
Hirohiro さん 02/05/17 16:16
 
お手数をおかけします。
googleの画面に行くようになりました。
でも、選択した言葉は入りません。ブランクのままです。


>>run "start http://www.google.com/search?lr=lang_ja&hl=ja&q=" + $word;
>上記の行を
>run "cmd.exe /c start ...
>にするとどうでしょうか?

[ ]
RE:03130 google.macについて(追伸)No.03131
yoshi223 さん 02/05/17 16:35
 
>お手数をおかけします。
>googleの画面に行くようになりました。
>でも、選択した言葉は入りません。ブランクのままです。
>
以下のものではどうでしょう?
run "cmd.exe /c start \"\" \"http://www.google.com/search?lr=lang_ja&hl=ja&q
=" + $word + "\"";


[ ]
RE:03131 google.macについて(追伸)No.03132
Hirohiro さん 02/05/17 19:58
 
>以下のものではどうでしょう?
>run "cmd.exe /c start \"\" \"http://www.google.com/search?lr=lang_ja&hl=ja&
>q=" + $word + "\"";

できました!ありがとうございました。
最初に黒いDOS画面がでますが、あまり気になりません。

[ ]
RE:03132 google.macについて(追伸)No.03133
アルビレオ さん 02/05/18 04:45
 
>>以下のものではどうでしょう?
>>run "cmd.exe /c start \"\" \"http://www.google.com/search?lr=lang_ja&hl=ja
>&q=" + $word + "\"";
>
>できました!ありがとうございました。
>最初に黒いDOS画面がでますが、あまり気になりません。

テストしてみたところ、
run "start \"http://www.google.com/search?lr=lang_ja&hl=ja&q=" + $word + "\"";
でもうまくいきました。
DOS画面も出ません。(^_^)

[ ]
RE:03133 google.macについて(追伸)No.03134
Hirohiro さん 02/05/18 11:13
 
>テストしてみたところ、
>run "start \"http://www.google.com/search?lr=lang_ja&hl=ja&q=" + $word + "\"";
>でもうまくいきました。
>DOS画面も出ません。(^_^)

どうもありがとうございます。でも、ぼくの場合はうんともすんともいいません。秀
丸は3.15です。やっぱり、yoshi223さんのを使わせていただくことにします。

[ ]