+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: Cargar múltiples archivos de texto en simultáneo (/thread-1001.html)
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:
Código:
Public Sub menuAbrir_Click()
Dialog.Title = "Seleccionar archivo"
Dialog.Filter = ["*.tex", ("Formato permitido")]
Dialog.Path = User.Home
If Dialog.OpenFile() Then
Return
Else
cadena = File.Load(Dialog.Path)
TextEditor.Text = cadena
Endif
FormEDITOR.Title = File.RealPath(Dialog.Path)
ruta = File.RealPath(Dialog.Path)
TerminalView1.Input("cd " & File.Dir(Dialog.Path) & "\n" & "clear" & "\n")
Catch
Message.Error("No se pudo abrir el archivo")
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)
Código:
cadena = File.Load(Dialog.Path)
TextEditor.Text = cadena
cadenaBIB = File.Load(File.BaseName(Dialog.Path)) & ".bib" 'cargo en otra variable el archivo bib
txtBIB.Text = cadenaBIBAlguien 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
Código:
[hr]
Te explico.
[code]sRuta= "/home/alberto/unarchivo.txt"
File.Dir(sRuta)= /home/alberto
File.BaseName(sRuta) = unarchivoRE: 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