Convertir les code html en caractères spéciaux

Commenter

Contenu du snippet

Voici le complément à la source poster par Japee :
http://www.delphifr.com/codes/CONVERTIR-CARACTERES-SPECIAUX-CODE-HTML_27193.aspx

J'ai volontairement donné le titre opposé.

Bien sur il est sans doute possible d'améliorer le code (cela ne fait que 4 semaines que je me suis mis à DELPHI.

J'espère qu'il vous servira au temps que le source de Japee m'a était util...

Source / Exemple : 


function HtmlToText(S:String):String;
var
  i, index, compteur :integer;
  Stmp, coupe : String;
begin
  Result := '';
  compteur := 0;
  for i:=1 to Length(S) do
  begin
    if i < compteur then continue;
    if ((S[i] = '&') and (S[(i + 1)] = '#')) then
    begin
      index := (i + 2);
      coupe := copy(s, index, Length(S));
      compteur := Pos(';', coupe);
      coupe := copy(coupe, 0, compteur - 1);
      Stmp :=  char(StrToInt(coupe));
      compteur := compteur + index;
    end
    else
      Stmp := S[i];

    Result := Result + Stmp;
  end;
end;

Conclusion :


N'hésitez pas à me faire part de vos remarque (sans être trop méchant)...

Bon Dév à tous

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.