Menu Principal

• Astuces
• Programmation
• Évaluations
• Actualités
• Forum

En bref...

Besoin d'un dépannage pour votre matériel informatique ? Venez chercher l'assistance nécessaire sur notre forum et profitez des conseils que vous recevrez afin d'améliorer la maintenance de votre PC. Venez expliquer votre dernier problème concernant la sécurité de votre système. Vous y trouverez sans doute l'assistance nécessaire très rapidement.

	Entrez les termes que vous recherchez. Envoyer un formulaire de recherche
	Web www.informatique911.com

UTF8: Encode & Decode en VB.Net

Par: Anonyme - 0 commentaire

Voici une classe qui saura être pratique pour tous les développeurs en VB.Net devant manipuler des textes en UTF8. Le code suivant est à insérer en tant que nouvelle classe et servira à coder et décoder une chaîne de texte.

Imports System.Text Public Class UTF8obj Public Function DecodeUTF8(ByVal strUTFString As String) As String Dim strByte() As Byte = StringToByteArray(strUTFString) Dim chrChars() As Char Dim rValue As String = String.Empty chrChars = Encoding.UTF8.GetChars(strByte) For i As Integer = 0 To UBound(chrChars) rValue += chrChars(i) Next Return rValue End Function Public Function EncodeUTF8(ByVal strString) As String Dim bytBuffer() As Byte Dim rValue As String = String.Empty bytBuffer = Encoding.UTF8.GetBytes(strString) For i As Integer = 0 To UBound(bytBuffer) rValue += Chr(bytBuffer(i)) Next Return rValue End Function Private Function StringToByteArray(ByVal strString As String) As Byte() Dim bytBuffer() As Byte ReDim bytBuffer(Len(strString) - 1) For i As Integer = 0 To UBound(bytBuffer) bytBuffer(i) = CByte(Asc(Mid(strString, i + 1, 1))) Next Return bytBuffer End Function End Class

Afin d'utiliser les fonctions UTF8 (Encode et Decode), vous n'avez qu'à suivre l'exemple suivant:

Dim UTF8decoder As New UTF8obj Dim strUTF8 As String = String.Empty strUTF8 = UTF8decoder.DecodeUTF8("Texte à décoder...")

---

Questions et commentaires: