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

If you made a script you can offer it to the others here, or ask help to improve it. You can also report here bugs & problems with existing scripts.
Post Reply
Bouzoul

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

Post by 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 :D

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
Image
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 :cry: :hum:

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

:grinking:
antp
Site Admin
Posts: 9651
Joined: 2002-05-30 10:13:07
Location: Brussels
Contact:

Post by 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
Site Admin
Posts: 9651
Joined: 2002-05-30 10:13:07
Location: Brussels
Contact:

Post by 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

Post by 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

Post by 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('Image');
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 !!! :grinking:
Guest

Post by 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
Post Reply