JSON→DrawText | 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
    #include "user32.as"
    #include "hspinet.as"
    #include "mod_regexp.as"
    font "Meiryo",13
    
    ;buf=0x3042,0x3044,0x3046,0x3048,0x304a,0x304b,0x304d,0x304f,0x3051,0x3053
    
    netinit
    neturl "http://api.twitter.com/1/statuses/show/"
    
    netrequest_get "219126197236408321.json"
    
    repeat
    netexec res
    if res : break
    await 50
    loop
    
    netgetv buf
    
    jsonopen pointer,buf
    jsonnkf "Ws"
    
    jsongets text,"text",pointer
    jsonout text2,pointer
    
    jsonclose
    
    //JSON→平文変換
    mes text
    
    //JSONから\u****形式を取り出す
    split buf,"\"text\":\"",a,b
    split b,"\"",textjson,c
    
    mes "------------------------------------------------------"
    mes textjson
    mes "------------------------------------------------------"
    
    
    val = replace(""+textjson,"^\\\\u","0x")
    val = replace(""+val,"\\\\u",",0x")
    
    objsize 550,30
    input val
    
    val=0x3042,0x3044,0x3046,0x3048,0x304a,0x304b,0x304d,0x304f,0x3051,0x3053
    
    //JSON→DrawTextWで描画(?)
    rc=0,150,400,300
    DrawTextW hdc,varptr(val),-1,varptr(rc),0
    redraw 1
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX