[AppleScript]TwitterのApiを使ってフォロワーのRSSを取得する: [FORCE]

[AppleScript]TwitterのApiを使ってフォロワーのRSSを取得する

-------スクリーンネームを入力＠は取ってねサンプルはmotogp
set theMyScreenName to "motogp"
----APIが１時間に１５０回までしか呼び出せないので
----最初の何人まで変換するか？を
----↓ここで設定します 値は1〜100まで
set theCountItemMax to 2



--------処理を開始する前にテキストエディットを起動しておく
tell application "TextEdit"
launch
end tell
----------------------初期化
set theDeliTex to "," as Unicode text
set mol_list to {}
set theListFriends to "" as Unicode text
set theUserScreenName to "" as Unicode text
set theCountItem to 0
------RSSのベースURL
set theTwitterRss to "http://twitter.com/statuses/user_timeline/"
set theTwitterRssExt to ".rss"
----------スクリーンネームからフォロワーを100人まで検索
set theListFriendsCom to "curl http://api.twitter.com/1/friends/ids.json?screen_name=" & theMyScreenName & " | awk -F \"[\" '{print($2)}' | awk -F \"]\" '{print($1)}' " as Unicode text
-------↑のコマンドを実行
set theListFriends to do shell script theListFriendsCom
-----↑で取得した値をリスト形式に変換
set AppleScript's text item delimiters to theDeliTex
set theFriendsList to text items of theListFriends
set AppleScript's text item delimiters to {""}
set theFriendsList to theFriendsList as list
-----↓この方式だと100人まで呼び出してしまうので１回しか使えない
----repeat with theItem in theFriendsList
-------set theListSNcom to "curl https://api.twitter.com/1/users/lookup.json?user_id=" & theItem & " | awk -F '\"screen_name\"' '{print($2)}' | awk -F \",\" '{print($1)}' | awk -F \":\" '{print($2)}'|   tr -d '\"'|   tr -d ']'|   tr -d '}'" as Unicode text
----set theUserSN to do shell script theListSNcom
----end repeat

repeat with i from 1 to theCountItemMax
set theCountItem to theCountItem + 1
set theFrindIdNo to item theCountItem of theFriendsList
set theListSNcom to "curl https://api.twitter.com/1/users/lookup.json?user_id=" & theFrindIdNo & " | awk -F '\"screen_name\"' '{print($2)}' | awk -F \",\" '{print($1)}' | awk -F \":\" '{print($2)}'|   tr -d '\"'|   tr -d ']'|   tr -d '}'" as Unicode text
set theUserSN to do shell script theListSNcom
------TwitterRssのURLで整形して改行を入れる
set theUserScreenName to theUserScreenName & theTwitterRss & theUserSN & theTwitterRssExt & "\n"
end repeat

------結果をテキストエディタに表示する
tell application "TextEdit"
activate
make new document with properties {text:theUserScreenName}
end tell