Posted: 2011-11-18 01:06:06
J'ai modifier le code comme ceci ligne 427 car on a des fois 'Année de production', et d'autres fois 'Année de prod.'.
Soulsnake.
Code: Select all
// Year
if CanSetField(fieldYear) then
begin
if pos(UTF8Encode('Année de production'), Line) > 0 then
Value := FullTrim(findInfo(UTF8Encode('Année de productiom'), '</span>', Line,'0'));
if pos(UTF8Encode('Année de prod.'), Line) > 0 then
Value := FullTrim(findInfo(UTF8Encode('Année de prod.'), '</span>', Line,'0'));
if (GetOption('Choix Date') = 1) then
begin
if pos(UTF8Encode('Date de sortie </span>'), Line) > 0 then
Value2 := FullTrim(findInfo(UTF8Encode('Date de sortie </span>'), '</strong>', Line,'0'));
Value2 := FullTrim(Value2);
delete(Value2,1,length(Value2)-4);
Value2 := isDate(Value2);
Value := valueNotEmpty(Value2, Value);
end;
MonSetField(fieldYear, Value);
Value := '';
Value2 := '';
end;