[添付ファイル一覧]
[全ページの添付ファイル一覧]
- VECTOR.PPA
- 格納ファイル名:attach/4D6163726F2FC5EAB9C62F313337_564543544F522E505041
- ページ:Macro/投稿/137
- 格納ファイル名:attach/4D6163726F2FC5EAB9C62F313337_564543544F522E505041
- MD5ハッシュ値:75afeeb9e26e3b93e44781056354e712
- サイズ:4.1KB (4191 bytes)
- Content-type:application/octet-stream
- 登録日時:2006/07/30 04:55:58
- アクセス数:357
- MD5ハッシュ値:75afeeb9e26e3b93e44781056354e712
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
| | // オンラインソフトウェア検索:選択文字列を Vector Inc. のソフトウェア情報から検索する
// TAB=4
// 実行には PPA.DLL が必須です。sakura.exe と同じフォルダに PPA.DLL を入れておいてください。
// マクロファイルの拡張子は .PPA でなくてはなりません。
// http:プロトコルとの関連付けを使用して検索ページを表示させます。
//
// 関連付けの設定がおかしい、などでうまく動作しない場合は Shell の行(関連付けでの起動)を
// 注釈にして Exec の行(Webブラウザの実行ファイルを直接指定して実行)を有効にして使用して
// みてください。
// (その場合、環境に合わせて Exec 中の 'C:\Program Files\Internet Explorer\IEXPLORE.EXE'
// を書き換える必要があります。)
var
url:String; // 文字列変数 url を用意
word,s_eng:String; // 文字列変数 word,s_eng を用意
num:Integer; // 整数数値変数 num を用意
bef,aft,tmp:String; // 文字列変数 bef,aft,tmp を用意
chn,pt:Integer; // 整数数値変数 chn,pt を用意
begin
// 使用するサーチエンジンを指定
s_eng := 'goo'; // goo で検索する。
// s_eng := 'infoseek'; // infoseek で検索する。
// s_eng := 'Yahoo!'; // Yahoo! で検索する。
// 表示件数
num := 10; // 10件ずつ表示
// num := 25; // 25件ずつ表示
// num := 50; // 50件ずつ表示
// num := 75; // 75件ずつ表示
// num := 100; // 100件ずつ表示
word := Trim(S_GetSelectedString(0)); // 文字列変数 word に「“選択部分の文字列”から先頭と末尾のスペースを削除した文字列」を取得
// -------------------------------------------------- //
// 文字列 word 内の記号を置換する。
for chn :=1 to 7 do // 7種類の置換を順におこなう。
begin //
// ↓文字列 word の中の文字 bef を aft に置換する。
tmp := '';
while True do // 無限ループ
begin //
word := tmp + word; // word := 「置換作業が完了した文字列 tmp」 + 「一番後ろの bef よりも後ろの残り部分」
end; //}
// -------------------------------------------------- //
if word <> '' then // 選択中の文字列があった(またはカーソル位置に単語があった)なら
begin
if s_eng = 'goo' then
// Goo 検索ページの URL を生成 ⇒ 文字列変数 url に格納
url := 'http://channel.goo.ne.jp/download/search/search.php3?MT=' + word + '&CD=1&SW=1&OS=3&category=1&search_num=' + IntToStr(num)
else if s_eng = 'infoseek' then
// infoseek 検索ページの URL を生成 ⇒ 文字列変数 url に格納
url := 'http://www.infoseek.co.jp/Titles?=col=SW&lk=noframes&sv=JP&col=SW&qt=' + word + '&tds=0&nh=' + IntToStr(num) + '&st=0'
else if s_eng = 'Yahoo!' then
// Yahoo! 検索ページの URL を生成 ⇒ 文字列変数 url に格納
url := 'http://search.download.yahoo.co.jp/bin/v_searchf?p=' + word + '&y=y'
;
// ↓Webブラウザの実行ファイル(この場合は Internet Explorer)を直接指定して実行する場合
// Exec( 'C:\Program Files\Internet Explorer\IEXPLORE.EXE' , url , 0 );
// ↓(http:プロトコルに対する)関連付けにて実行する場合
Shell( url , '' );
// ※ Shellで使っている「プロトコルとの関連付け」は Internet Explorer によって提供される機能です。
// 「Windows 95 で Internet Explorer をインストールしていない」などの環境では動作しません。
// 例えば「Win95 で IE は入れていない。Netscape しか入っていない」という場合は素直に
// 「Exec を使用して、Netscape.exe を指定する」ようにして下さい。
end;
end;
|