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

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
Avatar de Usuario
JoePublic
Mensajes: 36
Registrado: Dom Sep 06, 2020 5:34 pm

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

Mensaje por JoePublic »

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/v ... 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.
FJCC-ES
Mensajes: 873
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

Re: Importar txt en Calc y asignarlo a variable string

Mensaje por FJCC-ES »

Aquí está un código muy sencillo que abre un archivo .txt y guarda su texto en una variable.

Código: Seleccionar todo

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)
Avatar de Usuario
JoePublic
Mensajes: 36
Registrado: Dom Sep 06, 2020 5:34 pm

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

Mensaje por JoePublic »

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.
Responder