Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 258 fois - Téléchargée 18 fois
Public Shared Function ConvertAccentMohaBaba(ByVal Texte As String) As String Dim str As String = Texte Dim tch As String tch = str.ToArray Dim cht As String = "" Dim l As New Integer l = Len(str) Dim i As New Integer Dim j As New Integer j = 0 i = 0 While (i < l) If tch(i) = "&" Then Dim car As String = Mid(str, i + 1, 6) Select Case car Case "é" cht = cht & "é" Case "è" cht = cht & "è" Case "ç" cht = cht & "ç" Case "â" cht = cht & "â" Case "à" cht = cht & "à" Case "ê" cht = cht & "ê" Case "î" cht = cht & "î" Case "ï" cht = cht & "ï" Case "ô" cht = cht & "ô" Case "ù" cht = cht & "ù" Case "û" cht = cht & "û" Case "õ" cht = cht & "õ" Case "ë" cht = cht & "ë" End Select j = j + 1 i = i + 6 Else cht = cht & tch(i) j = j + 1 i = i + 1 End If End While Try Return cht Catch ex As Exception MsgBox("Le programme ne prend pas en compte ce genre de caractère", , "Attention !!") Return Texte End Try End Function
L'UNICODE est une norme internationale dont le but est de réunir un jeu de caractère complet propre à un maximum de langues écrites. Pour chaque caractères (visuel) il y a un code (une valeur numérique) qui lui propre.
Ainsi si j'écris au Maroc et en Arabe, puis que je mets mon texte sur le net, il restera intacte. Il ne se transformera pas en Kanji ou en caractères Latin si je suis en France ou au Japon.
Un autre exemple plus concret, sans l'UNICODE tout les accents propres à la langue Française disparaîtraient en traversant la manche, car les Anglais n'en utilisent pas.
Quand à ton code Mrassaa, il utilise quelques codes de l'UNICODE pour qu'il soit correctement représenté par tout les navigateurs.
Ce n'est vrai que pour les navigateurs qui respectent les normes de l'HTML 4.0.
Pour se faire une petite une idée de la taille de la table UNICODE, suivez ce lien :
http://www.tamasoft.co.jp/en/general-info/unicode.html
ou bien ouvrez la table des caractères de Windows à des polices comme Arial ou Times New Roman.
Mais merci quand même, ta ligne de code allège énormément mon programme.
Forza Taraji!!
Merci pour l'info.
Ton horrible fonction se résume en une ligne :
Return HttpUtility.HtmlDecode(Texte)
MSDN : http://msdn.microsoft.com/en-us/library/7c5fyk1k.aspx
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.