Cautare trailer pe movieclip.ro

[Smash]

Cod:

;===============================================================================
;
; Nume functie:        trailer_movieclip()
; Descriere:           Returneaza un numar (ID-ul trailerului pe site)
; Parametrii:          $nume_film - Numele filmului (de pe IMDb)
; Valorile returnate:  integer - ID-ul trailerului pe site
;                      In cazul in care nu gaseste trailer seteaza
;                         @error = 1
; Autor:               Neagu Ionut (aka Smash)
;
;===============================================================================
Func trailer_movieclip($nume_film)
Local $raspuns, $temp, $link = StringReplace($nume_film, " ", "-"), $continut
Local $cale_fisier = @ScriptDir & "\trailer.txt"
InetGet("http://www.movieclip.ro/movie/" & $link & ".html", $cale_fisier)
$continut = FileRead($cale_fisier)
FileDelete($cale_fisier)
If StringInStr($continut, "data='http://www.movieclip.ro/flvplayer.swf'") <> 0 Then
$inceput = StringInStr($continut, "

")
$raspuns = StringMid($continut, $inceput, $sfarsit - $inceput)
SetError(0)
Return $raspuns
Else
$raspuns = ""
SetError(1)
Return $raspuns
EndIf
EndFunc   ;==>trailer_movieclip

[SkullAds]