1/5 (31 avis)
Vue 32 321 fois - Téléchargée 601 fois
function TextToHtml(const S: string): string; const SpeChar = [ '"','&','?','?','?','?','?','?','?','?','?','?','?','?','?','?', '?','?','?','?','?','?','?','?','?','?','?','?','?','?',' ','¡', '¢','£','¤','¥','¦','§','¨','©','ª','«','¬','','®','¯','°','±', '²','³','´','µ','¶','·','¸','¹','º','»','¼','½','¾','¿','À','Á', 'Â','Ã','Ä','Å','Æ','Ç','È','É','Ê','Ë','Ì','Í','Î','Ï','Ð','Ñ', 'Ò','Ó','Ô','Õ','Ö','×','Ø','Ù','Ú','Û','Ü','Ý','Þ','ß','à','á', 'â','ã','ä','å','æ','ç','è','é','ê','ë','ì','í','î','ï','ð','ñ', 'ò','ó','ô','õ','ö','÷','ø','ù','ú','û','ü','ý','þ','ÿ']; var i: Integer; Tmp: string; begin Result := ''; for i := 1 to Length(S) do begin if S[i] in SpeChar then Tmp := Format('&#%d;', [Ord(S[i])]) else Tmp := S[i]; Result := Concat(Result, Tmp); end; end; function HtmlToText(const S: string): string; var Index: Integer; Tmp: string; L: Integer; begin Result := ''; Index := 1; while Index < Length(S) + 1 do begin if ((S[Index] = '&') and (S[(Index + 1)] = '#')) then begin Tmp := Copy(S, Index, 6); L := Pos(';', Tmp); Tmp := Char(StrToInt( Copy(Tmp, 3, L - 3) )); Inc(Index, L) end else begin Tmp := S[Index]; Inc(Index); end; Result := Concat(Result, Tmp); end; end;
8 oct. 2007 à 17:22
10/10
27 avril 2007 à 17:41
_______________________________________________________
Autres =
['!', '§', ':', '/', ';', '.', ',', '?', '<', '>', '²', '&', '~', '"', '#', '''', '{', '(', '[', '-', '|', '`', '_', '\', '^', '@', ')', ']', '=', '}', '+', '°', '¨', '$', '£', '¤', '*', 'ù', '%', 'µ'];
Modif = MinusculesAccentuees + MajusculesAccentuees + Autres;
_______________________________________________________
je ne suis pas surre pour le ' je me rappel qu'il faut doubler l'apostrophe si on veut on mettre réelement une c'est ce que j'ai fait.... corriger moi si c'est faux
merci
27 avril 2007 à 17:20
tres utile !!!!!!!!
6 avril 2005 à 20:20
Oh làlàlàà j'ai dit n'importe quoi :)
En fait ce n'est pas les '#' qui sont retraduis mais les '&'.
Je suis pas réveillé moi :)
6 avril 2005 à 20:18
Enfin bon c'est histoire de mettre un petit commentaire sur ton code.
@++
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.