[18] Googleサーチしゃ 2003年01月09日 11:45

サクラエディタの選択文字をGoogleでサーチするマクロを
作成したいのですが、以下のように作成して実行することは
できたのですが、選択文字列を２行目の"s"に渡すには、
どうしたらよいのでしょうか？

set WSHShell = CreateObject("WScript.Shell")
s = "さがすもじ"
WSHShell.Run "http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=Shift_JIS&oe=Shift_JIS&q=""" & s & """ target=""_blank"""

以上です。よろしくおねがいします。

[19] RE: Googleサーチすい 2003年01月09日 12:39

>set WSHShell = CreateObject("WScript.Shell")
>s = "さがすもじ"
>WSHShell.Run "http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=Shift_JIS&oe=Shift_JIS&q=""" & s & """ target=""_blank"""

WSH の .VBS マクロのようですが、現時点のサクラエディタでは WSH は一部の環境でしか動作しません。
PPA を使ってください。

GOOGLE.VBS
----------
' 選択文字列を Google で検索する
'
set WSHShell = CreateObject("WScript.Shell")
s = Editor.GetSelectedString( 0 )
WSHShell.Run "http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=Shift_JIS&oe=Shift_JIS&q=""" & s & """ target=""_blank"""
----------

GOOGLE.PPA
----------
// 選択文字列を Google で検索する

// 実行には PPA.DLL が必須です。sakura.exe と同じフォルダに PPA.DLL を入れておいてください。
// マクロファイルの拡張子は .PPA でなくてはなりません。

var
s:String; // 文字列変数 s を用意
begin
s := S_GetSelectedString(0);
Shell('http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=Shift_JIS&oe=Shift_JIS&q="' + s , '');
end
----------
- [20] Re2: Googleサーチしゃ 2003年01月09日 13:28
  
  ▼ すいさん
  ありがとうございました。うごきました。
  CSMacroMgr.cppはみていたのですが、見落としてました。
  
  ＞一部の環境でしか動作
  っていうのは、どういう環境でしょう？
  - [21] Re3: Googleサーチすい 2003年01月09日 19:11
    
    >ありがとうございました。うごきました。
    
    それはなによりです。
    
    後で（たぶん深夜）もう少しまともにしてみた（つもりの） PPA のマクロを
    http://www.egroups.co.jp/files/sakura-editor/User/MACRO/
    の方に入れておきます。
    
    >＞一部の環境でしか動作
    >っていうのは、どういう環境でしょう？
    
    現サクラエディタでは、WSH は
    
    ・Windows NT 系 OS（確認されているのは Win NT4/2000 だけですが）では、一応それっぽく動作する。
    ただし、環境によってはオプションパラメータの与え方なんかが変な感じだったりして、ちょっとぁゃιぃ。
    数値の 1 を与えるために "1" と文字列形式で渡してやらないと動作しない環境と、
    素直に 1 と与えて動作する環境があるらしい、とか、その辺。他にも。
    
    ・Windows 95 系 OS（確認されているのは Win 95/98SE だけですが）では、まったくまともに動作しない。
    Editor.xxxxx の機能は全て全く動作してくれない。（替わりに新規エディタウィンドウが起動したりする。）
    
    多分 Win Xp は前者、WinMe は後者になるんじゃないかと推測します。（情報無しのため不明です）
    
    という事で「私のような不具合は楽しみという人間」以外の方は、まだ、使わないほうが無難かな、と。＜ WSH
    - [22] Re4: Googleサーチしゃ 2003年01月10日 09:27
      
      > ・Windows 95 系 OS（確認されているのは Win 95/98SE だけですが）では、まったくまともに動作しない。
      
      判りました。
      
      ＞後で（たぶん深夜）もう少しまともにしてみた（つもりの） PPA のマクロを
      http://www.egroups.co.jp/files/sakura-editor/User/MACRO/
      の方に入れておきます。
      
      ありがとうございます。使わせていただきます。
      これで、他にも「右クリックサーチくん」に相当する、
      英和、和英、国語辞書、翻訳等、沢山ありますが、
      簡単に応用できますね。
      - [23] Re5: Googleサーチすい 2003年01月13日 13:58
        
        >後で（たぶん深夜）もう少しまともにしてみた（つもりの） PPA のマクロを
        >http://www.egroups.co.jp/files/sakura-editor/User/MACRO/
        >の方に入れておきます。
        
        VECTOR.PPA にバグ（文法ミス）があったので直しました。
        なんでか正常に動作していたみたいですけどスッキリしないですし。
        
        あと機能アップ。
        取得した選択文字列の先頭と末尾のタブ・スペース類を削除するようにした。
        用途からして（途中のスペースは必要かもしれないけど）前と後ろのスペースってゴミですよね。
        
        あと、文字列中の一部の記号を置換するようにしました。
        '%'⇒'%25' , '#'⇒'%23' , '&'⇒'%26' , '='⇒'%3D' , '?'⇒'%3F' , '+'⇒'%2B' , ' '⇒'+'
        
        >ありがとうございます。使わせていただきます。
        >これで、他にも「右クリックサーチくん」に相当する、
        >英和、和英、国語辞書、翻訳等、沢山ありますが、
        >簡単に応用できますね。
        
        他の皆にも使えそうな、良さげな物ができたら他の人のためにも
        http://www.egroups.co.jp/files/sakura-editor/User/MACRO/
        にでも入れておいておいていただけると助かります。 (*^o^*)
        
        [39] Re6: Googleサーチ pon 2003年10月16日 13:24
        
        >「右クリックサーチくん」に相当する、
        >英和、和英、国語辞書、翻訳等、沢山ありますが、
        >簡単に応用できますね。
        
        マクロに詳しくなく応用できなくて・・(^_^;)
        
        すみません・・よろしければ、
        できれば、Infoseekの国語、英和、和英、カタカナ語、漢字の辞書のマクロもUPしていただけ無いでしょうか?
        
        　お願いします　m(__)m
        
        [40] Re7: Googleサーチすい 2003年10月17日 05:55
        
        >できれば、Infoseekの国語、英和、和英、カタカナ語、漢字の辞書のマクロもUPしていただけ無いでしょうか?
        
        ご自分で変更して作ってみて下さい。
        
        お手軽に GOOGLE.PPA を元にして作成する場合↓。(例：Infoseek英和の場合)
        
        GOOGLE.PPA を拡張子は .PPA のまま、適当な名前でコピーする。
        例えば IS_EJ.PPA とか。
        
        で、その IS_EJ.PPA をエディタで開く。
        
        「begin」の次の行、つまり「// 表示件数」の行から
        「word := Trim(S_GetSelectedString(0)); // 文字列変数～～」
        の前の行までは要らなくなるので削除。(23～67行目)
        
        つまり↓のようにする。
        ----------
        chn,pt:Integer; // 整数数値変数 chn,pt を用意
        begin
        word := Trim(S_GetSelectedString(0)); // 文字列変数 word に「“選択部分の文字列”から先頭と末尾のスペースを削除した文字列」を取得
        // -------------------------------------------------- //
        // 文字列 word 内の記号を置換する。
        for chn :=1 to 7 do // 7種類の置換を順におこなう。
        ----------
        
        で、いよいよここからが「インフォシーク：?EXCEED英和辞典」など向けの変更。
        
        やる事はファイル後方の
        ----------
        url := 'http://www.google.co.jp/search?ie=Shift_JIS&hl=ja&lr=' + lr + '&num=' + IntToStr(num) + '&q=' + word;
        ----------
        ↑の行の内容、「url :=」の後ろの方を変えるだけなのです。
        
        実際に Infoseek で適当な単語、例えば“test”とかを入力して[英和]するとブラウザのアドレス欄は
        http://jiten.www.infoseek.co.jp/Eiwa?pg=result_e.html&col=EW&sm=1&qt=test&svp=SEEK&svx=100600
        となりますね。↑この文字列を '～' で括った文字列に変更します。↓こんな
        ----------
        url := 'http://jiten.www.infoseek.co.jp/Eiwa?pg=result_e.html&col=EW&sm=1&qt=test&svp=SEEK&svx=100600';
        ----------
        ↑なお、行末尾にセミコロン(;)１文字が必要です。要注意。
        
        で、そのなかの「実際に入力した単語“test”」の部分を「' + word + '」に書き換えます。
        で、↓こんな
        ----------
        url := 'http://jiten.www.infoseek.co.jp/Eiwa?pg=result_e.html&col=EW&sm=1&qt=' + word + '&svp=SEEK&svx=100600';
        ----------
        
        これで出来上がり。他の物も同様に。
        どうでしょう？
        
        [41] Re8: Googleサーチ pon 2003年10月17日 07:58
        
        すい　さん　詳しい説明ありがとうございます。
        
        　とりあえずは、さっそくやってみる事にます。　m(__)m
        
        [42] Re9: Googleサーチ pon 2003年10月17日 21:08
        
        すい　さん　できました　ありがとうございます　m(__)m

[18] Googleサーチ しゃ 2003年01月09日 11:45

[19] RE: Googleサーチ すい 2003年01月09日 12:39

[20] Re2: Googleサーチ しゃ 2003年01月09日 13:28

[21] Re3: Googleサーチ すい 2003年01月09日 19:11

[22] Re4: Googleサーチ しゃ 2003年01月10日 09:27

[23] Re5: Googleサーチ すい 2003年01月13日 13:58

[39] Re6: Googleサーチ pon 2003年10月16日 13:24

[40] Re7: Googleサーチ すい 2003年10月17日 05:55

[41] Re8: Googleサーチ pon 2003年10月17日 07:58

[42] Re9: Googleサーチ pon 2003年10月17日 21:08

[18] Googleサーチしゃ 2003年01月09日 11:45

[19] RE: Googleサーチすい 2003年01月09日 12:39

[20] Re2: Googleサーチしゃ 2003年01月09日 13:28

[21] Re3: Googleサーチすい 2003年01月09日 19:11

[22] Re4: Googleサーチしゃ 2003年01月10日 09:27

[23] Re5: Googleサーチすい 2003年01月13日 13:58

[40] Re7: Googleサーチすい 2003年10月17日 05:55