同上例類似, 通過 'http://clients1.google.cn/complete/search?&q=' + "關鍵字" 可以獲取 Google 的關鍵字搜索排名.

我用 Delphi 為關鍵字得到的結果是:

---

window.google.ac.h(["Delphi",[["delphi 教程", "375,000 結果", "0"],["delphi盒子", "74,900 結果", "1"],["delphi 下載", "1,580,000 結果", "2"],["delphi7 下載", "1,600,000 結果", "3"],["delphi是什么", "497,000 結果", "4"],["delphi 字符串函數", "352,000 結果", "5"],["delphi7 序列號", "302,000 結果", "6"],["delphi2009下載", "20,600 結果", "7"],["delphi7", "1,330,000 結果","8"],["delphi2009正式版下載", "5,710 結果", "9"]]] )
上面結果以 window.google.ac.h(...) 的形式給出, 下面的操作關鍵就是給 ISuperObject 一個名為 "window.google.ac.h" 的方法, 并指向自定義的過程, 并在過程中完成解析.

---

運行效果圖:

---

代碼文件:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Memo1: TMemo;Edit1: TEdit;Button1: TButton;procedure Button1Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses MsXML, SuperObject;function ToUTF8Encode(str: string): string; varb: Byte; beginfor b in BytesOf(UTF8Encode(str)) doResult := Format('%s%s%.2x', [Result, '%', b]); end;procedure Proc(const This, Params: ISuperObject; var Result: ISuperObject); varjo: ISuperObject; beginForm1.Memo1.Clear;for jo in Params['1'] do with Form1.Memo1.Lines doForm1.Memo1.Lines.Add(jo.format('%2%: %0% - %1%')); end;procedure TForm1.Button1Click(Sender: TObject); constu = 'http://clients1.google.cn/complete/search?&q='; varjo: ISuperObject;req: IXMLHTTPRequest;url: WideString; beginjo := SO;jo.M['window.google.ac.h'] := @Proc;url := u + ToUTF8Encode(Edit1.Text);req := CoXMLHTTP.Create;req.open('Get', url, False, EmptyParam, EmptyParam);req.send(EmptyParam);jo[req.responseText]; end;end.

總結

以上是生活随笔為你收集整理的JSON 之 SuperObject(16): 实例 - 解析 Google 关键字搜索排名的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。