Quitar dobles comillas innecesarias de una exportación de texto (solucionado)

Dudas sobre código
zlagos
Nivel 3
Mensajes: 79
Registrado: Mar Nov 01, 2016 12:14 pm

Quitar dobles comillas innecesarias de una exportación de texto (solucionado)

Mensajepor zlagos » Sab Ago 04, 2018 2:47 pm

Hola, hacía mucho que no venía por aquí... buenas a todos...

Tengo un problemilla con una exportación de una tabla, utilizo el siguiente codigo de vba al pulsar un botón:

Código: Seleccionar todo

Private Sub Exportar_Click()
Dim rst As DAO.Recordset
Dim Archivo As String
Archivo = "E:\arcade\attract\romlists\MMClasicas1.txt"
Set rst = CurrentDb.OpenRecordset("MMClasicas")
Open Archivo For Output As #1
While Not rst.EOF
Write #1, rst![Name] & ";" & rst![Title] & ";" & rst![Emulator] & ";" & rst![CloneOf] & ";" & rst![Year] & ";" & rst![Manufacturer] & ";" & rst![Category] & ";" & rst![Players] & ";" & rst![Rotation] & ";" & rst![Control] & ";" & rst![Status] & ";" & rst![DisplayCount] & ";" & rst![DisplayType] & ";" & rst![AltRomname] & ";" & rst![AltTitle] & ";" & rst![Extra] & ";" & rst![Buttons]
rst.MoveNext
Wend
Close #1
rst.Close: Set rst = Nothing
MsgBox "El archivo " & Archivo & " ha sido creado con éxito.", vbInformation, "Creación de Romlist"
End Sub


Y en el archivo exportado MMClasicas1.txt me ha generado el siguiente contenido:

Código: Seleccionar todo

"Sega ST-V;Sega ST-V;@;;1994;MAME;;360;;33;;;;;;;"
"gaelco;gaelco;@;;1990;MAME;;300;;14;;;;;;;"
"Namco System 22;Namco System 22;@;;1992;MAME;;330;;11;;;;;;;"
"Banpresto;Banpresto;@;;1991;MAME;;320;;20;;;;;;;"
"Capcom 68000;Capcom 68000;@;;1987;MAME;;270;;6;;;;;


Cosa que está casi bien, sólo que lo necesito sin esas dobles comillas (") de inicio y final de cada línea

¿Alguno sabría cómo eliminar esas dobles comillas innecesarias?

Edito: Se me olvidaba algo muy importante, quisiera que se guardara el archivo como UTF-8 sin BOM. Ahora se guarda como ANSI.
Última edición por zlagos el Sab Ago 04, 2018 7:29 pm, editado 1 vez en total.

Avatar de Usuario
Neckkito
Moderador
Mensajes: 783
Registrado: Dom Oct 25, 2015 3:42 pm

Re: Quitar dobles comillas innecesarias de una exportación de texto

Mensajepor Neckkito » Sab Ago 04, 2018 3:29 pm

Hola!

La sistemática que estás utilizando para escribir el archivo está basada en una en la que, usualmente, se escribía en un archivo "write" para poder ser procesado después por una lectura de ese mismo archivo "input", que necesita el texto entrecomillado.

La solución a lo que pides es tan sencillo como cambiar el "write" por "print".

Te recomiendo esta página si vas a trabajar con FreeFile: https://goo.gl/91PS3t

Saludos.
Access MVP 2017-2019
http://bit.ly/NckAccess

zlagos
Nivel 3
Mensajes: 79
Registrado: Mar Nov 01, 2016 12:14 pm

Re: Quitar dobles comillas innecesarias de una exportación de texto

Mensajepor zlagos » Sab Ago 04, 2018 7:22 pm

Muchas gracias, solucionado, con Print no escribe las comillas...

Pero ahora sigo con el problema de salvar el fichero como UTF-8, porque me lo sigue salvando en ANSI.

Cuando haces una exportación con los menús, hay una opción avanzada que te permite elegir UTF-8, pero desde VBA no sé cómo hacerlo.

Mejor abro otro hilo, es una cosa diferente...


zlagos
Nivel 3
Mensajes: 79
Registrado: Mar Nov 01, 2016 12:14 pm

Re: Quitar dobles comillas innecesarias de una exportación de texto (solucionado)

Mensajepor zlagos » Sab Ago 04, 2018 7:41 pm

Gracias Fayad, pero mis conocimientos de vba de access no dan de sí lo suficiente como para, leyendo ese código que me facilitas, solucionar mi problema.


Volver a “Código VBA”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados