[FR] Existe t'il ce genre de script svp ?

[Bouzoul]

Tout d'abord bonjou et bravo a tous et a toutes qui participent a l'avancement de ce superbe soft! il est tres complet et apparement il semblerais que ça ne soit pas fini !! Motivés motivés

Bon revenons en a nos moutons, donc en fait je voudrais faire une recherche sur un film sur www.allociné.fr par exemple et exporter la fiche au format vbulletin!

Exemple :

Titre : Starwars épisode 2: l'attaque des clones

Réalisateur : George Lucas
Synopsis.....
etc, etc !!!

cela existe t'il ou je dois essayer d'apprendre a coder et me le faire moi meme

Merci d'avance pour vos reponses (ou pas LOL)

[antp]

Ça doit pouvoir se faire via l'Exportation HTML, mais bon c'est pas très pratique.
Pour ce genre de trucs il faudra attendre la prochaine version.

[antp]

Enfin, non, en fait ça peut se faire directement dans le script Allociné :
Juste avant la ligne contenant "DisplayResults;", ajoute :

Code: Select all

list := TStringList.Create;
list.Add('Titre : ' + GetField(fieldOriginalTitle));
list.Add('[img]' + picstr + '[/img]');
list.Add('Réalisateur : ' + GetField(fieldDirector));
// etc...
ShowMessage(list.Text);
list.Free;

Ajoute aussi dans la section "var" de AnalyzeMoviePage :

Code: Select all

list: TStringList;
picstr: string;

Et just après le "GetPicture(Value, False);" :

Code: Select all

picstr := Value;

Ça affichera les infos dans une fenêtre, dont tu peux copier le contenu via Ctrl+C

[Bouzoul]

pouahhhhh genial je n'esperais pas une reponse si rapide je teste de suite et te dis ça !!!!

un grand merci a toi grand manitou

[Guest]

alors donc g testé ça marche nikel, j'ai essayé de comprendre le fonctionnement est j'ai modifié pour que ça donne cela :

juste avant la ligne DisplayResults; :

list := TStringList.Create;
list.Add('Titre : ' + GetField(fieldOriginalTitle));
list.Add('');
list.Add('Réalisé par : ' + GetField(fieldDirector));
list.Add('Date de Sortie : ' + GetField(fieldYear));
list.Add('Acteurs : ' + GetField(fieldActors));
list.Add('Durée : ' + GetField(fieldLength) + ' Mn');
list.Add('Synopsis : ' + GetField(fieldDescription));
// etc...
ShowMessage(list.Text);
list.Free;

et là en fait j'ai tout les resultats voulus dans une fenetre type popup!

là j'essayes de voir si je peux avoir acces a la selection dans cette meme fenetre car sans pouvoir selectionner je n'ai pas acces au presse papier

en tous cas merci de ton aide, je suis ravi du resultat !!!

[Guest]

oups en fait je n'avais pas vu qu'en faisant juste ctrl+c cela copiat directement tout dans le presse papier

je n'ai donc plus besoin de chercher LOL

merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii