antp.be forum

Code: Select all

program NewScript;
var
Value :string;
begin
Value := 'L&# 8217;univers de la mythique saga est ici &# 233;tendu et l&# 8217;ambiance est moins sombre que dans les volets pr&# 233;c&# 233;dents';
HTMLDecode(Value);
ShowMemo(Value);
end.

Code: Select all

program NewScript;

const
CR = #13#10;
Tab = #9;
Esp = '    ';
Sep = '|';

uses
StringUtils1;

var
URL, Line, Value, Value2  : string;

//------Fonction Extract_Infos--------------------------------------------------
function Extract_Infos(Info : string): string;

var
Temp, Txt, Num, Car, Des, Txt2, Num2 : string;

begin
  Delete(Info, 1, Pos('</tr>', Info));
  While Pos('</tr>', Info) > 0 do
  begin
    Car := TextBetween(Info, '<tr><td>', '</td>');  // caractère
    Txt := TextBetween(Info, '<td>&', '</td>');  // code texte
    if length('&'+Txt) >= 8 then
    Txt2 := Txt+Tab
    else
    Txt2 := Txt+Tab+Tab;
    Num := TextBetween(Info, '<td>&#', '</td>'); // code numérique
    if length('&#'+Num) >= 8 then
    Num2 := Num+Tab
    else
    Num2 := Num+Tab+Tab;
    Delete(Info, 1, Pos('<td>&#', Info));
    Des := UTF8Decode(TextBetween(Info, '<td>', '</td>')); // description du caractère
    HTMLRemoveTags(Des);
    if Des <> ' ' then
    Des := '{ '+Des+' }';
    Temp := Temp+'( '+Car+' )'+Tab+'&'+Txt2+'='+Tab+'[ '+'&'+Txt+' ]'+Tab+Sep+Tab+'&#'+Num2+'='+Tab+'[ '+'&#'+Num+' ]'+Tab+Des+CR;
    Delete(Info, 1, Pos('</tr>', Info));
  end;
  result := Temp;
end;

//------Programme Principal-----------------------------------------------------
begin
  URL := 'http://alexandre.alapetite.fr/doc-alex/alx_special.html';
  Line := GetPage(URL);

  Value2 := TextBetween(Line, UTF8Encode('<h2 id="generaux">Caractères généraux</h2>'), '</table>');
  Value := '[ Caractères généraux ]'+CR+CR+Extract_Infos(Value2);
  Value2 := TextBetween(Line, '<h2 id="monnaies">Monnaies</h2>', '</table>');
  Value := Value+CR+'[ Monnaies ]'+CR+CR+Extract_Infos(Value2);
  Value2 := TextBetween(Line, UTF8Encode('<h2 id="accents">Caractères alphabétiques accentués et spéciaux</h2>'), '</table>');
  Value := Value+CR+'[ Caractères alphabétiques accentués et spéciaux ]'+CR+CR+Extract_Infos(Value2);
  Value2 := TextBetween(Line, '<h2 id="grec">Alphabet Grec</h2>', '</table>');
  Value := Value+CR+'[ Alphabet Grec ]'+CR+CR+Extract_Infos(Value2);
  Value2 := TextBetween(Line, ('<h2 id="sciences">Sciences</h2>'), '</table>');
  Value := Value+CR+'[ Sciences ]'+CR+CR+Extract_Infos(Value2);
  Value2 := TextBetween(Line, UTF8Encode('<caption>Reconnus sous <abbr>IE</abbr>6.0+ avec une police unicode</caption>'), '</table>');
  Value := Value+CR+'[ Divers caractères reconnus sous IE6.0+ avec une police unicode ]'+CR+CR+Extract_Infos(Value2);
  Value2 := TextBetween(Line, UTF8Encode('<caption>Reconnus sous <abbr>IE</abbr>6.1+ avec une police unicode</caption>'), '</table>');
  Value := Value+CR+'[ Divers caractères reconnus sous IE6.1+ avec une police unicode ]'+CR+CR+Extract_Infos(Value2);
  //ShowMemo(Value);
  HTMLDecode(Value);
  ShowMemo(Value);
end.