[Resuelto] Exportar a .TXT - Simple Text (texto sin formato)

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

[Resuelto] Exportar a .TXT - Simple Text (texto sin formato)

Notapor Chumpocomon » Vie Oct 02, 2009 1:41 pm

Hola buenas,

A la hora de exportar archivos no he tenido problemas con ningún tipo, exceptuando texto sin formato. La macro que realice me exporta y pone la extensión .txt

Código: Seleccionar todo   Expandir vistaContraer vista
Sub ExportarTXT()
   'Variables
   Dim mOpciones(0) As New "com.sun.star.beans.PropertyValue"
   Dim oDoc As Object

   'Creamos un nuevo documento de Write
   oDoc = StarDesktop.loadComponentFromURL( "private:factory/swriter", "_blank", 0, mOpciones())

   'Exportamos como txt
   oDoc.storeToURL(ConvertToURL(sRuta)+"lista.txt", mOpciones())
End Sub


Sin embargo, No funciona :cry:

Al abrirlo como texto sin formato se puede observar que no lo es. El supuesto txt aparece con montones de caracteres raros, propios de que sigue codificado en formato Write (lo comprobé con un Bloc de notas).
Al hacerlo de manera manual, en vez de con macros, el archivo queda perfectamente en texto sin formato.
No se si es un fallo, pero ¿le ocurre a alguno de ustedes?

Disfruten de su fin de semana.
Gracias.
Última edición por Chumpocomon el Lun Oct 05, 2009 11:11 am, editado 2 veces en total
OOo 3.1
Chumpocomon
 
Mensajes: 5
Registrado: Jue Oct 01, 2009 2:29 pm

Re: Exportar a .TXT - Simple Text (texto sin formato)

Notapor mauricio » Vie Oct 02, 2009 9:17 pm

Hola...

Tienes que indicarle que formato para guardar, en este caso TXT

Código: Seleccionar todo   Expandir vistaContraer vista
Sub Main
Dim oDoc As Object
Dim sNombre As String
Dim mOpciones(1) As New com.sun.star.beans.PropertyValue

   'Creamos un nuevo documento de Write
   oDoc = StarDesktop.loadComponentFromURL( "private:factory/swriter", "_blank", 0, mOpciones())

   sNombre = ConvertToURL("/home/mau/prueba.txt")

  mOpciones(0).Name = "URL"
  mOpciones(0).Value = sNombre
  mOpciones(1).Name = "FilterName"
  mOpciones(1).Value = "Text"

   'Exportamos como txt
   oDoc.storeAsURL(sNombre, mOpciones())

End Sub


Saludos

Mauricio
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5870
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX

Re: [Resuelto] Exportar a .TXT - Simple Text (texto sin formato)

Notapor Chumpocomon » Lun Oct 05, 2009 11:13 am

Mauricio gracias, ya está solucionado.

Saludos.
OOo 3.1
Chumpocomon
 
Mensajes: 5
Registrado: Jue Oct 01, 2009 2:29 pm


Volver a Macros y API UNO

¿Quién está conectado?

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