[RESUELTO]Importar txt en Calc y asignarlo a variable string

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

[RESUELTO]Importar txt en Calc y asignarlo a variable string

Notapor JoePublic » Dom Sep 06, 2020 7:17 pm

Tema: Importar txt a Calc y asignar el contenido del archivo txt a una variable string.
Hola,
he estado revisando el foro un buen rato y he visto como importar un archivo txt que contiene una tabla de datos separada por tabuladores a una hoja de Calc en este enlace:
https://forum.openoffice.org/es/forum/viewtopic.php?f=50&t=13187&p=58477&hilit=abrir+archivo+txt#p58477

Tengo pocas nociones de OOo Basic y en mi caso, tengo un parrafo de texto guardado en un archivo.txt.
Me gustaria que la macro al importar el archivo.txt cogiera todo el texto por completo y lo almacenara en una variable del tipo String. (Es un archivo txt que contiene varios parrafos de texto).

No quiero importar linea a linea, y meterla en un array o matriz, sino al importar el texto del archivo, almacenarlo como una variable String, para después poder operar con ella, añadirle o reemplazar texto.

El macro que indique en el enlace de arriba, abre el archivo txt pero no se como asignar el contenido del archivo a una variable string.
Me gustaria usuar el lenguaje nativo de OOo Basic.
¿Alguien me puede ayudar?. Gracias.
Última edición por JoePublic el Sab Sep 12, 2020 8:09 pm, editado 1 vez en total
Usuario apasionado de las hojas de cálculo. Novato aprendiz de macros con OOo Basic y VBA.
LibreOffice Version: 6.4.3.2 (x64) y Sistema Operativo Windows 10 Home.
Avatar de Usuario
JoePublic
 
Mensajes: 11
Registrado: Dom Sep 06, 2020 5:34 pm

Re: Importar txt en Calc y asignarlo a variable string

Notapor FJCC-ES » Dom Sep 06, 2020 9:59 pm

Aquí está un código muy sencillo que abre un archivo .txt y guarda su texto en una variable.
Código: Seleccionar todo   Expandir vistaContraer vista
Dim Args(0) As New com.sun.star.beans.PropertyValue
sRuta = "c:\users\fjcc\Desktop\Dummy.txt"
sURL = convertToURL(sRuta)

Args(0).Name = "Hidden"
Args(0).Value = TRUE
oDocTexto = StarDesktop.loadComponentFromURL(sURL, 0, "_blank", Args())
sElTexto = oDocTexto.Text.String
print(sElTexto)
oDocTexto.close(TRUE)
FJCC-ES
 
Mensajes: 742
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

Re: [RESUELTO] Importar txt en Calc y asignarlo variable str

Notapor JoePublic » Sab Sep 12, 2020 8:00 pm

Hola, FJCC-ES
Mil Gracias !!
La variable string 'sElTexto' almacena todo el texto.
Funciona a la perfección. Es Genial !!!
Usuario apasionado de las hojas de cálculo. Novato aprendiz de macros con OOo Basic y VBA.
LibreOffice Version: 6.4.3.2 (x64) y Sistema Operativo Windows 10 Home.
Avatar de Usuario
JoePublic
 
Mensajes: 11
Registrado: Dom Sep 06, 2020 5:34 pm


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado