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 "é"
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
Conclusion :
J'espère avoir aidé la communauté (de l'anneau).
Forza Taraji!!
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.