imdb'den film adı almak..

[nailsavas]

Merhaba;

Amacım imdb linki verilen filmin adının sağındaki hücreye yazılması. İlgilenen arkadaşlara şimdiden teşekkürlerimi sunarım.

Veriler ---------------------- Otomatik gelmesini İstediğim Sonuç
http://www.imdb.com/title/tt0765010----Brothers (2009)

 

[nailsavas]

Yardımcı Dosya

Merhaba henüz soruma yanıt alamadım. Belki yardımcı olur diye benzer bir örneği ekte gönderiyorum. İlgilerinize teşekkür ederim.

 

[Zeki Gürsoy]

Ekli dosyayı inceleyin...

Function FilmAdi(URL As String) As String
    Set HTML = CreateObject("Microsoft.XMLHTTP")
    HTML.Open "GET", URL, False
    HTML.send
    sHTML = HTML.responsetext
    HTML.abort
    Set doc = CreateObject("HTMLFile")
    doc.write (sHTML)
    fHTML = doc.getelementbyid("img_primary").outerhtml
    Set reg = CreateObject("VBScript.RegExp")
    reg.Pattern = "<IMG\stitle=""(.+)""\salt="
    FilmAdi = reg.Execute(fHTML).Item(0).submatches(0)
End Function

 

[nailsavas]

Teşekkür

Zeki Bey'e çözümü için teşekkür ederim. Ellerine sağlık...

 

[jediknight]

Ekli dosyayı inceleyin...

Function FilmAdi(URL As String) As String
    Set HTML = CreateObject("Microsoft.XMLHTTP")
    HTML.Open "GET", URL, False
    HTML.send
    sHTML = HTML.responsetext
    HTML.abort
    Set doc = CreateObject("HTMLFile")
    doc.write (sHTML)
    fHTML = doc.getelementbyid("img_primary").outerhtml
    Set reg = CreateObject("VBScript.RegExp")
    reg.Pattern = "<IMG\stitle=""(.+)""\salt="
    FilmAdi = reg.Execute(fHTML).Item(0).submatches(0)
End Function

Zeki bey, Konuyla ilgili özel mesaj gönderdim. Kontrol edip dönüş yaparsanız çok memnun olurum.