Je vous remercie pour votre réponse...antp wrote: ↑2023-11-29 06:46:48 Bonjour, techniquement oui. En pratique je ne sais pas si quelqu'un l'a déjà fait sous forme de script.
Par contre en utilisant la fonctionnalité d'export HTML (menu Fichier -> Exporter) c'est peut-être plus simple : on peut définir un modèle de page "individuelle" (1 page / film), il suffirait donc de faire un modèle pour le NFO.
Je n'y arrive pas...antp wrote: ↑2023-12-03 15:04:50 À chaque endroit où il faut une valeur du film il faut utiliser un tag spécial commençant par $$, on peut les insérer via le menu "Insert tag" dans la fenêtre d'export.
Par exemple pour le titre, dans le modèle :
<title>$$LABEL_TRANSLATEDTITLE</title>
<originaltitle>$$LABEL_ORIGINALTITLE</originaltitle>
etc.
Les champs qui n'ont pas d'équivalent pour AMC peuvent être laissés vides ou supprimés.
Code: Select all
//// ATTENTION A REFAIRE... (chemin en dur !!!)
xSource := dirApp+'Catalogs_NYC\'+'Base_NYC_'+GetField(fieldNumber)+'.jpg';
//// ATTENTION A REFAIRE...
Code: Select all
(***************************************************
Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/
[Infos]
Authors=Boyerf
Title=Kodi_Maj_Data_nfo
Description=Kodi - Maj des données video des films et génération des affiches et .nfo dans l'arborescence
Site=
Language=FR
Version=2.0
Requires=4.0
Comments=
License=
GetInfo=0
RequiresMovies=1
[Options]
[Parameters]
***************************************************)
program XBMCmajdata;
var
FichierVideo: string;
MovieActors: string;
MovieGenre: string;
SavefileName: string;
DirSelected: string;
FormatedData: string;
OutToFile: TStringList;
xSource, xCible_image, xCible_nfo, xCible_image_old, xCible_FanArt: string;
// ******************************************************
// ******************** FONCTIONS ***********************
// ******************************************************
function ActorsToXml(actors: string): string;
var
lstActor: TStringList;
iActor,iActorTaille,iDebut: Integer;
sActor,sActorTotal,sRole,testRole: string;
begin
lstActor := TStringList.Create;
lstActor.Text := StringReplace(actors, ', ', #13#10);
// Manque balises role et /role
for iActor := 0 to lstActor.Count - iActor do
begin
sRole:='';
sActorTotal := StringReplace(lstActor.GetString(iActor),'.','');
iActorTaille := length(sActorTotal);
testRole := copy(sActorTotal,iActorTaille , 1);
if (testRole = ')') then
begin
// Un role existe
iDebut := pos('(',sActorTotal);
sRole:=copy(sActorTotal,idebut,iActorTaille);
sActorTotal:=copy(sActorTotal,1,idebut - 1);
End;
sActor := ' <actor>' + #13#10 + ' <name>' + sActorTotal + '</name>' + #13#10 + ' <role>' + sRole + '</role>' + #13#10 + ' </actor>';
if lstActor.GetString(iActor) <> #13#10 then lstActor.SetString(iActor, sActor);
end;
Result := lstActor.Text;
lstActor.Free;
end;
// ******************************************************
function GenreToXML(genre: string): string;
var
lstGenre: TStringList;
iGenre: Integer;
sGenre: string;
begin
lstGenre := TStringList.Create;
lstGenre.Text := StringReplace(genre, ', ', #13#10);
for iGenre := 0 to lstGenre.Count -iGenre do
begin
sGenre := ' <genre>' + lstGenre.GetString(iGenre) + '</genre>';
lstGenre.SetString(iGenre, sGenre);
end
Result := lstGenre.Text;
lstGenre.Free;
end;
// ******************************************************
function ChooseTitle(Original: string; Translated: string): string;
begin
if Translated <> '' then Result := Translated else Result := Original
end;
// ******************************************************
// ******************** FIN FONCTIONS *******************
// ******************************************************
// ******************************************************
// MAJ des données vidéo
// ******************************************************
begin
FichierVideo := ansilowercase(GetField(FieldFilePath));
SetCustomField('Chemin', FichierVideo);
If LoadMedia(FichierVideo) then
begin
SetField (fieldSize, GetMediaInfoLS(mediaSize));
SetField (fieldResolution, GetMediaInfo(mediaResolution));
SetField (fieldFramerate, GetMediaInfo(mediaFramerate));
SetField (fieldVideoFormat, GetMediaInfo(mediaVideoCodec));
SetField (fieldVideoBitrate, GetMediaInfo(mediaVideoBitrate));
SetField (fieldAudioFormat, GetMediaInfo(mediaAudioCodec));
SetField (fieldAudioBitrate, GetMediaInfo(mediaAudioBitrate));
SetField (fieldLanguages, GetMediaInfo(mediaLanguages));
SetField (fieldSubtitles, GetMediaInfo(mediaSubtitles));
end;
// Generation des TBN et NFO
//// ATTENTION A REFAIRE... (chemin en dur !!!)
xSource := dirApp+'Catalogs_NYC\'+'Base_NYC_'+GetField(fieldNumber)+'.jpg';
//// ATTENTION A REFAIRE...
xCible_image := ChangeFileExt(FichierVideo,'-poster.jpg');
xCible_image_old := ChangeFileExt(FichierVideo,'.tbn');
xCible_nfo := ChangeFileExt(FichierVideo,'.nfo');
xCible_FanArt := ChangeFileExt(FichierVideo,'-fanart.jpg');
//ShowMessage(xSource);
//ShowMessage(xCible_image);
//ShowMessage(xCible_nfo);
OutToFile := TStringList.Create;
// SaveFileName := IncludeTrailingPathDelimiter(DirSelected) + GetField(fieldOriginalTitle) + '.nfo';
FormatedData := FormatedData +'<movie>'+#13#10;
FormatedData := FormatedData +' <title>'+ ChooseTitle(GetField(fieldOriginalTitle), GetField(fieldTranslatedTitle)) + '</title>'+#13#10;
FormatedData := FormatedData +' <originaltitle>'+GetField(fieldOriginalTitle)+'</originaltitle>'+#13#10;
FormatedData := FormatedData +' <sorttitle>'+GetField(fieldMedia)+'</sorttitle>' + #13#10;
FormatedData := FormatedData +' <set>'+GetField(fieldSource)+'</set>' + #13#10;
FormatedData := FormatedData +' <rating>'+GetField(fieldRating)+'</rating>'+#13#10;
FormatedData := FormatedData +' <year>'+GetField(fieldYear)+'</year>'+#13#10;
// FormatedData := FormatedData +' <top250>'+GetFeild(fieldWhatever)+'</top250>'+#13#10;
// FormatedData := FormatedData +' <votes>'+GetField(fieldWhatever)+'</votes>'+#13#10;
// FormatedData := FormatedData +' <outline>'+GetField(Whatever)+'</outline>'+#13#10;
FormatedData := FormatedData +' <plot>'+GetField(fieldDescription)+'</plot>'+#13#10;
FormatedData := FormatedData +' <tagline></tagline>'+#13#10;
FormatedData := FormatedData +' <runtime>'+GetField(fieldLength)+'min</runtime>'+#13#10;
// FormatedData := FormatedData +' <thumb>'+GetField(fieldURL)+'</thumb>'+#13#10;
FormatedData := FormatedData +' <mpaa></mpaa>'+#13#10;
FormatedData := FormatedData +' <playcount>0</playcount>'+#13#10;
// FormatedData := FormatedData +' <id>Not available</id>'+#13#10;
FormatedData := FormatedData +' <filenameandpath></filenameandpath>'+#13#10;
// FormatedData := FormatedData +' <trailer></trailer>'+#13#10;
// FormatedData := FormatedData +' <genre></genre>'+#13#10;
// FormatedData := FormatedData +' <credits></credits>'+#13#10;
FormatedData := FormatedData +' <director>'+GetField(fieldDirector)+'</director>'+#13#10;
FormatedData := FormatedData +'<fileinfo>'+#13#10;
FormatedData := FormatedData +'<streamdetails>'+#13#10;
FormatedData := FormatedData +'</streamdetails>'+#13#10;
FormatedData := FormatedData +'</fileinfo>'+#13#10;
(* Run Actor Script here*)
MovieActors := ActorsToXML(GetField(fieldActors));
MovieGenre := GenreToXML(GetField(fieldCategory));
OutToFile.Append(UTF8Encode(FormatedData + MovieGenre + MovieActors + '</movie>'));
OutToFile.SaveToFile(xCible_nfo);
OutToFile.Free;
FormatedData := '';
// if CopyFile(xSource, xCible_image, True) = True then ShowMessage('Probleme avec : ' + xCible_image);
DeleteFile(xCible_image_old);
DeleteFile(xCible_image);
DeleteFile(xCible_FanArt);
// CopyFile(xSource, xCible_image, False);
ExportPicture(xCible_image);
ExportExtraPicture(0, xCible_FanArt);
end.