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

Tema cerradoCodificación XFDF (XML)

 Responder Responder
Autor
Mensaje
cacique Ver desplegable
Habitual
Habitual


Unido: 05/Agosto/2006
Localización: Alcorcón
Estado: Sin conexión
Puntos: 61
Enlace directo a este mensaje Tema: Codificación XFDF (XML)
    Enviado: 23/Junio/2017 a las 20:03
Hola,

Estoy intentando exportar a un PDF editable los datos de un formulario. He utilizado el ejemplo de theDBguy y me funciona bien.

Pero cuando unos de los campos lleva una tilde... falla y salta el siguiente error:

"Error al analizar XML: formato incorrecto (distintivo no válido) (código de error 4)..."

He comprobado que el fichero XFDF que se genera tiene codificación ANSI. Cuando cambio con el Notepad la codificación a UTF-8, se abre en PDF sin problemas y con las tildes.

¿Cómo generar el fichero XFDF desde VBA pero directamente con codificación UTF-8?

Gracias de antemano por vuestra ayuda.




Editado por cacique - 23/Junio/2017 a las 20:07
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton Jail
Estado: Sin conexión
Puntos: 3595
Enlace directo a este mensaje Enviado: 23/Junio/2017 a las 20:13
¿Tienes la línea  "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"?

Luis
Hay un culto a la ignorancia y siempre lo ha habido y es alimentado por la falsa noción de que democracia significa que "mi ignorancia es tan buena como su conocimiento". (Isaac Asimov)
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton Jail
Estado: Sin conexión
Puntos: 3595
Enlace directo a este mensaje Enviado: 23/Junio/2017 a las 20:19
O mejor algo así

Cambia C:\Temp\MiFichero.txt por el fichero que hayas generado, esto debería funcionar.

Sub xx()
Set strFichero = CreateObject("ADODB.Stream")
strFichero.Open
strFichero.Type = 2 'texto
strFichero.Charset = "utf-8"
strFichero.LoadFromFile "C:\Temp\MiFichero.txt"
text = strFichero.ReadText
strFichero.Close

Set fso = CreateObject("Scripting.FileSystemObject")
Set fSalida = fso.OpenTextFile("C:\Temp\MiFicheroNuevo.txt", 2, True, True)
fSalida.Write text
fSalida.Close
End sub


Hay un culto a la ignorancia y siempre lo ha habido y es alimentado por la falsa noción de que democracia significa que "mi ignorancia es tan buena como su conocimiento". (Isaac Asimov)
Arriba
cpampasPT Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 20/Marzo/2010
Localización: Portugal
Estado: Sin conexión
Puntos: 537
Enlace directo a este mensaje Enviado: 23/Junio/2017 a las 21:32
Le pregunte algo parecido a theDBGuy, quien me contesto :

http://www.utteraccess.com/forum/index.php?showtopic=2044341&hl=
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton Jail
Estado: Sin conexión
Puntos: 3595
Enlace directo a este mensaje Enviado: 26/Junio/2017 a las 22:40
Por error se cerró este hilo antes de la respuesta final del usuario cacique.

Me ha enviado un privado indicándome que la primera respuesta le ha resultado válida.

Agradecer a los participantes así como a cacique por ayudarnos con la solución.

Un saludo.

Luis
Hay un culto a la ignorancia y siempre lo ha habido y es alimentado por la falsa noción de que democracia significa que "mi ignorancia es tan buena como su conocimiento". (Isaac Asimov)
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable