Excel-DNA で XLL をつくる（その９）

<DnaLibrary RuntimeVersion="v4.0" Language="CS">
<Reference Path="DynamicJson.dll"/>      // JSON 解析にDynamicJson.dllを利用
<Reference Path="Microsoft.CSharp.dll"/> // Dyanamic 型を利用する

<!&#91;CDATA&#91;
using System;
using Codeplex.Data; // DynamicJson の名前空間
using System.Net;    // WebClient を利用
using ExcelDna.Integration;  // 関数・コマンド属性を利用

public static class GetUserTweet
{
    &#91;ExcelCommand(MenuName = "UserTweet取得", MenuText = "A1の呟きをA2の数だけ取得してB列に表示")&#93;
    public static void UserTweet()
    {
        ExcelReference ref_user = new ExcelReference(0, 0); // A1からユーザ名取得
        ExcelReference ref_num = new ExcelReference(1, 0);  // A2から取得数取得
        int num = int.Parse(ref_num.GetValue().ToString());
        string&#91;&#93; tweets = Data.Get(ref_user.GetValue().ToString(), num);
        for (int i = 0; i < num; i++)
        {
            ExcelReference c = new ExcelReference(i, 1);  // B列に表示
            c.SetValue(tweets&#91;i&#93;);
        }
    }
}

public static class Data
{
    &#91;ExcelFunctionAttribute(IsHidden = true)&#93;
    public static string&#91;&#93; Get(string user, int num)
    {
        if (user == "" || num == 0)
        {
            return null;
        }
        string&#91;&#93; tweets = new string&#91;num&#93;;
        try
        {
            // TwitterAPI アクセス
            dynamic sol = new WebClient().DownloadString(
            @"https://api.twitter.com/1/statuses/user_timeline/" + user + ".json?count=" + num.ToString());
            dynamic status = DynamicJson.Parse(sol);

            int n = 0;  // 指定した数の呟きを配列に入れる
            foreach (dynamic item in status)
            {
                if (item.text != null)
                {
                    tweets&#91;n&#93; = item.text;
                    n++;
                }
                if (num <= n)
                {
                    break;
                }
            }
            return tweets;  // 呟きの配列を返す
        }
        catch (Exception)
        {
            return null;
        }
    }
}
&#93;&#93;>
</DnaLibrary>