Posted: 2006-11-21 10:45:11
il faut probablement mettre à jour aussi ScorEpioNCommonScript.pas
Official Forum
https://forum.antp.be/phpbb3/
S'il y a d'autres corrections que celle de l'image, ça pourrait en effet être intéressant. Je n'ai pas suivi les différentes modifications, donc si tu peux m'envoyer ta version par e-mail je la mettrai sur mon site. L'envoyer à ScorEpioN est une bonne idée aussi.Raoul_Volfoni wrote: @ Antp
En attendant que ScorEpioN ne délivre sa version et si tu le souhaites, je peux te fournir une version de mon script avec toutes les modifs effectuées depuis que je post sur le sujet.
Je pourrais d'ailleurs donner une copie à ScorEpioN comme base d'étude pour ses propres corrections.
C'est bien pour ça que j'avais écrit dans ma critique "surtout que je ne suis vraiment pas en position de donner des leçons puisque je suis plus que novice en programmation" ... c'est vrai j'en conviens une fois encore ... mon post était un peu virulent et pas pédagogue pour deux sous ... désoler, promis, j'le refais plus.Draco31.fr wrote:Je crois que de la part d'un débutant, il est mal venu de critiquer le travail d'un autre
Je suis tout à fait d'accord ... le nombre de lignes utilisées par Maurice Lorieu n'était qu'une partie infime de mes critiques ... elle mettait en avant le fait que l'on avait déjà débattu du sujet de l'arrondissement des notes ... preuve que Maurice Lorieu n'a pas été attentif du suivi des modifs dans ce topic ... Lorsque j'ai commencé à posté ici j'ai lu les 27 premières pages du Topic pour essayé de ne pas être trop redondant.Draco31.fr wrote: Il n'existe pas de bon code unique, juste des codes différents, et le nombre de ligne ne renseigne pas toujours sur la qualité du code
Je n'ai jamais eu la prétention de faire un code exemplaire ... toutefois je m'évertue autant que possible à poster un code en état de marche.Draco31.fr wrote:Si ton codage est si bon.
J'y viendrais surement un jour mais pour l'instant je décortique le code des autres pour apprendre.Draco31.fr wrote:pourquoi ne pas tenter un de faire un script de A à Z
Euh ... celui du nombre de chiffres après la virgule (Arrondir_ou_on_veut) y compte pas ? ... ... !!Draco31.fr wrote:J'attends de voir le code de ton premier script
Code: Select all
// prends les infos du DVD associé
// Ne modifie pas le source 'Line' sinon pb pour les notes !
aucun := Line;
Intvalue := Pos('bouton_acheter.gif',aucun);
if (IntValue > 0)and (GetOption('InfoDVD') = 1) Then
// if (IntValue > 0) Then
begin
Delete(aucun,1,Pos('cinestore/visuel/',aucun));
Value := FindInfo('<h4 style="color: #444444">','</h4>',aucun,'0');
Value2 := FindInfo('<p style="font-family:arial,geneva;letter-spacing:0;color: red; font-size: 36px"><b>','</b></p>',aucun,'0');
Value := Value + ' / ' + Value2;
Delete (aucun,1,Pos('<b> €</b>',aucun));
Value2 := FindInfo('<p style="font-family:arial,geneva;letter-spacing:0;color: red; font-size: 20px"><b>','</b></p>',aucun,'0');
if Value2 <> '' Then
Value := Value + ',' + Value2 + ' €'
else Value := Value + ' €';
SetField(fieldSource,Value);
Value := '';
Value2 := '';
IntValue := 0;
aucun := '';
end