Microsoft Small Basic

Program Listing: SQD608

List Program

TextWindow.Write("Twitter User? ")
usuario = TextWindow.Read()
opcao = 1
While opcao <> 2
Textwindow.clear()
Textwindow.WriteLine("Latest tweets @"+usuario)
x = network.getwebpagecontents("http://twitter.com/statuses/user_timeline/" + usuario + ".xml")
tweets = xml.getnodes(xml.loadxmlstring(x), "//statuses/status/text")
for i = 1 to array.getitemcount(tweets)
tweet = xml.loadxmlstring(xml.getouterxml(tweets[i] ))
textwindow.writeline(">" + xml.getinnertext( xml.getnode( tweet, "//text" ) ))
textwindow.writeline("")
endfor
TextWindow.Write("Options: 1-Reload 2-End ? ")
opcao = TextWindow.ReadNumber()
EndWhile