Cautare subtitrari pe Softpedia

[Smash]

Cod:

;===============================================================================
;
; Nume functie:        sub_softpedia()
; Descriere:           Returneaza un array cu subtitrarile de pe softpedia
; Parametrii:          $nume_film - Numele filmului (de pe IMDb)
;                      $an_film - anul filmului
; Valorile returnate:  Un array cu subtitrarile de forma
;                         $array[0][0]  - nr de subtitrari
;                         $array[$i][1] - format film
;                         $array[$i][2] - diacritice (da/nu)
;                         $array[$i][3] - framerate
;                         $array[$i][4] - nr cd-uri
;                         $array[$i][5] - link download
;                      In cazul in care nu gaseste subtitrari seteaza
;                         @error = 1 si returneaza 1
; Autor:               Neagu Ionut (aka Smash)
;
;===============================================================================
Func sub_softpedia($nume_film, $an_film)
$nume_film = StringReplace($nume_film, '-', "")
Local $cale_fisier = @ScriptDir & "\sub_softpedia.txt"
Local $raspuns[1][6], $link, $continut, $temp, $i, $temp2, $k = 0
If StringLeft($nume_film, 4) = 'The ' Then
$link = StringTrimLeft($nume_film, 4) & "-The-" & $an_film
Else
$link = $nume_film & "-" & $an_film
EndIf
$link = StringReplace($link, " ", "-") & ".shtml"
InetGet("http://subtitrari.softpedia.com/movies/" & $link, $cale_fisier)
$continut = StringReplace(FileRead($cale_fisier), @LF, "")
FileDelete($cale_fisier)
If StringInStr($continut, '404 - page not found') <> 0 Then
SetError(1)
Return 1
Else
$temp = StringSplit($continut, 'Subtitrare #', 1)
For $i = 2 To $temp[0]
$k = $k + 1
ReDim $raspuns[UBound($raspuns) + 1][6]
;~ format
$inceput = StringInStr($temp[$i], '
Format: ') + 20
$sfarsit = StringInStr($temp[$i], '
Diacritice:')
$raspuns[$k][1] = StringMid($temp[$i], $inceput, $sfarsit - $inceput)
;~ diacritice
$inceput = StringInStr($temp[$i], 'Diacritice: ') + 19
$sfarsit = StringInStr($temp[$i], '

[SkullAds]