Convertir un mot en unicode (n'acceptant pas les caractères accentués) en un string (avec les accents)

Commenter

Contenu du snippet

Salut,
C'est mon premier code et je l'ai fait car j'ai tant recherché ce genre de code sans résultat. Certains diront qu'il est baclé, bin ils ont raison et je les invite à l'améliorer. J'ai juste mis mon code afin que dans l'avenir les bonshommes qui recherchent un code pour convertir des caractères codifiés de cette sorte ("é") en un "é" simple trouveront mon code pour le recopier dans leur projet et même l'améliorer.
Ciao
Forza Taraji!!

Source / Exemple : 


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 "&#233;"
                        cht = cht & "é"
                    Case "&#232;"
                        cht = cht & "è"
                    Case "&#231;"
                        cht = cht & "ç"
                    Case "&#226;"
                        cht = cht & "â"
                    Case "&#224;"
                        cht = cht & "à"
                    Case "&#234;"
                        cht = cht & "ê"
                    Case "&#238;"
                        cht = cht & "î"
                    Case "&#239;"
                        cht = cht & "ï"
                    Case "&#244;"
                        cht = cht & "ô"
                    Case "&#249;"
                        cht = cht & "ù"
                    Case "&#251;"
                        cht = cht & "û"
                    Case "&#245;"
                        cht = cht & "õ"
                    Case "&#235;"
                        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

Conclusion :


J'espère avoir aidé la communauté (de l'anneau).
Forza Taraji!!

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.