Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ISO88591 As System.Text.Encoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
Dim str As String = "áéíóú@Æ cajón afecto"
Dim isoBytes() As Byte = ISO88591.GetBytes(str)
Dim x As String = ISO88591.GetString(isoBytes)
Dim p As String = ""
x = ISO88591.GetString(isoBytes, 0, isoBytes.Length)
End Sub
fuente
No hay comentarios.:
Publicar un comentario