Comunidad Gambas-es
Cargar múltiples archivos de texto en simultáneo - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forumdisplay.php?fid=3)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forumdisplay.php?fid=8)
+--- Tema: Cargar múltiples archivos de texto en simultáneo (/showthread.php?tid=1001)



Cargar múltiples archivos de texto en simultáneo - alberto-moyano - 28-08-2022

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
  11.   FormEDITOR.Title = File.RealPath(Dialog.Path)
  12.   ruta = File.RealPath(Dialog.Path)
  13.   TerminalView1.Input("cd " & File.Dir(Dialog.Path) & "\n" & "clear" & "\n")
  14.   Message.Error("No se pudo abrir el archivo")
  15.   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


RE: Cargar múltiples archivos de texto en simultáneo - tincho - 28-08-2022

No entiendo, ¿cual es el problema exactamente?


RE: Cargar múltiples archivos de texto en simultáneo - alberto-moyano - 28-08-2022

Que raro, yo lo veo, adjunto captura


RE: Cargar múltiples archivos de texto en simultáneo - tincho - 28-08-2022

(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


RE: Cargar múltiples archivos de texto en simultáneo - alberto-moyano - 28-08-2022

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.


RE: Cargar múltiples archivos de texto en simultáneo - tincho - 28-08-2022

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





RE: Cargar múltiples archivos de texto en simultáneo - alberto-moyano - 28-08-2022

Perfecto Tincho y entendí muy bien la lógica, gracias de nuevo