Voyez plutôt, je pense que ça se passe de commentaires (il y une petite description au dessus de chaque fonction:
► Afficher le texte
Code : Tout sélectionner
Global $__HTML_SpecialChars[131][3] = _
[ _
[130, "", ""], _
['"', '"', '"'], _
['&', '&', '&'], _
['€', '€', '€'], _
['', '', ''], _
['‚', '‚', ''], _
['ƒ', 'ƒ', ''], _
['„', '„', ''], _
['…', '…', ''], _
['†', '†', ''], _
['‡', '‡', ''], _
['ˆ', 'ˆ', ''], _
['‰', '‰', ''], _
['Š', 'Š', ''], _
['‹', '‹', '<'], _
['Œ', 'Œ', ''], _
['', '', ''], _
['Ž', 'Ž', ''], _
['', '', ''], _
['', '', ''], _
['‘', '‘', ''], _
['’', '’', ''], _
['“', '“', ''], _
['”', '”', ''], _
['•', '•', ''], _
['–', '–', ''], _
['—', '—', ''], _
['˜', '˜', ''], _
['™', '™', ''], _
['š', 'š', ''], _
['›', '›', '>'], _
['œ', 'œ', 'œ'], _
['', '', ''], _
['ž', 'ž', ''], _
['Ÿ', 'Ÿ', 'Ÿ'], _
[' ', ' ', ' '], _
['¡', '¡', '¡'], _
['¢', '¢', '¢'], _
['£', '£', '£'], _
['¤', '¤', '¤'], _
['¥', '¥', '¥'], _
['¦', '¦', '¦'], _
['§', '§', '§'], _
['¨', '¨', '¨'], _
['©', '©', '©'], _
['ª', 'ª', 'ª'], _
['«', '«', '«'], _
['¬', '¬', '¬'], _
['', '­', '­'], _
['®', '®', '®'], _
['¯', '¯', '&masr;'], _
['°', '°', '°'], _
['±', '±', '±'], _
['²', '²', '²'], _
['³', '³', '³'], _
['´', '´', '´'], _
['µ', 'µ', 'µ'], _
['¶', '¶', '¶'], _
['·', '·', '·'], _
['¸', '¸', '¸'], _
['¹', '¹', '¹'], _
['º', 'º', 'º'], _
['»', '»', '»'], _
['¼', '¼', '¼'], _
['½', '½', '½'], _
['¾', '¾', '¾'], _
['¿', '¿', '¿'], _
['À', 'À', 'À'], _
['Á', 'Á', 'Á'], _
['Â', 'Â', 'Â'], _
['Ã', 'Ã', 'Ã'], _
['Ä', 'Ä', 'Ä'], _
['Å', 'Å', 'Å'], _
['Æ', 'Æ', '&Aelig'], _
['Ç', 'Ç', 'Ç'], _
['È', 'È', 'È'], _
['É', 'É', 'É'], _
['Ê', 'Ê', 'Ê'], _
['Ë', 'Ë', 'Ë'], _
['Ì', 'Ì', 'Ì'], _
['Í', 'Í', 'Í'], _
['Î', 'Î', 'Î'], _
['Ï', 'Ï', 'Ï'], _
['Ð', 'Ð', 'ð'], _
['Ñ', 'Ñ', 'Ñ'], _
['Ò', 'Ò', 'Ò'], _
['Ó', 'Ó', 'Ó'], _
['Ô', 'Ô', 'Ô'], _
['Õ', 'Õ', 'Õ'], _
['Ö', 'Ö', 'Ö'], _
['×', '×', '×'], _
['Ø', 'Ø', 'Ø'], _
['Ù', 'Ù', 'Ù'], _
['Ú', 'Ú', 'Ú'], _
['Û', 'Û', 'Û'], _
['Ü', 'Ü', 'Ü'], _
['Ý', 'Ý', 'Ý'], _
['Þ', 'Þ', 'þ'], _
['ß', 'ß', 'ß'], _
['à', 'à', 'à'], _
['á', 'á', 'á'], _
['â', 'â', 'â'], _
['ã', 'ã', 'ã'], _
['ä', 'ä', 'ä'], _
['å', 'å', 'å'], _
['æ', 'æ', 'æ'], _
['ç', 'ç', 'ç'], _
['è', 'è', 'è'], _
['é', 'é', 'é'], _
['ê', 'ê', 'ê'], _
['ë', 'ë', 'ë'], _
['ì', 'ì', 'ì'], _
['í', 'í', 'í'], _
['î', 'î', 'î'], _
['ï', 'ï', 'ï'], _
['ð', 'ð', 'ð'], _
['ñ', 'ñ', 'ñ'], _
['ò', 'ò', 'ò'], _
['ó', 'ó', 'ó'], _
['ô', 'ô', 'ô'], _
['õ', 'õ', 'õ'], _
['ö', 'ö', 'ö'], _
['÷', '÷', '÷'], _
['ø', 'ø', 'ø'], _
['ù', 'ù', 'ù'], _
['ú', 'ú', 'ú'], _
['û', 'û', 'û'], _
['ü', 'ü', 'ü'], _
['ý', 'ý', 'ý'], _
['þ', 'þ', 'þ'], _
['ÿ', 'ÿ', 'ÿ'] _
]
; ##############################################################
; Remplace tous les caractères spéciaux contenus dans $sString par leur code HTML correspondant
Func _HTML_StringToCode(ByRef $sString)
For $i = 1 To $__HTML_SpecialChars[0][0]
If $__HTML_SpecialChars[$i][0] Then
If $__HTML_SpecialChars[$i][2] Then
$sString = StringReplace($sString, $__HTML_SpecialChars[$i][0], $__HTML_SpecialChars[$i][2], 0, 1)
Else
$sString = StringReplace($sString, $__HTML_SpecialChars[$i][0], $__HTML_SpecialChars[$i][1], 0, 1)
EndIf
EndIf
Next
; ---
Return 1
EndFunc
; Remplace tous les codes de caractères spéciaux contenus dans $sString (code HTML) par le caractère correspondant
; PS: Utile par exemple pour afficher un texte HTML dans un Edit
Func _HTML_StringToChars(ByRef $sString)
For $i = 1 To $__HTML_SpecialChars[0][0]
If $__HTML_SpecialChars[$i][1] Then _
$sString = StringReplace($sString, $__HTML_SpecialChars[$i][1], $__HTML_SpecialChars[$i][0], 0, 1)
If $__HTML_SpecialChars[$i][2] Then _
$sString = StringReplace($sString, $__HTML_SpecialChars[$i][2], $__HTML_SpecialChars[$i][0], 0, 1)
Next
; ---
Return 1
EndFunc
; ##############################################################
; Converie un caractère spécial en son code HTML correspondant
Func _HTML_CharToCode($Chr)
If Not $Chr Then Return $Chr
; ---
For $i = 1 To $__HTML_SpecialChars[0][0]
If $Chr == $__HTML_SpecialChars[$i][0] Then
If $__HTML_SpecialChars[$i][2] Then
Return $__HTML_SpecialChars[$i][2]
Else
Return $__HTML_SpecialChars[$i][1]
EndIf
EndIf
Next
; ---
Return SetError(1, 0, 0)
EndFunc
; Convertie un code de caractère spécial HTML en son caractère correspondant
Func _HTML_CodeToChr($code)
If Not $code Then Return $code
; ---
For $i = 1 To $__HTML_SpecialChars[0][0]
If $code == $__HTML_SpecialChars[$i][1] Or $code == $__HTML_SpecialChars[$i][2] Then
Return $__HTML_SpecialChars[$i][0]
EndIf
Next
; ---
Return SetError(1, 0, 0)
EndFunc