Il y en a déjà un fourni avec le programme. Et je suis en train d'en refaire un pour la version 3.5
[FR] Demandes de nouveaux scripts
-
clpedro
Salut et bravo pour tout le travail déjà fait sur AMC 
. Je suis utilisateur depuis fort longtemps (au moins 2 ans). Encore bravo !!! 
Je me suis lancé un peu dans les scripts, mais à part adapter un script ou 2 en fonction de ce que je voulais.... je ne suis pas allé bien loin
Alors j'en appel à une âme charitable: serait-il possible de réaliser des scripts pour: (dans l'ordre d'importance... je sais j'en demande beaucoup
)
- www.filmovore.com
- www.divxovore.com
- www.cinesnap.com
Il ne me reste plus qu'à conclure par un GRAND MERCI
d'avance.
. Je suis utilisateur depuis fort longtemps (au moins 2 ans). Encore bravo !!! Je me suis lancé un peu dans les scripts, mais à part adapter un script ou 2 en fonction de ce que je voulais.... je ne suis pas allé bien loin
Alors j'en appel à une âme charitable: serait-il possible de réaliser des scripts pour: (dans l'ordre d'importance... je sais j'en demande beaucoup
)- www.filmovore.com
- www.divxovore.com
- www.cinesnap.com
Il ne me reste plus qu'à conclure par un GRAND MERCI
d'avance.-
VicAnna
-
draco31.fr
Bonjour à tous.
Tout d'abord un grand merci à Antoine qui nous livre depuis une nouvelle version de notre catalogueur favoris !
En regardant "vite fait" les scripts disponibles pour cette nouvelle version, je me suis aperçu que celui pour le site [URL]htttp://www.dvdanime.net[/url] avait disparu ou du moins il n'est pas réapparu.
Donc, serait-il possible de l'adapter pour cette nouvelle version ?
PS: Je suis désolé si ce sujet a déjà été abordé.
Tout d'abord un grand merci à Antoine qui nous livre depuis une nouvelle version de notre catalogueur favoris !
En regardant "vite fait" les scripts disponibles pour cette nouvelle version, je me suis aperçu que celui pour le site [URL]htttp://www.dvdanime.net[/url] avait disparu ou du moins il n'est pas réapparu.
Donc, serait-il possible de l'adapter pour cette nouvelle version ?
PS: Je suis désolé si ce sujet a déjà été abordé.
Je n'avais pas ce script parmis les scripts "officiels"
- soit il provient de ce forum-ci ou d'un autre forum et je ne l'ai pas vu donc jamais intégré
- soit le site m'a demandé de le retirer (mais je ne retrouve pas ce nom dans mes e-mails)
- soit le script ne fonctionnait plus depuis longtemps et je l'avais retiré à l'époque
S'il fonctionnait jusqu'à la migration vers la 3.5, il est toujours là, dans le dossier scripts, mais n'apparaît pas car il est au format 3.4.3
Il suffit de le convertir avec le programme de Pivello : viewtopic.php?t=1837
- soit il provient de ce forum-ci ou d'un autre forum et je ne l'ai pas vu donc jamais intégré
- soit le site m'a demandé de le retirer (mais je ne retrouve pas ce nom dans mes e-mails)
- soit le script ne fonctionnait plus depuis longtemps et je l'avais retiré à l'époque
S'il fonctionnait jusqu'à la migration vers la 3.5, il est toujours là, dans le dossier scripts, mais n'apparaît pas car il est au format 3.4.3
Il suffit de le convertir avec le programme de Pivello : viewtopic.php?t=1837
-
iDo
CINESNAP
Salut a tous !
Je viens de faire mon 1er script, pour CINESNAP
J'espere qu'il n'y aura pas de pb
iDo, fan de AMC !
Note : Je me suis basé sur le script "Erreur De film" pour réalisé le mien
Je viens de faire mon 1er script, pour CINESNAP
J'espere qu'il n'y aura pas de pb
iDo, fan de AMC !
Code: Select all
program CineSnap_SEARCH;
var
MovieName, NomFilm, Adresse, Parametre, Reponse : string;
premiereExecution : Integer;
//------------------------------------------------------------------------------
// MET LE TITRE AU BON FORMAT
//------------------------------------------------------------------------------
function formatTitre(titre : String; option : Integer) : string;
begin
if (option = 0) then
begin
titre := AnsiLowerCase(titre);
end else if (option = 1) then
begin
titre := AnsiUpperCase(titre);
end else if (option = 2) then
begin
titre := AnsiUpFirstLetter(titre);
end else if (option = 3) then
begin
titre := AnsiMixedCase(titre,' -');
end;
result := titre;
end;
//------------------------------------------------------------------------------
// ANALYSE DE LA PAGE DES FILMS
//------------------------------------------------------------------------------
procedure AnalyzePage(Address, Params: string);
var
Line, aucun_film,page_film,titre_film, la_page : string;
BeginPos, EndPos, compteur: Integer;
begin
//vide la liste des films
PickTreeClear;
//charge la page
Address := URLEncode(Address);
Params := URLEncode(Params);
Line := PostPage(Address,Params);
aucun_film := Line;
//introduction résultats
titre_film := MovieName;
titre_film := AnsiUpFirstLetter(titre_film);
PickTreeAdd('Trouvé : ' + titre_film, '');
//compte les résultats
compteur := 0;
BeginPos := Pos('<td width=65><a href="detail_film.php?num=', Line);
//Delete(Line, 1, BeginPos+Length('td width=65>'));
//cherche le lien de la page du film
//BeginPos := Pos('<a href=', Line);
repeat
Delete(Line, 1, BeginPos+Length('td width=65>'));
//cherche le lien de la page du film
BeginPos := Pos('<a href=', Line);
Delete(Line, 1, BeginPos+Length('<a href='));
EndPos := Pos('>', Line);
page_film := 'http://www.cinesnap.com/' + Copy(Line, 1, EndPos-2);
page_film := URLEncode(page_film);
//cherche le nom du film
BeginPos := Pos('<td><a href="'+Copy(Line, 1, EndPos-2)+'"><b>',Line);
Delete(Line, 1, BeginPos+Length('<td><a href="'+Copy(Line, 1, EndPos-2)+'"><b'));
EndPos := Pos('</b></a></td>',Line);
titre_film := Copy(Line, 0, EndPos );
HTMLdecode(titre_film);
HTMLremovetags(titre_film);
titre_film := Trim(titre_film);
titre_film := AnsiLowerCase(titre_film);
titre_film := AnsiUpFirstLetter(titre_film);
if titre_film <> '' then
begin
//ajoute les films
PickTreeAdd(titre_film , page_film);
la_page := page_film;
compteur := compteur+1;
end;
//cherche le lien de la page du film
BeginPos := Pos('<td width=65><a href="detail_film.php?num=', Line);
until BeginPos = 0;
if compteur = 1 then
begin
AnalysePageFilm(la_page);
exit;
end;
if PickTreeExec(Address) then
AnalysePageFilm(Address);
end;
//------------------------------------------------------------------------------
// ANALYSE DE LA PAGE DU FILM
//------------------------------------------------------------------------------
procedure AnalysePageFilm(Address: string);
var
Line,tempval,tmp,tmp2 : string;
BeginPos, EndPos: Integer;
begin
//charge la page
Address := URLEncode(Address);
Line := GetPage(Address);
//cherche les erreurs
tmp:='width=22 height=13>';
BeginPos := Pos(tmp, Line);
if BeginPos <> 0 then
begin
//url
SetField(fieldURL,Address);
Delete(Line, 1, BeginPos+Length(tmp)-1);
EndPos := Pos('</td>', Line);
tempval := copy(Line,0,EndPos-1);
HTMLdecode(tempval);
HTMLremovetags(tempval);
EndPos := Pos('(', tempval);
tmp:=copy(tempval,0,EndPos-1);
//titre
tmp := Trim(tmp);
tmp := AnsiLowerCase(tmp);
tmp := AnsiUpFirstLetter(tmp);
SetField(fieldOriginalTitle,tmp);
SetField(fieldTranslatedTitle,tmp);
//date
BeginPos:= Pos('(', tempval);
EndPos := Pos(')', tempval);
tmp:=copy(tempval,BeginPos+1,EndPos);
tmp:=copy(tmp,1,4);
tmp := Trim(tmp);
SetField(fieldYear,tmp)
//photo
tmp:='<td width=126 height=173 valign="top"><img src="';
BeginPos := Pos(tmp, Line);
Delete(Line, 1, BeginPos+Length(tmp)-1);
EndPos := Pos('" width=126 height=173', Line);
tempval := copy(Line,0,EndPos-1);
HTMLdecode(tempval);
HTMLremovetags(tempval);
GetPicture(tempval);
//acteurs
tmp:='<a href="detail_acteur.php?num=';
BeginPos := Pos(tmp, Line);
Delete(Line, 1, BeginPos+Length(tmp)-1);
BeginPos := Pos('>', Line);
Delete(Line, 1, BeginPos);
EndPos := Pos('</span></td>', Line);
tempval := copy(Line,0,EndPos-1);
HTMLdecode(tempval);
HTMLremovetags(tempval);
tempval := Trim(tempval);
SetField(fieldActors, tempval);
//Réalisateur
tmp:='<a href="detail_realisateur.php?num=';
BeginPos := Pos(tmp, Line);
Delete(Line, 1, BeginPos+Length(tmp)-1);
BeginPos := Pos('>', Line);
Delete(Line, 1, BeginPos);
EndPos := Pos('.</span></td>', Line);
tempval := copy(Line,0,EndPos-1);
HTMLdecode(tempval);
HTMLremovetags(tempval);
tempval := Trim(tempval);
SetField(fieldDirector, tempval);
//durée
tmp:='</b></font><font class="txt_10_noir">';
BeginPos := Pos(tmp, Line);
Delete(Line, 1, BeginPos+Length(tmp)-1);
EndPos := Pos('minutes</font></td>', Line);
tempval := copy(Line,0,EndPos-1);
HTMLdecode(tempval);
HTMLremovetags(tempval);
tempval := Trim(tempval);
SetField(fieldLength, tempval);
//synopsis
tmp:='<td class="synopsis">';
BeginPos := Pos(tmp, Line);
Delete(Line, 1, BeginPos+Length(tmp)-1);
EndPos := Pos('</td>', Line);
tempval := copy(Line,0,EndPos-1);
HTMLdecode(tempval);
HTMLremovetags(tempval);
tempval := Trim(tempval);
SetField(fieldDescription, tempval);
//audio langue
tmp:='width=40 class=text_tableau_son>';
tmp2:='';
BeginPos := Pos(tmp, Line);
repeat
Delete(Line, 1, BeginPos+Length(tmp)-1);
EndPos := Pos('</td>', Line);
tempval := copy(Line,0,EndPos-1);
HTMLdecode(tempval);
HTMLremovetags(tempval);
tempval := Trim(tempval);
tmp2:=tmp2+tempval+',';
BeginPos := Pos(tmp, Line);
until BeginPos = 0;
SetField(fieldLanguages, copy(tmp2,0,Length(tmp2)-1));
//format image
tmp:='<font class=''txt_11_noir''>';
BeginPos := Pos(tmp, Line);
Delete(Line, 1, BeginPos+Length(tmp)-1);
EndPos := Pos('</font></td>', Line);
tempval := copy(Line,0,EndPos-1);
HTMLdecode(tempval);
HTMLremovetags(tempval);
tempval := Trim(tempval);
SetField(fieldResolution, tempval);
//bonus
tmp:='<font class=''txt_11_noir''>';
BeginPos := Pos(tmp, Line);
Delete(Line, 1, BeginPos+Length(tmp)-1);
EndPos := Pos('</font></td>', Line);
tempval := copy(Line,0,EndPos-1);
HTMLdecode(tempval);
HTMLremovetags(tempval);
tempval := Trim(tempval);
SetField(fieldComments, tempval);
end;
end;
//------------------------------------------------------------------------------
// PROCEDURE DE DEBUG AVEC ECRITURE DANS UN FICHIER
//------------------------------------------------------------------------------
procedure debug (la_ligne : String);
var
Page: TStringList;
LineNr: Integer;
fichier: string;
begin
fichier := 'c:\DEBUG.HTM';
Page := TStringList.Create;
Page.Text := la_ligne;
Page.SaveToFile(fichier);
end;
//------------------------------------------------------------------------------
// NETTOIE LE TITRE DU FICHIER POUR AVOIR LE TITRE DE FILM
//------------------------------------------------------------------------------
function cleanTitle(title : String) : string;
var
i,j, fin : Integer;
temp : String;
begin
title := AnsiUpperCase(title);
if title <> '' then
begin
// Nettoie les tags fichiers, merci Atmosfear pour les tags
i:=pos('.DVD',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
i:=pos('.DIVX',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
i:=pos('.FREN',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
i:=pos('.GERM',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
i:=pos('.INT',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
i:=pos('.LIM',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
i:=pos('.PROP',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
i:=pos('.REPACK',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
i:=pos('.SUBB',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
i:=pos('.UNSUB',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
i:=pos('.WS',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
i:=pos('.XVID',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
i:=pos('.AC3',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
i:=pos('.UNRAT',title);
if i <> 0 then
begin
title := copy(title,1,i-1);
end;
title := StringReplace(title, '.', ' ');
title := StringReplace(title, ',', ' ');
title := StringReplace(title, ':', '');
title := StringReplace(title, '-', '');
title := StringReplace(title, ' ', ' ');
i := 0;
// Nettoie les tags de team
if (pos('(',title) <> 0) then
begin
i := pos('(',title);
temp := copy(title,0,i-1);
j := pos(')',title);
fin := Length(title);
title := temp + copy(title,j+1,fin);
end;
if (pos('[',title) <> 0) then
begin
i := pos('[',title);
temp := copy(title,1,i-1);
j := pos(']',title);
fin := Length(title);
title := temp + copy(title,j+1,fin);
end;
title := AnsiLowerCase(title);
title := AnsiUpFirstLetter(title);
title := AnsiMixedCase(title,' -');
end;
result := title;
end;
//------------------------------------------------------------------------------
// PROGRAMME PRINCIPAL
//------------------------------------------------------------------------------
begin
if CheckVersion(3,5,0) then
begin
MovieName := GetField(fieldTranslatedTitle);
if MovieName = '' then
MovieName := GetField(fieldOriginalTitle);
MovieName := cleanTitle(MovieName);
if Input('cinesnap par iDo', 'Entrez le titre du film :', MovieName) then
begin
//remplace les caractères accentués
NomFilm := MovieName;
NomFilm := AnsiLowerCase(NomFilm);
NomFilm := StringReplace(NomFilm, 'é', 'e');
NomFilm := StringReplace(NomFilm, 'è', 'e');
NomFilm := StringReplace(NomFilm, 'à', 'a');
NomFilm := StringReplace(NomFilm, 'ç', 'c');
NomFilm := StringReplace(NomFilm, 'ù', 'u');
Adresse := URLEncode('http://www.cinesnap.com/recherche.php?rech_titre='+NomFilm+'&x=0&y=0');
Parametre := URLEncode('');
AnalyzePage(Adresse, Parametre);
end;
end else
ShowMessage('Ce script requiert une version plus récente de Ant Movie Catalog (au moins la version 3.5.0)');
end.
Il manque le bloc des propriétés du fichier au début (enfin, c'est pas grave si tu n'as pas défini d'options, mais on perd le nom du script, de l'auteur, etc.)
Pour ça il faut ouvrir le script avec le bloc-notes. Ça me fait penser qu'il faudra que je rajoute absolument une icône "Copy whole script" dans l'éditeur d'AMC vu que quand on copie ce qu'on voit on n'a que le script sans ses propriétés.
Pour ça il faut ouvrir le script avec le bloc-notes. Ça me fait penser qu'il faudra que je rajoute absolument une icône "Copy whole script" dans l'éditeur d'AMC vu que quand on copie ce qu'on voit on n'a que le script sans ses propriétés.
-
draco31.fr
Ok, merci Antoine ! Je vais essayer le prog pour le convertir !antp wrote:Je n'avais pas ce script parmis les scripts "officiels"
- soit il provient de ce forum-ci ou d'un autre forum et je ne l'ai pas vu donc jamais intégré
- soit le site m'a demandé de le retirer (mais je ne retrouve pas ce nom dans mes e-mails)
- soit le script ne fonctionnait plus depuis longtemps et je l'avais retiré à l'époque
S'il fonctionnait jusqu'à la migration vers la 3.5, il est toujours là, dans le dossier scripts, mais n'apparaît pas car il est au format 3.4.3
Il suffit de le convertir avec le programme de Pivello : viewtopic.php?t=1837
PS: En cherchant sur le forum, il me semble avoir trouvé un post du webmaster de DVDAnime.net demandant le retrait du script.
D'où ma seconde question ...
Risque tu d'avoir des 'soucis' si les utilisateurs d'AMC utilise ce script à des fins personnelles ?
Parce que l'utilisation de ce script pour les images suivit de celui pour Animeka pour les autres info permettait d'avoir des fiches rééllement complète pour les Animes ! (avec une belle jaquette pas comme les images d'Animeka).
Voilà bonne continuation à toi et ceux qui créent des scripts pour notre plus grand bonheur !
Si il a demandé à ce que le script soit retiré, ça explique pourquoi il n'est plus fourni avec AMC.
Pour ce qui est d'avoir des ennuis, a priori je ne pense pas. De toute façon je n'ai aucun moyen d'empêcher les gens d'accéder à leur site. Par contre si eux ne veulent pas qu'AMC accède à leur site, il leur suffit de bloquer le user agent d'AMC et plus aucune version officielle d'AMC ne pourra se connecter à leur site.
Pour ce qui est d'avoir des ennuis, a priori je ne pense pas. De toute façon je n'ai aucun moyen d'empêcher les gens d'accéder à leur site. Par contre si eux ne veulent pas qu'AMC accède à leur site, il leur suffit de bloquer le user agent d'AMC et plus aucune version officielle d'AMC ne pourra se connecter à leur site.
-
Guest
Hi!
Serious possible to do a Script of these pags:
Http: // info.frozen-layer.net/
And
Http: // www.animeinfo.org/
Of anime not ahy none
Serious possible to do a Script of these pags:
Http: // info.frozen-layer.net/
And
Http: // www.animeinfo.org/
Of anime not ahy none
DVD POST
Salut, je vois que vous êtes des pros du scripting ;-)
Je me permets donc de vous poser deux questions...
Est-il possible de faire un mix de plusieurs scripts? si oui comment?
Aussi, est-ce que quelqu'un a un script pour http://www.dvdpost.be ?
Merci d'avance
Lesaje
Je me permets donc de vous poser deux questions...
Est-il possible de faire un mix de plusieurs scripts? si oui comment?
Aussi, est-ce que quelqu'un a un script pour http://www.dvdpost.be ?
Merci d'avance
Lesaje
-
Guest
antp wrote:Si il a demandé à ce que le script soit retiré, ça explique pourquoi il n'est plus fourni avec AMC.
Pour ce qui est d'avoir des ennuis, a priori je ne pense pas. De toute façon je n'ai aucun moyen d'empêcher les gens d'accéder à leur site. Par contre si eux ne veulent pas qu'AMC accède à leur site, il leur suffit de bloquer le user agent d'AMC et plus aucune version officielle d'AMC ne pourra se connecter à leur site.
Je suis un utilisateur satisfait de AMC . Merci à son créateur et à tous les participants à l'écriture des nouveaux scripts ... Mais depuis quelques jours , je ne peux plus accéder via CINEFIL.FR . Est-ce pour la même raison , ont-ils bloqué l'accès à l'user agent d'AMC ?
-
scorpion7552
- Posts: 182
- Joined: 2004-02-05 11:57:33
- Location: Paris, France
ça marche pour moi ce matin. As-tu été voir ici viewtopic.php?t=2016Anonymous wrote:Je suis un utilisateur satisfait de AMC . Merci à son créateur et à tous les participants à l'écriture des nouveaux scripts ... Mais depuis quelques jours , je ne peux plus accéder via CINEFIL.FR . Est-ce pour la même raison , ont-ils bloqué l'accès à l'user agent d'AMC ?
Et il faut se rappeler que cinéfil a parfois des vapeurs (pas de réponses ou très longues)
A+
scropt pour allociné pour les séries TV
il y a une nouvelle section "séries", sur allociné et ça serait bien si qq'un pouvait faire un script pour les séries TV.
Merci d'avance
Merci d'avance
script pour le serietheque
est-ce que qq'un pourrait écrire un script pour le site http://www.serietheque.com
Merci d'avance
Merci d'avance
Re: scropt pour allociné pour les séries TV
Il faudrait plutôt le suggérer à ScorEpioN dans son topic vu que c'est lui qui s'occupe du script Allocinédrone wrote:il y a une nouvelle section "séries", sur allociné et ça serait bien si qq'un pouvait faire un script pour les séries TV.
Merci d'avance
-
draco31.fr
Script pour Calorifix.net
Tout d'abord un grand merci à Antoine, ScorEpioN et tout ceux qui créent des script pour nous faciliter la tâche !!!
Je voudrais vous proposer de faire un script utilisant le site : http://www.calorifix.net qui fournit des fiches avec jaquette pour les films asiat (ce qui est rare !) et en français en plus !!!
La difficulté (outre le fait que je ne connais rien à la programmation de script ) est que les fiches sont sur un forum !
Cependant, le moteur de recherche de film nous mène directement sur le post du forum correspondant, et les fiches sont toutes à peu près identiques donc je pense qu'un script est possible !
Si qq'un veut bien se dévouer pour le réaliser je lui serais très reconnaissant !!!
Je voudrais vous proposer de faire un script utilisant le site : http://www.calorifix.net qui fournit des fiches avec jaquette pour les films asiat (ce qui est rare !) et en français en plus !!!
La difficulté (outre le fait que je ne connais rien à la programmation de script
) est que les fiches sont sur un forum !Cependant, le moteur de recherche de film nous mène directement sur le post du forum correspondant, et les fiches sont toutes à peu près identiques donc je pense qu'un script est possible !
Si qq'un veut bien se dévouer pour le réaliser je lui serais très reconnaissant !!!
-
sourichiot
Bonjour à tous et à l'équipe qui fait vraiment des chefs d'oeuvres!
Je fais parti d'amateur et collectionneur de jeux vidéo et j'aimerais savoir si un script pourrais etre fait avec les infos images et textes tres complet de ce site:
http://www.gamefaqs.com
Merci d'avance !!!
Cela nous aiderez grandement!
Je fais parti d'amateur et collectionneur de jeux vidéo et j'aimerais savoir si un script pourrais etre fait avec les infos images et textes tres complet de ce site:
http://www.gamefaqs.com
Merci d'avance !!!
Cela nous aiderez grandement!
-
Guest
edit : http://www.mobygames.comsourichiot wrote:Bonjour à tous et à l'équipe qui fait vraiment des chefs d'oeuvres!
Je fais parti d'amateur et collectionneur de jeux vidéo et j'aimerais savoir si un script pourrais etre fait avec les infos images et textes tres complet de ce site:
http://www.gamefaqs.com
Merci d'avance !!!
Cela nous aiderez grandement!