[alberto-moyano]

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

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)

GAMBAS

    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 = cadenaBIB

Alguien me puede mostrar que hago mal

Gracias de antemano

[tincho]

No entiendo, ¿cual es el problema exactamente?

[alberto-moyano]

Que raro, yo lo veo, adjunto captura

[tincho]

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]

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]

Tenes que poner esto

GAMBAS

cadenaBIB = File.Load(File.Dir(Dialog.Path) &/ File.BaseName(Dialog.Path) & ".bib")  'cargo en otra variable el archivo bib

---

Te explico.

GAMBAS

sRuta= "/home/alberto/unarchivo.txt"
File.Dir(sRuta)= /home/alberto
File.BaseName(sRuta) = unarchivo

[alberto-moyano]

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