Search the Community

[b]RSS NEDİR?[/b] RSS çeşitli internet siteleri tarafından yayınlanan haber vb. içeriğin tek bir ortamdan topluca izlenebilmesine olanak sağlayan yeni bir içerik besleme yöntemidir. RSS – Real Simple Syndication, RDF Site Summary veya Rich SiteSummary (Zengin Site Özeti) kelimelerinin baş harflerinden oluşan kısaltmadır. XML biçiminde olan RSS dosyaları ilk olarak NetScape firması tarafından geliştirilmeye başlanmıştır. RSS dosyalarının kullanımı her geçen gün artarak yaygınlaşmaktadır. RSS yöntemini destekleyen sistelerin hazırladıkları XML biçimli dosyalara bir çok programla erişmek mümkündür. XML okuyucusu olan bu programlar, web gezgini veya e-posta istemcisi olabileceği gibi sadece RSS içereriği izlemek için hazırlanan masaüstü programları da olabilir. RSS ikonunu ([img]http://www.rssnedir.com/images/rss_button.gif[/img]) gördüğünüz herhangi bir yerde, RSS verilerini RSS istemcinizi kullanarak alabilirsiniz. Genel olarak, RSS verilerini, XML dosyaları olduğu için Internet Explorer içinden görebilirsiniz. Ancak sayfayı devamlı yenilemek ve RSS verilerini bu şekilde izlemek çok da verimli bir yöntem değildir. Bunun için pek çok insan, bazı RSS istemcileri kullanarak RSS verilerini takip eder. RSS veri "toplayıcıları", RSS verilerini toplamanız ve takip etmeniz için uygun arabirim sunarlar. Rss verilerini okumak için böyle bir udf'ye ihtiyacımız vardı.Bende basit fonksiyonlar geliştirdim fakat tam olarak yeterli ve kullanıcı bazlı olmadığı için Blackman12 arkadaşım kendi fonksiyonlarını kullanarak fonksiyonları baştan yazdı. Fonksiyonlar ismi üzerinde gayet açık ve net _ rss_oku ile linkleri okuyor, _rss_item ile verileri alıyor, rss in alındığı linke ait bilgileri gösteriyor. _Turkcelestir fonksiyonunda yardımı için MostWanted arkadaşıma teşekkür ederim.Diğer fonksiyonları forumda bulabilirsiniz umarım faydalı olmuştur. Örnek: [codebox] #include <RSS_UDF.au3> SplashTextOn("", "Veriler Alınıyor...", 300, 30, Default, Default, 33) $tnc = _RSS_Oku("http://www.tnctr.com/rss/forums/1-tnc-team-rss-yayyny/") $veriler = _RSS_Items($tnc) $bilgiler = _RSS_Bilgi($tnc) SplashOff() $f = GUICreate("TnC RSS Reader", 850, 500) $c = GUICtrlCreateCombo("", 10, 10, 300, Default, 0x0003) $yazar = GUICtrlCreateLabel("Yazar:-", 350, 40, 400) $baslik = GUICtrlCreateLabel("Başlık:-", 350, 100, 400) $aciklama = GUICtrlCreateLabel("Açıklama:-", 350, 250, 400) $link = GUICtrlCreateLabel("Link:-", 350, 180, 400) $kategori = GUICtrlCreateLabel("Category:-", 350, 200, 400) $bilgitam = "" For $k = 0 To 12 $bilgitam &= $bilgiler[$k] & "|" Next GUICtrlCreateLabel($bilgitam, 10, 480, 490) $v = "Başlığı Seçin|" For $k = 1 To $veriler[0][0] $v &= $veriler[$k][0] & "|" Next GUICtrlSetData($c, $v, "Başlığı Seçin") GUISetState() While 1 $n = GUIGetMsg() Switch $n Case -3 Exit Case $c For $k = 1 To $veriler[0][0] If $veriler[$k][0] = GUICtrlRead($c) Then GUICtrlSetData($baslik, $veriler[$k][0]) GUICtrlSetData($yazar, $veriler[$k][3]) GUICtrlSetData($aciklama, $veriler[$k][2]) GUICtrlSetData($link, $veriler[$k][1]) GUICtrlSetData($kategori, $veriler[$k][4]) ExitLoop EndIf Next EndSwitch WEnd [/codebox] RSS_UDF.au3: [CODE] #include-once Func _RSS_Oku($URL) $okut = InetRead($URL, 1) If @error Or $okut = "" Then Return -1 Return _Turkcelestir(BinaryToString($okut)) EndFunc ;==>_RSS_Oku Func _RSS_Bilgi($text) ; 0: Başlık , 1: Link , 2: Açıklama , 3: Kategori , 4: WebMaster , 5: Sayfayı Oluşturan , 6: İlgili Editörün Mail Adresi , 7: TelifHakkı , 8: Dil ; 9: Oluşturulma Tarihi , 10: Son Değiştirilme Tarihi , 11: Kaç Dakika Eski (Time to Live) , 12: İlgili Döküman Local $b[13] $bilgi = _AraGetir($text, "<channel>", "<item>") $b[0] = _AraGetir($bilgi, "<title>", "</title>") $b[1] = _AraGetir($bilgi, "<link>", "</link>") $b[2] = _AraGetir($bilgi, "<description>", "</description>") $b[3] = _AraGetir($bilgi, "<category>", "</category>") $b[4] = _AraGetir($bilgi, "<webMaster>", "</webMaster>") $b[5] = _AraGetir($bilgi, "<generator>", "</generator>") $b[6] = _AraGetir($bilgi, "<managingEditor>", "</managingEditor>") $b[7] = _AraGetir($bilgi, "<copyright>", "</copyright>") $b[8] = _AraGetir($bilgi, "<language>", "</language>") $b[9] = _AraGetir($bilgi, "<pubdate>", "</pubdate>") $b[10] = _AraGetir($bilgi, "<lastbuilddate>", "</lastbuilddate>") $b[11] = _AraGetir($bilgi, "<ttl>", "</ttl>") $b[12] = _AraGetir($bilgi, "<docs>", "</docs>") Return $b EndFunc ;==>_RSS_Bilgi Func _RSS_Items($text) ; $l : Item Numaraları ; 0: Başlık , 1: Link , 2: Açıklama , 3: Yazar , 4: Kategori , 5: Kategori Linki , 6: Yorumlar , 7: Yayınlanma Tarihi , 8: Kaynak $items = _AraGetir($text, "<item>", "</item>", 1) Local $veri[UBound($items) + 1][9] $veri[0][0] = UBound($items) $veri[0][1] = 8 For $l = 1 To UBound($items) $veri[$l][0] = _AraGetir($items[$l - 1], "<title>", "</title>") $veri[$l][1] = _AraGetir($items[$l - 1], "<link>", "</link>") $veri[$l][2] = _AraGetir($items[$l - 1], "<description>", "</description>") $veri[$l][3] = _AraGetir($items[$l - 1], "<author>", "</author>") $veri[$l][4] = _AraGetir($items[$l - 1], "<category>", "</category>") $veri[$l][5] = _AyirGetir($items[$l - 1], '<category domain="', "</category>", '"') $veri[$l][6] = _AraGetir($items[$l - 1], "<comments>", "</comments>") $veri[$l][7] = _AraGetir($items[$l - 1], "<pubdate>", "</pubdate>") $veri[$l][8] = _AyirGetir($items[$l - 1], '<source url="', "</source>", '"') Next Return $veri EndFunc ;==>_RSS_Items Func _Turkcelestir($m) $m = StringReplace($m, "&nbsp;", " ") $m = StringReplace($m, "&quot;", '"') $m = StringReplace($m, "&lt;", "<") $m = StringReplace($m, "&gt;", ">") $m = StringReplace($m, Chr(9), @TAB) $m = StringReplace($m, Chr(10), @LF) $m = StringReplace($m, Chr(13), @CR) $m = StringReplace($m, "<![CDATA[", "") $m = StringReplace($m, "]]>", "") $m = StringReplace($m, "Ç", "Ç") $m = StringReplace($m, "Ö", "Ö") $m = StringReplace($m, "Ãœ", "Ü") $m = StringRegExpReplace($m, "(Ä°)|(İ)", "İ") $m = StringRegExpReplace($m, "(ı)|(ı)", "ı") $m = StringRegExpReplace($m, "(ÄŸ)|(ğ)", "ğ") $m = StringRegExpReplace($m, "(Ş)|(Å(.?))", "Ş") $m = StringRegExpReplace($m, "(ÅŸ)|(ş)", "ş") $m = StringRegExpReplace($m, "(ö)|(&ouml;)", "ö") $m = StringRegExpReplace($m, "(ç)|(ç)", "ç") $m = StringRegExpReplace($m, "(&uuml;)|(ü)", "ü") $m = StringRegExpReplace($m, "(Ä(.?))|(Ğ)", "Ğ") $karakter = StringRegExp($m, "&#(.*?);", 3) For $t = 0 To UBound($karakter) - 1 $m = StringReplace($m, "&#" & $karakter[$t] & ";", Chr(Number($karakter[$t]))) Next $m = StringStripWS($m, 4) Return $m EndFunc ;==>_Turkcelestir Func _AyirGetir($text, $basla, $son = "</em></p>", $ayrac = "nbsp;", $flag = 0) Local $aGetir, $aAyir $aGetir = _AraGetir($text, $basla, $son, $flag) If $flag = 1 Then For $i = 0 To UBound($aGetir) - 1 $aAyir = StringSplit($aGetir[$i], $ayrac) $aGetir[$i] = $aAyir[$aAyir[0]] Next Return $aGetir Else $aAyir = StringSplit($aGetir, $ayrac) Return $aAyir[1] EndIf EndFunc ;==>_AyirGetir Func _AraGetir($text, $basla = "</strong>:", $son = "</p>", $flag = 0) If $text = "" Then Return $basla = StringRegExpReplace($basla, "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1") $son = StringRegExpReplace($son, "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1") $getirelecek = StringRegExp($text, "(?s)(?i)" & $basla & "(.*?)" & $son, 3) If @error Then Return "" If $flag = 1 Then Return $getirelecek Return $getirelecek[0] EndFunc ;==>_AraGetir [/CODE]