aide choix BrowseEntry

**rapdoc** · 20/09/2010, 17h42

Bonjour a tous
j'ai besoin de votre aide j'ai un script dans lequel j'ai des BrowseEntry avant j'utilisé l'option choix pour choisir une variable , je désire maintenant avoir ce choix a partir d'un fichier excel en cliquant sur un bouton le script ouvre un fichié excel est rempli le choix de BrowseEntry.
je ne c'est pas si c'est possible
voici un script qui explique mon problem

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
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Cwd;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
$Win32::OLE::Warn = 1;
require Tk::BrowseEntry;
 
my $mw = MainWindow->new(
  -title      => "bm",
  -background => 'white',
);
$mw->minsize( 500, 500 );
 
my $frame = $mw->Frame()->pack(qw/ -pady 10 -padx 10 /);
 
my ( $argument1, $argument2 );
 
my $BrowseEntry1 = $frame->BrowseEntry(
  -label    => "name : ",
  -variable => \$argument1,
  -choices  => [ "$argument1" ],
)->pack(qw/ -side left -padx 10 /);
 
my $BrowseEntry2 = $frame->BrowseEntry(
  -label    => "n : ",
  -variable => \$argument2,
  -choices  => [ "1", "2" ],
)->pack(qw/ -side right -padx 10 /);
 
$mw->Button(
  -text    => "lancer prog",
  -command => [ \&voiture, \$argument1, \$argument2 ],
)->pack();
 
$mw->Button(
  -text    => "List",
  -command => [ \&liste, ],
)->pack();
 
MainLoop;
 
sub voiture {
  my ( $Refargument1, $Refargument2 ) = @_;
  my ( $argument1, $argument2 ) = ( ${$Refargument1}, ${$Refargument2} );
  print "Argument 1 :  : $argument1\n" if ( defined $argument1 );
  print "Argument 2 :  : $argument2\n" if ( defined $argument2 );
  if ( defined $argument1 and defined $argument2 ) {
    system("voiture_v8.exe $argument1 $argument2");
  }
  else {
    warn "Les 2 arguments ne sont pas ok\n";
  }
  return;
}
sub liste {
 
     my $choix1="list.xls";
     my $argument1;
     my $cmd = getcwd;
        $cmd =~ s/\//\\/g;
     my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application');
        $Excel->{Visible} = 1;
     my $book = $Excel->Workbooks->Open("$cmd/$choix1") or die Win32::OLE->LastError;
 
     my $sheet    = $book -> Worksheets(1) -> {Name};
        $sheet    = $book -> Worksheets($sheet);
        $sheet                -> Activate;
        $sheet -> Range("A") -> {Value} = "$argument1";
 
   $book->Save();
   $Excel->Quit();
};

**djibril** · 20/09/2010, 23h29

tu peux utiliser configure sur ta variable $BrowseEntry1 et modifier les choix.

**rapdoc** · 21/09/2010, 16h41

Salut Djibril
Merci pour ton aide ,j'ai pensé a une nouvelle solution plus facile est plus adapté a mon problem, mais je suis blocké sur un problem que je c'est pas résoudre ,
c'est le meme script j'utilise cette fois "chooseDirectory " ce que j'assay de faire est quand on appuit sur ok le non du repertoire se récopie dans le la liste déroulante "name" pour ensuite excécuté lance prog
je c'est pas si c'est realisable sinon y 'a t il une autre solution dans le meme esprit ?

voici le script a l'etape de mon blocage

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
 
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Cwd;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
$Win32::OLE::Warn = 1;
require Tk::BrowseEntry;
 
my $mw = MainWindow->new(
  -title      => "bm",
  -background => 'white',
);
$mw->minsize( 500, 500 );
 
my $frame = $mw->Frame()->pack(qw/ -pady 10 -padx 10 /);
 
my ( $argument1, $argument2 );
 
my $BrowseEntry1 = $frame->BrowseEntry(
  -label    => "name : ",
  -variable => \$argument1,
)->pack(qw/ -side left -padx 10 /);
 
my $BrowseEntry2 = $frame->BrowseEntry(
  -label    => "n : ",
  -variable => \$argument2,
  -choices  => [ "1", "2" ],
)->pack(qw/ -side right -padx 10 /);
 
$mw->Button(
  -text    => "lancer prog",
  -command => [ \&voiture, \$argument1, \$argument2 ],
)->pack();
 
$mw->Button(
  -text => "Lister des Dossier",
  -command => sub {
 
    my $Directory = $frame->chooseDirectory(
    -title      => "Selection des repertoires",
    -mustexist  => 1,
    );
  },
)->pack();
MainLoop;
 
sub voiture {
  my ( $Refargument1, $Refargument2 ) = @_;
  my ( $argument1, $argument2 ) = ( ${$Refargument1}, ${$Refargument2} );
  print "Argument 1 :  : $argument1\n" if ( defined $argument1 );
  print "Argument 2 :  : $argument2\n" if ( defined $argument2 );
  if ( defined $argument1 and defined $argument2 ) {
    system("voiture_v8.exe $argument1 $argument2");
  }
  else {
    warn "Les 2 arguments ne sont pas ok\n";
  }
  return;
}

**djibril** · 21/09/2010, 17h13

Peux tu essayer d'écrire lisiblement la prochaine fois en faisant attention aux fautes d'orthographe, c'est assez désagréable à lire. De plus, s'agissant du code perl, pense à l'encadrer des balises codes la prochaine fois.

Merci

**djibril** · 21/09/2010, 17h19

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
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Cwd;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
$Win32::OLE::Warn = 1;
require Tk::BrowseEntry;
 
my $mw = MainWindow->new(
  -title      => "bm",
  -background => 'white',
);
$mw->minsize( 500, 500 );
 
my $frame = $mw->Frame()->pack(qw/ -pady 10 -padx 10 /);
 
my ( $argument1, $argument2 );
 
my $BrowseEntry1 = $frame->BrowseEntry(
  -label    => "name : ",
  -variable => \$argument1,
)->pack(qw/ -side left -padx 10 /);
 
my $BrowseEntry2 = $frame->BrowseEntry(
  -label    => "n : ",
  -variable => \$argument2,
  -choices  => [ "1", "2" ],
)->pack(qw/ -side right -padx 10 /);
 
my $BoutonLancementProg = $mw->Button(
  -text    => "lancer prog",
  -command => [ \&voiture, \$argument1, \$argument2 ],
)->pack();
 
$mw->Button(
  -text    => "Lister des Dossier",
  -command => sub {
 
    # Ouverture du répertoire
    my $Directory = $frame->chooseDirectory(
      -title     => "Selection des repertoires",
      -mustexist => 1,
    );
    return unless defined $Directory;
 
    # On conserve le nom du répertoire dans $argument1
    $argument1 = $Directory;
 
    # On simule le clic sur le bouton "lancer prog"
    $BoutonLancementProg->invoke;
 
  },
)->pack();
 
MainLoop;
 
sub voiture {
  my ( $Refargument1, $Refargument2 ) = @_;
  my ( $argument1, $argument2 ) = ( ${$Refargument1}, ${$Refargument2} );
  print "Argument 1 :  : $argument1\n" if ( defined $argument1 );
  print "Argument 2 :  : $argument2\n" if ( defined $argument2 );
  if ( defined $argument1 and defined $argument2 ) {
    system("voiture_v8.exe $argument1 $argument2");
  }
  else {
    warn "Les 2 arguments ne sont pas ok\n";
  }
  return;
}

**rapdoc** · 22/09/2010, 16h49

Merci Bien Djibril pour l’aide,
Ca fonctionne Bien j’ai rajouté quelque ligne de code pour récupéré que le dossier sélectionné :

my @arg = split("/", $Directory );

$argument1 = @arg[$#arg];

Ca fonctionne très bien. Mais j’ai un message d’erreur du style :

Scalar value @arg[$#arg] better written as $arg[$#arg] at …

Comment peut on résoudre ce problème

**djibril** · 22/09/2010, 17h55

Code :

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

1
2
3
 
use File::Basename;
$argument1 = basename($Directory);

**rapdoc** · 23/09/2010, 16h29

Salut Djibril,
Merci beaucoup pour ton aide si précieuse.
Cette solution fonctionne très bien.
J’applique la même procédure pour avoir les noms des fichiers cette fois. Mais je n’arrive pas a retourné le non du fichier sans extension = (sans .doc par exemple)

Code :

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

1
2
3
4
5
6
7
8
 
my $Directory = $frame->getOpenFile();
 
    return unless defined $Directory;
 
$argument1 = basename($Directory);
 
},

**djibril** · 23/09/2010, 17h30

J'ai déjà donné la solution à cette question. Regarde ici.

**rapdoc** · 27/09/2010, 17h30

Salut Djibril, merci pour la solution je récupère bien les noms des fichiers mais j’ai un autre problème, je veux récupérer qu’une partie du nom de fichier (exemple pour : voiture_bmw_m_3_pt.doc , je veux récupérer que m_3_pt) j’ai essayé de passer par les split mais j’ai des message d’erreur du style : Scalar value @arg[$#arg] better written as $arg[$#arg] at …

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sub {
 
my $Directory = $frame->getOpenFile();
 
return unless defined $Directory;
 
$argument5 =fileparse($Directory, qr/\.[^.]*/);
 
my @arg = split("_", $argument5 );
 
$argument1 = @arg[2];
 
},

**Beniou** · 27/09/2010, 17h52

Pour accéder à des éléments dans un tableau il faut utiliser le symbole $ et non le @ devant ta variable.

Code :

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

1
2
 
$argument1 = $arg[2];

Là dans ton exemple tu récupères le "m".

Ensuite pour récupérer ce que tu veux il y a pas mal de façon de faire : ensuite tout dépend si tu connais les préfixes à enlever etc. parce que sinon le split n'est pas la solution la plus rapide.

**rapdoc** · 01/10/2010, 19h57

Merci Beniou

**djibril** · 11/10/2010, 10h04

Pensez à mettre le programme en résolu si c'est le cas.

aide choix BrowseEntry

Interfaces Graphiques Perl

Discussions similaires

Partager

Partager