Visual Basic - Crear Fichero UTF-8

Life is soft - evento anual de software empresarial

Crear Fichero UTF-8

Publicado por Pakito (2 intervenciones) el 04/07/2008 13:36:35

Buenas!

Necesito crear un fichero, pero necesito que tenga el juego de caraceteres UTF-8

Sabeis alguna solucion de como hacerlo?

Pd: En Visual Basic

Gracias!!

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:Crear Fichero UTF-8

Publicado por Pakito (2 intervenciones) el 07/07/2008 08:48:21

nadie?? Unicode(UTF-8)??? Si no se puede por lo menos quiero saber eso..

Gracias!

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

RE:Crear Fichero UTF-8

Publicado por igor (633 intervenciones) el 07/07/2008 21:05:21

Ala pesao, mira la función strconv.

Valora esta respuesta

Comentar

RE:Crear Fichero UTF-8

Publicado por [email protected] (69 intervenciones) el 28/10/2008 21:46:14

Solucionasteis el asunto, si es asi me gustaria saber como, ya que ando en el mismo problema, por lo que cometnaba igor he mirado la ayuda de StrConv (Función) pero no veo la opcion UFT-8 aparecen uinicode, etc, ademas no todas las opcones son unables ya que me dan error.

Valora esta respuesta

Comentar

RE:Crear Fichero UTF-8

Publicado por ifornes46870 (2 intervenciones) el 15/03/2016 13:40:25

Gracias por la ayuda igor, pero me imagino el compañero se refiere a convertir el contenido, y la que tu ofreces se refiere sólo a la cadena...

Valora esta respuesta

Comentar

Pos: 190

Val: 8

RE:Crear Fichero UTF-8

Publicado por Wilfredo Patricio Castillo (260 intervenciones) el 15/03/2016 22:42:09

Private Sub guardarTexto()

    Dim fic As String = "E:\MiCarpeta\Pruebas.txt"

    Dim texto As String = "Érase una vez una vieja con un moño..."

    Dim sw As New System.IO.StreamWriter(fic, False, System.Text.Encoding.UTF8)

    sw.WriteLine(texto)

    sw.Close()

End Sub

Créditos:
Guillermo Som Elguille.
http://elguille.info/

Valora esta respuesta

Comentar

RE:Crear Fichero UTF-8

Publicado por ifornes46870 (2 intervenciones) el 16/03/2016 09:20:11

Se agradece toda toda la ayuda, pero al final no ha funcionado, el desarrollador de excel de vb6 no acepta el StreamWriter.
Visto que no puedo crear un txt con codificación utf, ¿alguna idea para una vez creado y volcada toda la información necesaria, sea posible transformarlo a codificación utf8?

Valora esta respuesta

Comentar

Pos: 508

Val: 2

Crear Fichero UTF-8

Publicado por Beni (1 intervención) el 13/12/2017 12:29:58

El hilo es antiguo, pero espero ayude a otras personas que, como yo, fueron a parar a este hilo buscando una solución
Encontré por internet el siguiente código para vba:

Dim fsT As Object

Set fsT = CreateObject("ADODB.Stream")

fsT.Type = 2 'Specify stream type - we want To save text/string data.

fsT.Charset = "utf-8" 'Specify charset For the source text data.

fsT.Open 'Open the stream And write binary data To the object

fsT.WriteText "special characters: äöüß"

fsT.SaveToFile sFileName, 2 'Save binary data To disk

Este código me funcionó correctamente. En mi caso abría el fichero usando

AbrirFichero = FreeFile

Open Me.Fichero For Output As #AbrirFichero

Para no tener que cambiar nada en el código, simplemente incrusté el código que adjunté al principio, sin añadir texto:

fsT.WriteText ""

Y luego abrí el fichero ya creado usando 'Append' en vez de 'Output'

AbrirFichero = FreeFile

Open Me.Fichero For Append As #AbrirFichero

Esto seguramente se adapté a cualquier sistema que estuvierais utilizando antes. Creais el fichero en UTF-8 y luego continuais con vuestro código

Valora esta respuesta

Comentar

Visual Basic 6 y MySQL

ComboBox