Cómo convertir Unicode a ANSI Vb

Visual Basic almacena toda la información de texto de forma predeterminada con el conjunto de caracteres Unicode. Esto le permite almacenar los caracteres de los idiomas más conocidos ( incluyendo incluso algunos idiomas compuestas como Klingon ) fiable y precisa. Unicode se desarrolló para resolver la maraña de páginas de códigos que se utilizan para representar las lenguas del mundo en ANSI . Sin embargo , algunos programas y sistemas heredados esperan que sus datos se formatean según ANSI , por lo que Visual Basic proporciona las herramientas para hacer esto. Instrucciones
1

Abra Visual Basic y cree un proyecto nuevo . Seleccione " Aplicación de consola. "
2

Pega el siguiente para almacenar algunos datos de texto en Unicode :

String s = " . . Hola Esta es una cadena Unicode con codificación "

3

Pega el siguiente para conseguir un código ANSI Página:

Dim DefaultCodePage = Encoding.Default

winLatinCodePage Dim = Encoding.GetEncoding ( 1252 )

el primero le da la página de códigos predeterminada del sistema operativo que se utiliza actualmente. Así , en un equipo japonés , recuperará la página de códigos japonesa defecto. La segunda página recupera el código " 1252 ", que es la página de códigos de Windows para el alfabeto latino ( Inglés ) . Puede ver una lista completa de números de página de códigos compatibles en la primera referencia
4

Pega el siguiente para convertir la cadena en la nueva codificación : .

Bytes Dim As Byte () = Encoding.Convert ( Encoding.UTF8 , winLatinCodePage , s )

Ahora la cadena s definido en el paso 2 se ha convertido en una matriz de bytes que contiene los equivalentes de ANSI ( tan cerca como era posible ) de acuerdo con la ANSI página de códigos de Windows latín.