Página 1 de 1

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

Publicado: Dom Sep 06, 2020 7:17 pm
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.

Re: Importar txt en Calc y asignarlo a variable string

Publicado: Dom Sep 06, 2020 9:59 pm
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)

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

Publicado: Sab Sep 12, 2020 8:00 pm
por JoePublic
Hola, FJCC-ES
Mil Gracias !!
La variable string 'sElTexto' almacena todo el texto.
Funciona a la perfección. Es Genial !!!