** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Codificación UTF-8
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCodificación UTF-8

 Responder Responder
Autor
Mensaje
OmniPresente Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Febrero/2009
Localización: España
Estado: Sin conexión
Puntos: 1830
Enlace directo a este mensaje Tema: Codificación UTF-8
    Enviado: 17/Julio/2017 a las 11:15
Saludos, compañeros/as:

Estoy generando un archivo CSV separado por comas mediante una instrucción Print (abriéndolo con Open "fichero.csv" for Output as #1). El fichero se genera correctamente y abriéndolo con el bloc de notas se ve perfecto.

El caso es que el cliente me pide que la codificación tiene que ser UTF-8, ya que cuando va a importarlo a su aplicación, los caracteres "raros" (eñes, acentos...) se le vuelven ilegibles. 

¿Sabéis de qué manera puedo hacer esto usando el Print?.

Gracias de antemano.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 9492
Enlace directo a este mensaje Enviado: 17/Julio/2017 a las 11:34
Prueba usando ADO (tienes que tener la librería referenciada).

Private Sub CmdCrearAux_Click()
Dim xDoc As Stream, Xs As String

    Set xDoc = New Stream
    Xs = "<?xml version='1.0' encoding='UTF-8'?>"
    Xs = Xs & "<Facturas>"
    Xs = Xs & "<id>0001</id>"
    Xs = Xs & "<cliente>Jesús Mansilla</cliente>"
    Xs = Xs & "</Facturas>"
    xDoc.Charset = "UTF-8"
    xDoc.Open
    xDoc.WriteText Xs
    xDoc.SaveToFile CurrentProject.Path & "\PruebaUTF8.xml", adSaveCreateOverWrite
    xDoc.Close
    Set xDoc = Nothing

End Sub

Esto es una prueba de un XML, pero vale para cualquier tipo.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
OmniPresente Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Febrero/2009
Localización: España
Estado: Sin conexión
Puntos: 1830
Enlace directo a este mensaje Enviado: 17/Julio/2017 a las 13:03
Muchas gracias, maestro. Al final lo he hecho utilizando el método TransferText en lugar de Print; ya que tiene el parámetro para decirle qué página de códigos quieres utilizar. Pero me parece muy interesante tu propuesta y seguramente la utilizaré en otra función que tengo a medias.

Gracias a todos; se puede cerrar el hilo.

Saludos.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable