Le système Unicode stocke chaque caractère sur deux octets. Cela permet de prendre en compte un nombre plus important de caractères internationaux contrairement à la norme ANSI, utilisée par défaut, qui ne code que sur 8 bits, soit un octet. La méthode la plus simple pour déterminer le type de codage d’une chaîne, est de faire appel aux fonctions Len() et LenB(). La première indique le nombre de caractères contenus dans une chaîne, la seconde le nombre d’octets de la chaîne. Si les deux valeurs sont égales, vous avez affaire à un codage ANSI. Créez un nouveau projet exécutable et saisissez le code ci-après dans la page de code ouverte par la commande Affichage/Code. Lancez l’exécution par
Private Function IsUnicode(s As String) As Boolean
If Len(s) = LenB(s) Then
IsUnicode = False
Else
IsUnicode = True
End If
End Function
Private Sub Form_Click()
Dim s As String : s = “Bonjour”
Print IsUnicode(s)
End Sub
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.
