Comunidad Gambas-es

Comunidad Gambas-es > Gambas > Aplicaciones/Fragmentos de Código > Cargar múltiples archivos de texto en simultáneo
Versión completa: Cargar múltiples archivos de texto en simultáneo
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.

alberto-moyano

28-08-2022, 20:03
Hola gente, estoy con un inconveniente, que de seguro la solución está en mis narices, pero no la veo.

Tengo un formulario con 4 TextEditor, donde debo cargar 4 archivos de texto diferentes, que tienen en común que se llaman igual y cambia la extensión (.tex, .bib, .sgl y .nts)

El código que utilizo para hacer la carga del 1 (el que manda) es:

GAMBAS
  1. Public Sub menuAbrir_Click()
  2.  
  3.   Dialog.Title = "Seleccionar archivo"
  4.   Dialog.Filter = ["*.tex", ("Formato permitido")]
  5.   Dialog.Path = User.Home
  6.   If Dialog.OpenFile() Then
  7.     Return
  8.   Else
  9.     cadena = File.Load(Dialog.Path)
  10.     TextEditor.Text = cadena
  12.   FormEDITOR.Title = File.RealPath(Dialog.Path)
  13.   ruta = File.RealPath(Dialog.Path)
  14.   TerminalView1.Input("cd " & File.Dir(Dialog.Path) & "\n" & "clear" & "\n")
  16.   Message.Error("No se pudo abrir el archivo")
  17.   TextEditor.SetFocus()



Lo que estoy haciendo acá es cargar el .tex en el primer TextEditor, poner la ruta y el nombre en la cabecera del formulario y aplicar la ruta a una consola.

Aplico los siguientes cambios (se nota que mi lógica es mala, porque no funciona)

GAMBAS
  1.     cadena = File.Load(Dialog.Path)
  2.     TextEditor.Text = cadena
  3.     cadenaBIB = File.Load(File.BaseName(Dialog.Path)) & ".bib" 'cargo en otra variable el archivo bib
  4.     txtBIB.Text = cadenaBIB



Alguien me puede mostrar que hago mal

Gracias de antemano

tincho

28-08-2022, 21:58
No entiendo, ¿cual es el problema exactamente?

alberto-moyano

28-08-2022, 21:58
Que raro, yo lo veo, adjunto captura

tincho

28-08-2022, 22:00
(28-08-2022, 21:58)alberto-moyano escribió: [ -> ]Que raro, yo lo veo, adjunto captura

si, ok en ete post se ve correctamente. en el otro post no se ve, pero no importa seguimos por aca

alberto-moyano

28-08-2022, 22:00
El problema en concreto es que no logro levantar los otros archivos en sus correspondientes textEdit.

Carga el primero y luego me sale un cartel que dice que no pudo cargar el archivo.

tincho

28-08-2022, 22:01
Tenes que poner esto
GAMBAS
  1. cadenaBIB = File.Load(File.Dir(Dialog.Path) &/ File.BaseName(Dialog.Path) & ".bib")  'cargo en otra variable el archivo bib


Te explico.
GAMBAS
  1. sRuta= "/home/alberto/unarchivo.txt"
  2. File.Dir(sRuta)= /home/alberto
  3. File.BaseName(sRuta) = unarchivo


alberto-moyano

28-08-2022, 22:16
Perfecto Tincho y entendí muy bien la lógica, gracias de nuevo
Comunidad Gambas-es > Gambas > Aplicaciones/Fragmentos de Código > Cargar múltiples archivos de texto en simultáneo