#include-once
#include <INet.au3>
#include <String.au3>

Const $ApiKey = 'Mettez votre Clé api ici'

; #FUNCTION# ====================================================================================================================
; Name...........: _RechFilm
; Description ...: Recherche un film avec l'api BDFCI et retourne les infos dans un tableau
; Syntax.........: _RechFilm("String")
; Return values .: Success      - Retourne un tableau contenant les films trouvés et ses infos
;								  Le tableau retourné est a 2 dimensions :
;								  $array[0][0] = Nombre de films retourné
;								  $array[1][0] = ID du 1er film
;								  $array[1][1] = Titre du 1er film
;								  $array[1][2] = Année du 1er film
;								  $array[1][3] = Synopsis du 1er film
;								  $array[1][4] = Affichette du 1er film
;								  ...
;								  $array[n][0] = ID du n ieme film
;								  $array[n][1] = Titre du n ieme film
;								  Etc...
;                  Failure      - Retourne -1 si aucun film trouvé
; ===============================================================================================================================
Func _RechFilm($film)
	
	$rech = StringReplace($film, " ", "+")
	$source = _INetGetSource('http://www.bdfci.info/apis/request.php5?key=' & $ApiKey & '&ask=' & $rech & '&results=10&sort=ANNEE&order=DSC')

	$nbr_film = _SBbdfci($source,'ResultatsRetournes="','"')
	Local $aFilm[$nbr_film+1][1]
	If $nbr_film = 0 Then
		Return -1
	Else
		$result = _StringBetween($source,'<result>','</result>')
		$aa = UBound($result)+1
		Local $inffilm[$aa][5]
		$inffilm[0][0] = UBound($result)
		For $i = 1 To UBound($result)
			$inffilm[$i][0] = _SBbdfci($result[$i-1],'<idfilm>','</idfilm>')
			$inffilm[$i][1] = _SBbdfci($result[$i-1],'<titre>','</titre>')
			$inffilm[$i][2] = _SBbdfci($result[$i-1],'<annee>','</annee>')
			$inffilm[$i][3] = _SBbdfci($result[$i-1],'<synopsis>','</synopsis>')
			$inffilm[$i][4] = _SBbdfci($result[$i-1],'<affichette>','</affichette>')
		Next
	EndIf
	Return $inffilm
	
EndFunc


Func _Rechinfos($id) ; retourne l'objet à donné en parametre aux fonctions suivantes
	$source = _INetGetSource('http://apis.bdfci.info/film.php5?key=' & $ApiKey & '&id='&$id)
	Return $source
EndFunc

Func _Cover($source) ; retourne l'url de l'affiche ou -1 si aucune affiche
	If StringInStr($source,"<cover>") Then
		Return _SBbdfci($source,'<cover>','</cover>')
	Else
		Return -1
	EndIf
EndFunc


Func _Titre($source,$lang = "fr") ;retourne le titre fr ou vo, -2 si $lang n'est pas "vf" ou "vo" ou -1 si aucun titre
	If $lang <> "fr" And $lang <> "vo" Then Return -2
	If StringInStr($source,'<'&$lang&'></'&$lang&'>') Then Return -1
	Return _SBbdfci($source,'<'&$lang&'>','</'&$lang&'>')
EndFunc

Func _Origines($source) ; retourne les origines dans un tableau de base 0 ou -1 si aucune origine
	If StringInStr($source,'<origines></origines>') Then Return -1
	$aaa = _StringBetween(_SBbdfci($source,'<origines>','</origines>'),'">','</origine>')
	Return $aaa
EndFunc

Func _Genres($source); retourne les genres dans un tableau de base 0 ou -1 si aucun genre
	If StringInStr($source,'<genres></genres>') Then Return -1
	$aaa = _StringBetween(_SBbdfci($source,'<genres>','</genres>'),'">','</genre>')
	Return $aaa
EndFunc

Func _Annee($source) ;retourne l'année ou -1 si aucune année
	If StringInStr($source,'<annee></annee>') Then Return -1
	Return _SBbdfci($source,'<annee>','</annee>')
EndFunc

Func _Sortie($source) ;retourne la date de sortie ou - 1 si aucune date
	If StringInStr($source,'<sortie></sortie>') Then Return -1
	Return _SBbdfci($source,'<sortie>','</sortie>')
EndFunc

Func _Reprise($source) ;retourne la date de reprise ou - 1 si aucune date
	If StringInStr($source,'<reprise></reprise>') Then Return -1
	Return _SBbdfci($source,'<reprise>','</reprise>')
EndFunc

Func _Pellicule($source) ; retourne la couleur de la pellicule ou -1 si non renseigné
	If StringInStr($source,'<pellicule></pellicule>') Then Return -1
	Return _SBbdfci($source,'<pellicule>','</pellicule>')
EndFunc

Func _Synopsis($source) ; retourne le synopsis ou -1 si non renseigné
	If StringInStr($source,'<synopsis></synopsis>') Then Return -1
	Return _SBbdfci($source,'<synopsis>','</synopsis>')
EndFunc

Func _Realisateurs($source); retourne les realisteurs dans un tableau de base 0 ou -1 si aucun realisateur
	If StringInStr($source,'<realisateurs></realisateurs>') Then Return -1
	$aaa = _StringBetween(_SBbdfci($source,'<realisateurs>','</realisateurs>'),'">','</realisateur>')
	Return $aaa
EndFunc

Func _Acteurs($source); retourne les acteurs dans un tableau de base 0 à 2 dimensions ou -1 si aucun acteur
	If StringInStr($source,'<acteurs></acteurs>') Then Return -1
	$aaa = _StringBetween($source,'<acteur id','</acteur>')
	Local $act[UBound($aaa)][2]
	For $i = 0 To UBound($aaa)-1
		$act[$i][0] = _SBbdfci($aaa[$i],'">','')
		$act[$i][1] = _SBbdfci($aaa[$i],'role="','">')
	Next
	Return $act
EndFunc


Func _SBbdfci($sString, $sStart, $sEnd,$no = 1)
		$a = _StringBetween($sString,$sStart,$sEnd)
		If $a <> 0 Then
			Return $a[$no-1]
		Else
			Return ""
		EndIf
EndFunc