Foro - Perl en Español

por **zackarias** » 2011-09-28 12:27 @560

Hola:
Este es mi entorno gráfico del programa:
Imagen

Funciona de la siguiente forma:

El usuario abre un archivo gbk,y al presionar el botón se genera el resultado que se visualiza en el TextView, eso lo tengo ya realizado. Al apretar el botón guardar se abre la siguiente ventana.
Imagen

Mi problema es que no sé cómo puedo guardar los datos que se muestran en el TextView al presionar el botón guardar.

Si me pueden dar una idea sería de mucha ayuda.

El resultado de la caja de diálogo del selector de ficheros es el nombre (y, a veces, ruta) del fichero en donde el usuario quiere guardar el resultado.

Lo que te queda por hacer es abrir ese fichero en modo escritura (con open()) y escribir en él el contenido que quieras.

Si el contenido es lo que contiene el TextView, pues sí, debes sacarlo antes.

Lo que no sabemos es qué entorno gráfico estás usando. ¿Gtk, Qt, Tk, Prima...?

por **zackarias** » 2011-09-28 13:05 @586

Gracias, explorer, por responder.

Estoy trabajando con Glade3 + gtk

Mira, este es mi script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use Gtk2 '-init';
use Gtk2::GladeXML;
use Bio::SeqIO;
 
# Variables
my ( $programa, $ventana_principal, $seleccion_archivo );
my ( $guardar_archivo, $archivo_seleccionadon, $ventana_texto, $crear_archivo );
our ( $archivo_seleccionado, $buffer, $contenido, $ruta_seleccionada );
$programa = Gtk2::GladeXML->new('interfaz.glade');
 
# Widgets
$ventana_principal = $programa->get_widget('ventana_principal');
$seleccion_archivo = $programa->get_widget('seleccion_archivo');
$guardar_archivo   = $programa->get_widget('guardar_archivo');
$ventana_texto     = $programa->get_widget('ventana_texto');
$crear_archivo     = $programa->get_widget('crear_archivo');
$programa->signal_autoconnect_from_package('main');
$ventana_principal->show_all();
 
Gtk2->main;
 
# función para salir
sub boton_cerrar_clicked_cb { Gtk2->main_quit; }
sub boton_salir_activate_cb { Gtk2->main_quit; }
sub guardar_clicked_cb      { $guardar_archivo->show_all(); }
sub cancelar_clicked_cb     { $guardar_archivo->hide; }
 
# función para el botón de selección de archivo
sub seleccion_archivo_file_set_cb {
 
    #entrega la direccion del archivo que se va abrir
    $archivo_seleccionado = $seleccion_archivo->get_filename;
}
 
#funcion del botón para guardar el archivo
sub crear_archivo_clicked_cb {
    $ruta_seleccionada = $crear_archivo->get_filename;
}
 
# extrae el origen de replicación de un archivo GenBank y lo deja en forma de archivo FASTA
sub aplicar_clicked_cb {
 
    #aquí va mi programa en bioperl
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Al tratar de usar get_filename() para obtener la ruta donde guardar, como lo hice para abrir el archivo me dice el siguiente error

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

***   Can't locate object method "get_filename" via package "Gtk2::Button" at programa.pl line 38.
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo que necesito es saber la ruta, para crear el archivo con el nombre que le puso el usuario y guardarlo en esa ruta.

por **explorer** » 2011-09-29 09:04 @419

El método get_filename() solo se puede aplicar a un objeto GtkFileChooserDialog, y el error dice que lo estás aplicando al botón (Gtk2::Button) 'seleccion_archivo'.

Aquí (7.1. Vistas de texto - Creando un lector de archivos) tienes un ejemplo casi idéntico a lo que quieres hacer.

Observa que el botón dispara el evento, y dentro de él, se accede a un objeto GtkFileChooserDialog, definido antes, en el Glade.

Actualización:

Fichero glade_selector_ficheros.glade (generado por glade-3, en modo libglade):

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0"?>
<glade-interface>
  <!-- interface-requires gtk+ 2.20 -->
  <!-- interface-naming-policy project-wide -->
  <widget class="GtkDialog" id="ventana_principal">
    <property name="border_width">5</property>
    <property name="default_width">640</property>
    <property name="default_height">400</property>
    <property name="type_hint">normal</property>
    <property name="gravity">center</property>
    <signal name="destroy" handler="on_ventana_principal_destroy"/>
    <child internal-child="vbox">
      <widget class="GtkVBox" id="dialog-vbox1">
        <property name="visible">True</property>
        <property name="orientation">vertical</property>
        <property name="spacing">2</property>
        <child>
          <widget class="GtkLabel" id="label1">
            <property name="visible">True</property>
            <property name="xalign">0</property>
            <property name="xpad">10</property>
            <property name="ypad">3</property>
            <property name="label">Lector de ficheros</property>
            <property name="use_markup">True</property>
            <property name="single_line_mode">True</property>
          </widget>
          <packing>
            <property name="expand">False</property>
            <property name="fill">False</property>
            <property name="position">1</property>
          </packing>
        </child>
        <child>
          <widget class="GtkScrolledWindow" id="scrolledwindow1">
            <property name="visible">True</property>
            <property name="can_focus">True</property>
            <property name="hscrollbar_policy">automatic</property>
            <property name="vscrollbar_policy">automatic</property>
            <child>
              <widget class="GtkTextView" id="caja_texto">
                <property name="visible">True</property>
                <property name="can_focus">True</property>
                <property name="text" translatable="yes">
 
 
 
    Elija un fichero...</property>
              </widget>
            </child>
          </widget>
          <packing>
            <property name="position">1</property>
          </packing>
        </child>
        <child internal-child="action_area">
          <widget class="GtkHButtonBox" id="dialog-action_area1">
            <property name="visible">True</property>
            <property name="layout_style">edge</property>
            <child>
              <widget class="GtkFileChooserButton" id="boton_ventana_selector_ficheros">
                <property name="visible">True</property>
                <signal name="file_set" handler="on_boton_ventana_selector_ficheros_file_set"/>
              </widget>
              <packing>
                <property name="expand">False</property>
                <property name="fill">False</property>
                <property name="position">0</property>
              </packing>
            </child>
            <child>
              <widget class="GtkButton" id="boton_salir">
                <property name="label">gtk-quit</property>
                <property name="visible">True</property>
                <property name="can_focus">True</property>
                <property name="receives_default">True</property>
                <property name="use_action_appearance">False</property>
                <property name="use_underline">True</property>
                <property name="use_stock">True</property>
                <signal name="clicked" handler="on_ventana_principal_destroy"/>
              </widget>
              <packing>
                <property name="expand">False</property>
                <property name="fill">False</property>
                <property name="position">1</property>
              </packing>
            </child>
          </widget>
          <packing>
            <property name="expand">False</property>
            <property name="pack_type">end</property>
            <property name="position">0</property>
          </packing>
        </child>
      </widget>
    </child>
  </widget>
</glade-interface>
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Programa Perl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#
# Ejemplo de uso del Glade + Gtk2
# Selector de ficheros y caja de texto
#
 
use strict;
use File::Slurp;
use Gtk2 '-init';
use Gtk2::GladeXML;
 
# Leer el fichero Glade
my $programa = Gtk2::GladeXML->new('glade_selector_ficheros.glade');
$programa->signal_autoconnect_from_package('main');
 
# Mostramos la ventana principal
my $ventana_principal = $programa->get_widget('ventana_principal');
$ventana_principal->show_all();
 
# Inicio del bucle
Gtk2->main;
 
# Abrir el selector de ficheros
sub on_boton_ventana_selector_ficheros_file_set {
    my $boton_ventana_selector_ficheros = $programa->get_widget('boton_ventana_selector_ficheros');
 
    my $fichero = $boton_ventana_selector_ficheros->get_filename;
 
    print "[$fichero]\n";
    if (-e $fichero) {                                        # Si existe el fichero
        my $buffer = read_file($fichero);                     # Lo leemos
        my $caja_texto = $programa->get_widget('caja_texto'); # Accedemos a la caja de texto
        my $buffer_texto = Gtk2::TextBuffer->new;             # Creamos un buffer de texto
        $buffer_texto->insert_at_cursor($buffer);             # Le metemos el texto del fichero
        $caja_texto->set_buffer($buffer_texto);               # Asignamos a la caja el buffer de texto
    }
}
 
# Cerramos la aplicación
sub on_ventana_principal_destroy {
    Gtk2->main_quit;
    print "Saliendo\n";
}
 
__END__
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Obtener datos de un textview

Obtener datos de un textview

Publicidad

Re: Obtener datos de un textview

Re: Obtener datos de un textview

Re: Obtener datos de un textview

¿Quién está conectado?