【HSP3】ツイッターのトレンドを取得してみるよー | Codetter（こーどったー）

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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
// hspinet (HSP 3.2 以降が必要)
#include "hspinets.as"
// 以下モジュール
// このモジュールはhspinetを使用していますので、
// 先に hspinet.as がインクルードされている必要があります。
#module _twittertrend_
#deffunc TTSetConfig str _url, str _woeid, str _ex
    if _url == ""{
        url = "http://api.twitter.com/1/trends/"
    }else{
        url = _url
    }
    if _woeid == ""{
        woeid = "23424856"  // 日本
    }else{
        woeid = _woeid
    }
    if _ex == ""{
        ex = ".json"
    }else{
        ex = _ex
    }
return
#deffunc TTGetTrends var _trend, var _url
    neturl@ url
    netrequest_get@ woeid+""+ex
    error = 0
    repeat
        netexec@ res
        if res > 0 : break
        if res < 0 : error = 1 : break
    loop
    if error == 1{  // エラー
        neterror@ estr
        return -1
    }
    sdim buf,$10000
    netgetv@ buf
    if buf == "" : return -2
    jsonnkf@ "Ws"   ; utf8->sjisへの変換指定
    jsonopen@ jroot, buf
    jsongets@ erstr, "error"
    if stat == 0 {
        jsonclose@
        return -3
    }
    
    sdim trendnames, 1400
    sdim trendurls, 5000
    trendname = "" : trendurl =""
    jsonnext@ root, ,2
    jsongetobj@ trends, "trends", root
    jsonnext@ cur, trends, 2
    repeat
        if cur == 0 : break
        jsongets@ trendname, "name", cur    ; 内容の取得
        if stat == 0 {
            trendnames+=trendname+"\n"
        }
        jsongets@ trendurl, "url", cur  ; URLの取得
        if stat == 0 {
            trendurls+=trendurl+"\n"
        }
        jsonnext@ cur,cur,0
    loop
    jsonclose@
    _trend = ""+trendnames
    _url = ""+trendurls
return 0
#global
// モジュール終了
// 以下サンプル
    title "ツイッタートレンドランキング"
    netinit
    if stat : dialog "ネット接続できません。" : end
    
    // woeid の一覧は以下のアドレスを参照
    // http://phpjavascriptroom.com/exp3.php?f=include/topic/twitter_rest_api_local_trends/available.inc&ttl=%E8%A8%AD%E7%BD%AE%E3%82%B5%E3%83%B3%E3%83%97%E3%83%AB%3Atrends.json
    ; 第１パラが アドレス(空欄でデフォルト使用)
    ; 第２パラが woeid (空欄で日本の 23424856 使用。東京 は 1118370 )
    ; 第３パラが 取得形式(空欄でデフォルトのJSON使用)
    TTSetConfig "","",""        ; 日本
    ;TTSetConfig "","1118370",""    ; 東京
    
    ; 第１パラが トレンドを入れる変数
    ; 第２パラが トレンドのURLを入れる変数
    TTGetTrends trends, url
    if stat < 0 : dialog "エラーが発生しました。" : end
    // 分離して表示する
    notesel trends
    repeat notemax
        noteget tmp, cnt
        mes "("+(cnt+1)+"位) \t"+tmp
    loop
// サンプル終了
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX