SkullBox Forum  |  Development  |  AutoIt  |  Topic: Cautare subtitrari pe Softpedia

;===============================================================================
;
; 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, '<strong><font size="2">404</font></strong> - page not found') <> 0 Then
SetError(1)
Return 1
Else
$temp = StringSplit($continut, '<a href="#">Subtitrare #', 1)
For $i = 2 To $temp[0]
$k = $k + 1
ReDim $raspuns[UBound($raspuns) + 1][6]
;~ format
$inceput = StringInStr($temp[$i], '<br/><b>Format:</b> ') + 20
$sfarsit = StringInStr($temp[$i], ' <br/><b>Diacritice:</b>')
$raspuns[$k][1] = StringMid($temp[$i], $inceput, $sfarsit - $inceput)
;~ diacritice
$inceput = StringInStr($temp[$i], '<b>Diacritice:</b> ') + 19
$sfarsit = StringInStr($temp[$i], '</td><td width="200" valign="top" class="celltext"><b>Framerate:')
$raspuns[$k][2] = StringMid($temp[$i], $inceput, $sfarsit - $inceput)
;~ framerate
$inceput = StringInStr($temp[$i], '<b>Framerate:</b> ') + 18
$sfarsit = StringInStr($temp[$i], ' <br/><b>Numarul de CD-uri:')
$raspuns[$k][3] = StringMid($temp[$i], $inceput, $sfarsit - $inceput)
;~ nr cd-uri
$inceput = StringInStr($temp[$i], '<b>Numarul de CD-uri:</b> ') + 26
$sfarsit = StringInStr($temp[$i], ' <br/><b>Dimensiunea filmului:</b>')
$raspuns[$k][4] = StringMid($temp[$i], $inceput, $sfarsit - $inceput)
;~ link
$inceput = StringInStr($temp[$i], 'onclick="document.location=') + 28
$sfarsit = StringInStr($temp[$i], ';"></td></tr></table>') - 1
$raspuns[$k][5] = 'http://subtitrari.softpedia.com' & StringMid($temp[$i], $inceput, $sfarsit - $inceput)
Next
$raspuns[0][0] = $k
EndIf
SetError(0)
Return $raspuns
EndFunc   ;==>sub_softpedia

$sub_softpedia = sub_softpedia("The Matrix", "1999")
If @error Then
MsgBox(0, "Softpedia", "Eroare " & @error)
Else
_ArrayDisplay($sub_softpedia)
EndIf