Bu örnekte ilkinden farklı olarak fazladan iki fonksiyon kullanmam gerekti. İlk fonksiyon alacağımız tarih değerlerini anlaşılır hale getirmek için, ikinci fonksiyon ise statünün içinde bulunan linkleri tıklanabilir hale getirmek için kullanılıyor.

<%
Function TarihCevir(tarih)
	TarihDizi = Split(tarih," ")
	TarihCevir = TarihDizi(2) & " " & TarihDizi(1) & " " & TarihDizi(5) & " " & TarihDizi(3)
End Function

Function LinkYap(metin)
	yer1 = Instr(metin,"http://")
	If yer1 > 0 Then
		yer2 = Instr(yer1,metin," ")
		If yer2 = 0 Then yer2 = Len(metin)+1
		link = Mid(metin,yer1,yer2-yer1)
		LinkYap = Replace(metin,link,""&link&"")
	Else
		LinkYap = metin
	End If
End Function
%>

Formdan gelen kişi adı değeri varsa XMLDOM nesnemizi oluşturup verileri çekiyoruz. Bu işlem sırasında yine ilk örnekteki gibi SelectSingleNode kullanıyoruz ve kişinin yazdığı statüleri, bunları nereden ve ne zaman yazdığı bilgilerini çekiyoruz.

<%
If t <> "" Then
	Set objXML = Server.CreateObject("Microsoft.XMLDOM")   
	objXML.async = false
	objXML.setProperty "ServerHTTPRequest", true
	xmlFile = "http://twitter.com/statuses/user_timeline.xml?screen_name="&t&"&count=5"
	objXML.Load xmlFile
	Set objItems = objXML.getElementsByTagName("status")
	TwitSayisi = Int(objItems.Length)
	If TwitSayisi > 0 Then
%>

<%
		i = 1
		For Each objItem in objItems
			text = objItem.selectSingleNode("text").Text
			kaynak = objItem.selectSingleNode("source").Text
			tarih = objItem.selectSingleNode("created_at").Text
%>
 style="background:#eee;"<%End If%>>
	
<%
			i = i + 1
		Next
%>


	
Twit
	
Kaynak
	
Tarih
<%=LinkYap(text)%>
	
<%=kaynak%>
	
<%=TarihCevir(tarih)%>

	<% End If %>
<% End If %>

Hazırlamış olduğum uygulamayı bu linkten görebilir veya bu linki kullanarak indirebilirsiniz.

Bir sonraki yazının konusu ASP ile Twitter durumunu güncellemek olacak.

Twitter’ın oluşturduğu API’leri kullanarak Twitter üzerinde işlem yapan bir çok araç geliştirilmektedir.

API’leri kullanarak Twitter’dan bilgi çeken uygulamalar genelde PHP kullanılarak yazılıyor. Daha sonra ASP.Net geliyor. ASP ile yazılmış örnek ise pek bulunmuyor. Tabii ki bunun nedeni ASP’nin PHP ve ASP.Net kadar esnek bir dil olmaması…

Bu yazımızın konusu ASP kullanarak Twitter’daki takip ettiğimiz kişi sayısını bulmak olacak.

Twitter API’leri ile JSON ve XML olmak üzere iki farklı dosya türünde veri çekilebilir. Bu örnekte XML kullanılmıştır.

<%
'XML verilerini okumak için XMLDOM nesnemizi oluşturuyoruz
Set objXML = Server.CreateObject("Microsoft.XMLDOM")   
objXML.async = false
objXML.setProperty "ServerHTTPRequest", true
%>

XMLDOM nesnemizi oluşturduktan sonra Twitter üzerinden bir xml sayfası çekmemiz gerekiyor. Bu işlemi gerçekleştirebilmek için bize gereken ise bir kullanıcı adı… Bu kullanıcı örnek sayfa üzerinden form yardımıyla gönderebiliriz. Aynı sayfada QueryString’den kullanıcı adını alarak XML dosyasını belirliyoruz.

<%
'QueryStringden gelen twitter adını çekiyoruz
t = Request.QueryString("t")

If t <> "" Then	 'Twitter adı varsa
	'Twitter adını kullanarak XML dosyasını belirliyoruz
	xmlFile = "http://twitter.com/statuses/friends/"&t&".xml"
	objXML.Load xmlFile 	'Dosyayı açıyoruz
	Set objItems = objXML.getElementsByTagName("user")
	' dizisinin toplam eleman sayısını buluyoruz
	ArkadasSayisi = Int(objItems.Length)
%>

Buradaki ArkadasSayisi değişkeni kullanıcının takip ettiği diğer kullanıcıların(following) sayısını vermektedir.

Toplam kişi sayısını bulduğumuza göre bu listeyi bir tabloya dökebiliriz. Bu işlemi For Each … Next döngüsü kullanarak yapacağız.

<% 'Arkadaş Sayısı sıfırdan büyükse tümünü listeliyoruz
	If ArkadasSayisi > 0 Then
%>

<%
		i = 1
		For Each objItem in objItems
			name = objItem.selectSingleNode("name").Text
			sname = objItem.selectSingleNode("screen_name").Text
			resim = objItem.selectSingleNode("profile_image_url").Text
			twit = objItem.selectSingleNode("statuses_count").Text
%>
 style="background:#eee;"<%End If%>>
	
<%
			i = i + 1
		Next
%>


	
Resim
	
Kişi
	
Twitter Adı
	
Twit Sayısı
	
Twitter Link

	
<%=name%>
	
<%=sname%>
	
<%=twit%>
	
<%=sname%>

	<% End If %>

selectSingleNode kullanarak çektiğimiz name değeri kişinin adını, screen_name değeri kişinin twitter adını, profile_image_url değeri kişinin profil görselini ve statuses_count değeri kişinin toplam twit sayısını vermektedir.

Bunların dışında çekilebilecek bir çok veri bulunmaktadır. Örnek linki kullanarak bu verileri görebilirsiniz.

Hazırlamış olduğum uygulamayı bu linkten görebilir veya bu linki kullanarak indirebilirsiniz.

“Ben kodlarla falan uğraşamam, yok mu bunun hazırı?” diye sorarsanız, TwitterCounter sitesinde bulunan çeşitli araçları kullanabilirsiniz.

Bir sonraki yazımızda bir kişinin yazdığı son 5 statünün nasıl alınacağını göreceğiz.

KAYNAKLAR:
Twitter API Wiki / Twitter API Documentation

DİĞER DİLLERDE YAZILMIŞ ÖRNEKLER:
http://blog.dmbcllc.com/2009/05/21/twitter-from-aspnet-retrieving-statuses/ (ASP.Net)
http://www.tufantunc.com/php-ile-twitter-statu-alma/ (PHP)
http://gkaans.org/makaleler/javascript/jquery-ile-jsondan-veri-cekmek/ (JQuery)