Sevgili arkadaşlar; Video içerikli aşağıda örneğini sunduğum xml dosyasından aşağıdaki şekilde veri çekmeye çalışıyorum. Ancak alabildiğim alanlar <video:tag> alanına kadar olan düzenli olan alanlar. Şimdi <video:tag> ile </video:tag> alanı arasındaki tag içeriklerini tag var ise nasıl döngüye sokarak değişkene aktarabilirim. Yardımlarınızı bekliyor, saygılar sunuyorum.
XML VERİ KAYNAĞI
<?xml version="1.0" encoding="UTF-8"?> <?xml-stylesheet type="text/xsl" href="http://www.siteadresi.com/plugins/xml-sitemaps-for-videos/video-sitemap.xsl"?> <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9" xmlns:video="http://www.google.com/schemas/sitemap-video/1.1"> <url> <loc>http://www.siteadresi.com/ihtiras-ruzgarlari-legends-of-the-fall-720p-hd-turkce-dublaj</loc> <video:video> <video:player_loc allow_embed="yes" autoplay="autoplay=1">http://www.youtube.com/v/TR5E7Kuty3o</video:player_loc> <video:thumbnail_loc>http://i.ytimg.com/vi/TR5E7Kuty3o/hqdefault.jpg</video:thumbnail_loc> <video:title>İhtiras Rüzgarları - Legends of the Fall 720p HD (Türkçe Dublaj)</video:title> <video:description>1900'lerin Amerikasında orduda görevli albay William Ludlow görevinden ayrılarak,Montana'da kaya dağlarında bir evde 3 oğlu ile yaşamaya başlar.Bu arada 1. dünya savaşı başlar.Albayın tüm karşı çıkmalarına rağmen 3 kardeş savaşa katılır.En küçük oğlan Samuel'in öldüğü savaşın ardından diğer oğlu Tristan Samuel'in nişanlısı Susannah'la yakınlaşmaya başlar ve aralarında bir aşk başlar.En büyük kardeş Alfred'inde Susannahtan hoşlanmaya başlamasıyla olaylar değişir ve gelişir</video:description> <video:publication_date>2013-12-28T12:46:13+00:00</video:publication_date> <video:tag>Aidan Quinn</video:tag> <video:tag>Anthony Hopkins</video:tag> <video:tag>Bill Dow</video:tag> <video:tag>Brad Pitt</video:tag> <video:tag>Christina Pickles</video:tag> <video:tag>Gordon Tootoosis</video:tag> <video:tag>Henry Thomas</video:tag> <video:tag>John Novak</video:tag> <video:tag>Julia Ormond</video:tag> <video:tag>Karina Lombard</video:tag> <video:tag>Kenneth Welsh</video:tag> <video:tag>Paul Desmond</video:tag> <video:tag>Robert Wisden</video:tag> <video:tag>Sam Sarkar</video:tag> <video:tag>Tantoo Cardinal</video:tag> <video:category>7+ Puan (IMDb)</video:category> </video:video> </url> <url> <loc>http://www.siteadresi.com/koruyucu-the-guardian-720p-hd-turkce-dublaj</loc> <video:video> <video:player_loc allow_embed="yes" autoplay="autoplay=1">http://www.youtube.com/v/HSRURAWRn3Q</video:player_loc> <video:thumbnail_loc>http://i.ytimg.com/vi/HSRURAWRn3Q/hqdefault.jpg</video:thumbnail_loc> <video:title>Koruyucu - The Guardian 720p HD (Türkçe Dublaj)</video:title> <video:description>Bir macera-aksiyon klasiği "Kaçak (The Fugitive)" filminin yönetmeni Andrew Davis'in yönettiği, Kevin Costner, Ashton Kutcher ve diğer deneyimli oyunculardan oluşan kadrosuyla KORUYUCU, başka hayatlar için kendilerini feda eden cesaret abidesi Sahil Güvenlik Kurtarma Yüzücüleri'nin daha önce gözler önüne serilmemiş dünyasını sürükleyici ve heyecan dolu bir biçimde seyirciye sunuyor. İlkeleri "En azından başkaları yaşasın!" olan Kurtarma Yüzücüleri, hayatlarını büyük fırtınalarda ve devasa dalgalarda riske eden kadın ve erkeklerden oluşan, özel olarak eğitim almış bir ekip. Bir çok Amerikalı tarafından, sadece en son Katrina Kasırgası'nın ölümcül sellerinden binlerce kişiyi kurtardıklarında fark edilen, adı duyulmamış, gözü pek kahramanların-Kurtarma Yüzücüleri'nin hayatları ve takım çalışması bu yürekleri donduran macerada öne çıkıyor.</video:description> <video:publication_date>2013-12-28T12:37:01+00:00</video:publication_date> <video:tag>Adam Pena</video:tag> <video:tag>Alex Daniels</video:tag> <video:tag>Andrew Schanno</video:tag> <video:tag>Ashton Kutcher</video:tag> <video:tag>Clancy Brown</video:tag> <video:tag>Daniel J. Molthen</video:tag> <video:tag>Gary Billburg</video:tag> <video:tag>James Barnes</video:tag> <video:tag>Joe Arquette</video:tag> <video:tag>Joshua Mitcheltree</video:tag> <video:tag>Kevin Costner</video:tag> <video:tag>Melissa Sagemiller</video:tag> <video:tag>Omari Hardwick</video:tag> <video:tag>Rusty Tennant</video:tag> <video:tag>Sela Ward</video:tag> <video:category>720p Filmler</video:category> </video:video> </url> <url> <loc>http://www.siteadresi.com/zorlu-ikili-2-guns-1080p-fullhd-turkce-dublaj</loc> <video:video> <video:player_loc allow_embed="yes" autoplay="autoplay=1">http://www.youtube.com/v/dVNe3RK2fgI</video:player_loc> <video:thumbnail_loc>http://i.ytimg.com/vi/dVNe3RK2fgI/hqdefault.jpg</video:thumbnail_loc> <video:title>Zorlu İkili - 2 Guns 1080p FullHD (Türkçe Dublaj)</video:title> <video:description>Gizli görevde polis olan Bobby (Denzel Washington) ve Stig (Mark Wahlberg) çok geçmeden birileri tarafından tuzağa düşürüldüklerini anlarlar ve çokta anlaşamayan bu ikili adlarını temize çıkarmak için birlikte çalışmak zorunda kalırlar. Film boyunca bir yandan büyük patlamalar, çarpışmalar ve silahlı saldırılara maruz kalırken bir yandan kim tarafından oyuna düşürüldüklerini çözmeye çalışırlar.</video:description> <video:publication_date>2013-12-28T11:19:33+00:00</video:publication_date> <video:tag>Bill Paxton</video:tag> <video:tag>Christopher Matthew Cook</video:tag> <video:tag>Denzel Washington</video:tag> <video:tag>Derek Solorsano</video:tag> <video:tag>Edgar Arreola</video:tag> <video:tag>Edward James Olmos</video:tag> <video:tag>Fred Ward</video:tag> <video:tag>Greg Sproles</video:tag> <video:tag>James Marsden</video:tag> <video:tag>Kyle Russell Clements</video:tag> <video:tag>Mark Wahlberg</video:tag> <video:tag>Patrick Fischler</video:tag> <video:tag>Paula Patton</video:tag> <video:tag>Robert John Burke</video:tag> <video:tag>Tim Bell</video:tag> <video:category>1080p Filmler</video:category> </video:video> </url> <url> <loc>http://www.siteadresi.com/bela-is-basinda-national-security-720p-hd-turkce-dublaj</loc> <video:video> <video:player_loc allow_embed="yes" autoplay="autoplay=1">http://www.youtube.com/v/pra0Mwr0ao8</video:player_loc> <video:thumbnail_loc>http://i.ytimg.com/vi/pra0Mwr0ao8/hqdefault.jpg</video:thumbnail_loc> <video:title>Bela İş Başında - National Security 720p HD (Türkçe Dublaj)</video:title> <video:description>Polis olmaya çalışan Earl, eğitimde yaptığı bir hatadan dolayı akademiden atılır. Bu arada anahtarlarını içerde unuttuğu arabasına girmeye çalışırken, arabayı çalmaya çalıştığını sanan Hank adlı bir polis tarafından yakalanır. Yakalanma esnasında, alerjisi olan Earl'i arı sokar ve yüzü dayak yemiş gibi şişer. Olayı ters bir açıdan çeken güvenlik kamerası, arıyı öldürmeye çalışan Hank'i sanki Earl'e dayak atar gibi göstermektedir. </video:description> <video:publication_date>2013-12-26T10:50:17+00:00</video:publication_date> <video:tag>Bill Duke</video:tag> <video:tag>Brett Cullen</video:tag> <video:tag>Cleo King</video:tag> <video:tag>Colm Feore</video:tag> <video:tag>Eric Roberts</video:tag> <video:tag>Gerry Del Sol</video:tag> <video:tag>Joe Flaherty</video:tag> <video:tag>Ken Lerner</video:tag> <video:tag>Mari Morrow</video:tag> <video:tag>Martin Lawrence</video:tag> <video:tag>Matt McCoy</video:tag> <video:tag>Robinne Lee</video:tag> <video:tag>Stephen Tobolowsky</video:tag> <video:tag>Steve Zahn</video:tag> <video:tag>Timothy Busfield</video:tag> <video:category>720p Filmler</video:category> </video:video> </url> </urlset>
ASP KODUM
<% '--------------------------------------------------------------------------------- url = "http://localhost/xml/film.xml" '--------------------------------------------------------------------------------- Response.Buffer = True Dim objXMLHTTP, xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", url, False xml.Send dim fatura_sonuc fatura_sonuc = xml.responseBody Set xml = Nothing '--------------------------------------------------------------------------------- Set xmlObj = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") xmlObj.async = False xmlObj.setProperty "ServerHTTPRequest", True xmlObj.Load(fatura_sonuc) If xmlObj.parseError.errorCode <> 0 Then Response.write"<font class=olumsuz>x</font> Bir hata oluştu, lütfen daha sonra tekrar deneyin!":Response.end End If '------------------------------------------------------------------------------------------------ set channelNodes = xmlObj.selectNodes("//url/*") for each entry in channelNodes if entry.tagName = "hataKodu" then strHata = entry.text response.write strHata end if next '------------------------------------------------------------------------------------------------ Set xmlList = xmlObj.getElementsByTagName("video:video") Set xmlObj = Nothing For Each xmlItem In xmlList '--------------------------------------------------------------------------------- dim url '--------------------------------------------------------------------------------- on error resume next you_tube = xmlItem.childNodes(0).text & "<br />" resim = xmlItem.childNodes(1).text & "<br />" baslik = xmlItem.childNodes(2).text & "<br />" aciklama = xmlItem.childNodes(3).text & "<br />" tarih = xmlItem.childNodes(4).text & "<br />" tag1 = xmlItem.childNodes(5).text & "<br /><br />" '... '... tag15 = xmlItem.childNodes(19).text & "<br /><br />" kategori = xmlItem.childNodes(20).text & "<br /><br />" on error goto 0 '--------------------------------------------------------------------------------- response.write "You Tube Adres : " & you_tube response.write "Resim : " & resim response.write "Başlık : " & baslik response.write "Açıklama : " & aciklama response.write "Tarih : " & tarih response.write "Tag1 : " & tag1 response.write "Tag2 : " & tag2 response.write "Kategori : " & kategori --------------------------------------------------------------------------------- Next Set xmlList = Nothing %>
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.
Video içerikli aşağıda örneğini sunduğum xml dosyasından aşağıdaki şekilde veri çekmeye çalışıyorum. Ancak alabildiğim alanlar <video:tag> alanına kadar olan düzenli olan alanlar. Şimdi <video:tag> ile </video:tag> alanı arasındaki tag içeriklerini tag var ise nasıl döngüye sokarak değişkene aktarabilirim. Yardımlarınızı bekliyor, saygılar sunuyorum.
XML VERİ KAYNAĞI
ASP KODUM
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.