liste déroulante et affichage

**PadawanInPerl** · 24/01/2013, 14h48

Bonjour,

J'arrive pas à passer au-dessus de ce problème :
j'ai un tableau dans un sub qui renvoit @champs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
while ( my $line = <IN> ) {
  if ( $line =~ /^Edition\tPublication/ ) {
    @champs = split (/\t/, $line);
    }
} 
}

ici je récupère du sub @champs pour avoir une liste des élèments.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
# AFFICHE LES CHAMPS DU FICHIER
$fenetre_principale->BrowseEntry(
  -label => \$champs[0],
  -choices => [\@champs],
  -variable => \$mon_choix,
)->pack(qw/ -side left/);

Mon problème est que j'ai tous les élèments les uns à côté des autres et non pas les uns en dessous des autres... et ainsi sélectionner celui dont j'ai besoin...

voilà, si qq un pouvait m'aider...ça serait cool

**djibril** · 24/01/2013, 15h53

-choices => \@champs,

**PadawanInPerl** · 24/01/2013, 15h58

J'avais essayé et refais maintenant mais ça me rend une liste vide...

**djibril** · 24/01/2013, 16h26

Faut le programme complet car là, on ne sait pas comment tu t'y prends.
si au moment de la cration du widget le tableau est vide, c normal

**PadawanInPerl** · 24/01/2013, 16h39

Voilà la bête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
 
#!/usr/local/bin/perl
 
use strict;
use warnings;
use Tk;
use Tk::BrowseEntry;
use Tk::DirTree;
use Spreadsheet::WriteExcel;
 
my $fenetre_principale = MainWindow->new(-title=>'Journaux d\'inventaire', -background => '#4A44F7',);
$fenetre_principale->geometry("1000x600+60+30");
 
my ($mon_choix, $retour, $nd, $repertoire, $resume, $elem, $line, $select, $champs, $lst_f, $listeRepertoire);
my (@files, @allfiles, @select, @champs);
my ($choixUn, $choixDeux);
# DEFINITION DES CADRES-BOX
$lst_f = $fenetre_principale->Scrolled(
  "Listbox",
  -scrollbars => 'e',
  -background => 'white',
  -foreground =>"black",
)->place( -x => 410, -y => 30, -width => 350, -height => 300, );
 
$lst_f->bind( "<Button-1>", \&Colonnes );
 
$listeRepertoire  = $fenetre_principale->Scrolled('DirTree',-scrollbars =>'e',-directory=>"C:/Users/xxx/Desktop/",
    -command=>\&repertoire)->place( -x => 30, -y => 30, -width => 350, -height => 300, );
$listeRepertoire->configure(-background =>"lightblue", -foreground =>"#CC0063", -showhidden=>1) ;
$listeRepertoire->Subwidget("yscrollbar")->configure(-background => "lightgreen",-troughcolor => "blue") ;
 
# AFFICHE LES CHAMPS DU FICHIER
$fenetre_principale->BrowseEntry(
  -label => 'champsUn',
  -choices=> \@champs,
  -variable => \$choixUn,
)->pack(qw/ -side left/);
 
$fenetre_principale->BrowseEntry(
  -label => 'champsDeux',
  -choices=> \@champs,
  -variable => \$choixDeux,
)->pack(qw/ -side left/);
 
sub Colonnes {
  my @select = $lst_f->curselection();
  my $elem = $lst_f -> get( $select[0] );
 
  open IN, "<$elem" or die "$!";
 
  while ( my $line = <IN> ) {
    if ( $line =~ /^Edition\tPublication/ ) {
      @champs = split (/\t/, $line);
      }
  } # while
} # sub
 
# bouton action
my $BoutonGO = $fenetre_principale->Button(
  -text    => "Générer le fichier",
  -command => [\&go, \$mon_choix],   # code pas à jour...
)->pack(qw/ -side left/); # -padx 100 -pady 450
 
 
sub repertoire {
  my $nd=shift;
  chdir $nd;
  $repertoire=$nd;
  @files=() ;
  $lst_f->delete(0,'end') ;
  my @allfiles=() ;
  opendir DH,$nd ;
  @allfiles=readdir DH ;
  closedir DH ;
  foreach (@allfiles){
    if(-f $_ && $_ =~ /\.utx/){
      push(@files,$_) ;
      $lst_f->insert('end',$_) ;
      }
    }
}
 
#sub go {
#  my ($ref_choix) = @_;
#  my $choix = ${$ref_choix};
#  if ( $choix eq 'Communication' ) { sub_Communication($fenetre_principale); }
#  elsif ( $choix eq 'Acquisitions' ) { sub_Acquisitions($fenetre_principale); }
#  }
 
$fenetre_principale->Button(
  -text    => 'Quitter',
  -command => sub { $fenetre_principale->destroy() },
)->place( -x => 900, -y => 100, );
 
MainLoop;

**djibril** · 24/01/2013, 16h52

sans lire le code, faut éviter ce genre de chose : déclarations d'une variable $champs et @champs

(même nom) corrige déjà ça.

**PadawanInPerl** · 24/01/2013, 16h55

FAIT !

**djibril** · 24/01/2013, 16h57

et ton prog, il est où ?

**PadawanInPerl** · 24/01/2013, 17h07

dans le mm dossier que le fichier que je sélectionne.

Pour info de cette manière [\@champs] j'ai une liste horizontale

**PadawanInPerl** · 25/01/2013, 13h40

impossible de les faire apparaitre autrement :

Nom : Capture.PNG
Affichages : 60
Taille : 2,4 Ko

**djibril** · 25/01/2013, 13h47

Je te demandais le prog final

**PadawanInPerl** · 25/01/2013, 13h48

? il restera sur mon pc si cêst la réponse à ta question..

**djibril** · 25/01/2013, 13h51

Je veux le voir pour pouvoir voir ce qui ne vas pas

**PadawanInPerl** · 25/01/2013, 14h03

je comprend pas bien... le programme a été posté hier à 16h39...

**djibril** · 25/01/2013, 14h09

Mais dans celui de 16h39, il n'y a pas les corrections que je t'avais demandé de faire par rapport aux noms des variables

!

**PadawanInPerl** · 25/01/2013, 14h14

C'est pas faut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
 
#!/usr/local/bin/perl
 
use strict;
use warnings;
use Tk;
use Tk::BrowseEntry;
use Tk::DirTree;
use Spreadsheet::WriteExcel;
 
my $fenetre_principale = MainWindow->new(-title=>'Journaux d\'inventaire', -background => '#4A44F7',);
$fenetre_principale->geometry("1250x600+10+60");
 
my ($mon_choix, $retour, $nd, $repertoire, $resume, $elem, $line, $lst_f, $listeRepertoire);
my (@files, @allfiles, @select, @champs);
my ($choix1, $choix2)
 
# DEFINITION DES CADRES-BOX
$lst_f = $fenetre_principale->Scrolled(
  "Listbox",
  -scrollbars => 'e',
  -background => 'white',
  -foreground =>"black",
)->place( -x => 410, -y => 30, -width => 350, -height => 200, );
 
$lst_f->bind( "<Button-1>", \&Colonnes );
 
$listeRepertoire  = $fenetre_principale->Scrolled('DirTree',-scrollbars =>'e',-directory=>"C:/Users/xxx/Desktop/stock/",
    -command=>\&repertoire)->place( -x => 30, -y => 30, -width => 350, -height => 200, );
$listeRepertoire->configure(-background =>"lightblue", -foreground =>"#CC0063", -showhidden=>1) ;
$listeRepertoire->Subwidget("yscrollbar")->configure(-background => "lightgreen",-troughcolor => "blue") ;
 
 
$fenetre_principale->BrowseEntry(
  -label => ' 1 ',
  -choices=> \@champs,
  -variable => \$choix1,
)->place( -x => 0, -y => 235);
$fenetre_principale->BrowseEntry(
  -label => ' 2 ',
  -choices=> [\@champs],
  -variable => \$choix2,
)->place( -x => 170, -y => 235);
 
 
sub Colonnes {
  my @select = $lst_f->curselection();
  my $elem = $lst_f -> get( $select[0] );
 
  open IN, "<$elem" or die "$!";
 
  while ( my $line = <IN> ) {
  chomp $line;
    if ( $line =~ /^Edition\tPublication/ ) {
      @champs = split (/\t/, $line);
      }
    #
  } # while
} # sub
 
sub repertoire {
  my $nd=shift;
  chdir $nd;
  $repertoire=$nd;
  @files=() ;
  $lst_f->delete(0,'end') ;
  my @allfiles=() ;
  opendir DH,$nd ;
  @allfiles=readdir DH ;
  closedir DH ;
  foreach (@allfiles){
    if(-f $_ && $_ =~ /\.utx/){
      push(@files,$_) ;
      $lst_f->insert('end',$_) ;
      }
    }
}
 
sub go {
 my ($ref_choix) = @_;
 my $choix = ${$ref_choix};
  if ( $choix eq 'Communication' ) { sub_Communication($fenetre_principale); }
  #elsif ( $choix eq 'Acquisitions' ) { sub_Acquisitions($fenetre_principale); }
  }
 
$fenetre_principale->Button(
  -text    => 'Quitter',
  -command => sub { $fenetre_principale->destroy() },
)->place( -x => 900, -y => 100, );
 
MainLoop;

**djibril** · 25/01/2013, 14h23

Il faudrait aussi un fichier d'exemple pour pouvoir tester ton programme.

**PadawanInPerl** · 25/01/2013, 14h34

test.txt

Le fichier est normalement au format utx mais je peux pas le charger

**PadawanInPerl** · 28/01/2013, 16h24

Bonjour,

Pour information si ça peut aider quelqu'un, j'ai fais cela pour avoir les données les unes après les autres et non pas en ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  -choices=> [\@champs],

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
@champs = split (/\t/, $line);
      foreach my $champs(@champs){
        $choix1 -> insert ("end", $champs);
        $choix2 -> insert ("end", $champs);
        $choix3 -> insert ("end", $champs);
        $choix4 -> insert ("end", $champs);
        $choix5 -> insert ("end", $champs);
        $choix6 -> insert ("end", $champs);
        $choix7 -> insert ("end", $champs);
        $choix8 -> insert ("end", $champs);
        $choix9 -> insert ("end", $champs);
        $choix10 -> insert ("end", $champs);
        $choix11 -> insert ("end", $champs);
        $choix12 -> insert ("end", $champs);
        $choix13 -> insert ("end", $champs);
        $choix14 -> insert ("end", $champs);
        $choix15 -> insert ("end", $champs);
        $choix16 -> insert ("end", $champs);
        $choix17 -> insert ("end", $champs);
        $choix18 -> insert ("end", $champs);
        $choix19 -> insert ("end", $champs);
        $choix20 -> insert ("end", $champs);
        }  #foreach

J'aurais aimé faire quelque chose de dynamique du genre (GNUVince) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
{
    no strict 'vars';
    ${"choix$i"}  -> insert ("end", $champs);
}

Mais ça n'a pas marché.

Tant pis, au moins j'ai mon résultat.

**djibril** · 29/01/2013, 09h39

Il faudrait expliquer clairement le but de ton programme car même en le récupérant, rien n'est clair.
Qu'est-ce qu'il est censé faire, quelles sont les actions que tu attends de ton programme...

liste déroulante et affichage

Interfaces Graphiques Perl

Discussions similaires

Partager

Partager