J'utilise la m=E9thode getOpenFile pour ouvrir un popup windows et
s=E9lectionner plusieurs fichiers.
Mais j'ai un bug et je ne sais pas comment le r=E9soudre.
Voici le bout de script :
# Get the file (.txt files)
my @types =3D ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files",
"*" ] );
my @TabFiles =3D $Widget->getOpenFile(
-initialdir =3D> "C:/",
-multiple =3D> 1,
-filetypes =3D> \@types,
);
J'essaye donc de s=E9lectionner plusieurs fichiers en m=EAme temps.
Dans la fen=EAtre popup windows, je peux s=E9lectionner autant de fichiers
que je souhaites. Le souci est au niveau de
@TabFiles.
Si je s=E9lectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre
exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
Comment r=E9soudre ce probl=E8me ?
Y a t il une limite ? Est ce d=FB =E0 la taille du tableau @TabFiles ? Ou
bien est ce un souci Windows ?
Si j'utilise excel ou PsPad par exemple pour ouvrir ces 600 fichiers,
j'ai le m=EAme popup windows, mais ils arrivent =E0 ouvrir les fichiers
(=E7a rame, normal), mais il essaye de les ouvrir un =E0 un. Donc c'est un
souci Tk, non!!
J'utilise la méthode getOpenFile pour ouvrir un popup windows et sélectionner plusieurs fichiers. Mais j'ai un bug et je ne sais pas comment le résoudre.
Voici le bout de script :
# Get the file (.txt files) my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files", "*" ] ); my @TabFiles = $Widget->getOpenFile( -initialdir => "C:/", -multiple => 1, -filetypes => @types, );
J'essaye donc de sélectionner plusieurs fichiers en même temps. Dans la fenêtre popup windows, je peux sélectionner autant de fichiers que je souhaites. Le souci est au niveau de @TabFiles. Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
Comment résoudre ce problème ? Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou bien est ce un souci Windows ?
Si j'utilise excel ou PsPad par exemple pour ouvrir ces 600 fichiers, j'ai le même popup windows, mais ils arrivent à ouvrir les fichiers (ça rame, normal), mais il essaye de les ouvrir un à un. Donc c'est un souci Tk, non!!
J'utilise la méthode getOpenFile pour ouvrir un popup windows et
sélectionner plusieurs fichiers.
Mais j'ai un bug et je ne sais pas comment le résoudre.
Voici le bout de script :
# Get the file (.txt files)
my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files",
"*" ] );
my @TabFiles = $Widget->getOpenFile(
-initialdir => "C:/",
-multiple => 1,
-filetypes => @types,
);
J'essaye donc de sélectionner plusieurs fichiers en même temps.
Dans la fenêtre popup windows, je peux sélectionner autant de fichiers
que je souhaites. Le souci est au niveau de
@TabFiles.
Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre
exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
Comment résoudre ce problème ?
Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou
bien est ce un souci Windows ?
Si j'utilise excel ou PsPad par exemple pour ouvrir ces 600 fichiers,
j'ai le même popup windows, mais ils arrivent à ouvrir les fichiers
(ça rame, normal), mais il essaye de les ouvrir un à un. Donc c'est un
souci Tk, non!!
J'utilise la méthode getOpenFile pour ouvrir un popup windows et sélectionner plusieurs fichiers. Mais j'ai un bug et je ne sais pas comment le résoudre.
Voici le bout de script :
# Get the file (.txt files) my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files", "*" ] ); my @TabFiles = $Widget->getOpenFile( -initialdir => "C:/", -multiple => 1, -filetypes => @types, );
J'essaye donc de sélectionner plusieurs fichiers en même temps. Dans la fenêtre popup windows, je peux sélectionner autant de fichiers que je souhaites. Le souci est au niveau de @TabFiles. Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
Comment résoudre ce problème ? Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou bien est ce un souci Windows ?
Si j'utilise excel ou PsPad par exemple pour ouvrir ces 600 fichiers, j'ai le même popup windows, mais ils arrivent à ouvrir les fichiers (ça rame, normal), mais il essaye de les ouvrir un à un. Donc c'est un souci Tk, non!!
À (at) Mon, 23 Feb 2009 08:20:37 -0800 (PST), écrivait (wrote):
J'utilise la méthode getOpenFile pour ouvrir un popup windows et sélectionner plusieurs fichiers.
[...]
Dans la fenêtre popup windows, je peux sélectionner autant de fichiers que je souhaites. Le souci est au niveau de @TabFiles. Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
Comment résoudre ce problème ? Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou bien est ce un souci Windows ?
A priori, sans en être sûr, je dirai que c'est un problème lié à Perl/Tk... Peut-être faudrait-il faire un tout petit script démontrant le bug et l'envoyer à l'auteur de Perl/Tk.
-- Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/> Perl en français - <http://perl.mines-albi.fr/>
À (at) Mon, 23 Feb 2009 08:20:37 -0800 (PST),
genomart@gmail.com écrivait (wrote):
J'utilise la méthode getOpenFile pour ouvrir un popup windows et
sélectionner plusieurs fichiers.
[...]
Dans la fenêtre popup windows, je peux sélectionner autant de fichiers
que je souhaites. Le souci est au niveau de
@TabFiles.
Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre
exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
Comment résoudre ce problème ?
Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou
bien est ce un souci Windows ?
A priori, sans en être sûr, je dirai que c'est un problème lié à
Perl/Tk... Peut-être faudrait-il faire un tout petit script démontrant
le bug et l'envoyer à l'auteur de Perl/Tk.
--
Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/>
Perl en français - <http://perl.mines-albi.fr/>
À (at) Mon, 23 Feb 2009 08:20:37 -0800 (PST), écrivait (wrote):
J'utilise la méthode getOpenFile pour ouvrir un popup windows et sélectionner plusieurs fichiers.
[...]
Dans la fenêtre popup windows, je peux sélectionner autant de fichiers que je souhaites. Le souci est au niveau de @TabFiles. Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
Comment résoudre ce problème ? Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou bien est ce un souci Windows ?
A priori, sans en être sûr, je dirai que c'est un problème lié à Perl/Tk... Peut-être faudrait-il faire un tout petit script démontrant le bug et l'envoyer à l'auteur de Perl/Tk.
-- Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/> Perl en français - <http://perl.mines-albi.fr/>
genomart
On 23 fév, 17:42, Frantz DORSEMAINE wrote:
a écrit :
> Bonjour,
> J'utilise la méthode getOpenFile pour ouvrir un popup windows et > sélectionner plusieurs fichiers. > Mais j'ai un bug et je ne sais pas comment le résoudre.
> Voici le bout de script :
> # Get the file (.txt files) > my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files", > "*" ] ); > my @TabFiles = $Widget->getOpenFile( > -initialdir => "C:/", > -multiple => 1, > -filetypes => @types, > );
> J'essaye donc de sélectionner plusieurs fichiers en même temps. > Dans la fenêtre popup windows, je peux sélectionner autant de fichi ers > que je souhaites. Le souci est au niveau de > @TabFiles. > Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre > exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
> Comment résoudre ce problème ? > Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou > bien est ce un souci Windows ?
> Si j'utilise excel ou PsPad par exemple pour ouvrir ces 600 fichiers, > j'ai le même popup windows, mais ils arrivent à ouvrir les fichiers > (ça rame, normal), mais il essaye de les ouvrir un à un. Donc c'est un > souci Tk, non!!
Votre code est similaire au mien mais ne change rien à mon souci.
On 23 fév, 17:42, Frantz DORSEMAINE <dorsemaine.fra...@free.fr> wrote:
genom...@gmail.com a écrit :
> Bonjour,
> J'utilise la méthode getOpenFile pour ouvrir un popup windows et
> sélectionner plusieurs fichiers.
> Mais j'ai un bug et je ne sais pas comment le résoudre.
> Voici le bout de script :
> # Get the file (.txt files)
> my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files",
> "*" ] );
> my @TabFiles = $Widget->getOpenFile(
> -initialdir => "C:/",
> -multiple => 1,
> -filetypes => @types,
> );
> J'essaye donc de sélectionner plusieurs fichiers en même temps.
> Dans la fenêtre popup windows, je peux sélectionner autant de fichi ers
> que je souhaites. Le souci est au niveau de
> @TabFiles.
> Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre
> exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
> Comment résoudre ce problème ?
> Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou
> bien est ce un souci Windows ?
> Si j'utilise excel ou PsPad par exemple pour ouvrir ces 600 fichiers,
> j'ai le même popup windows, mais ils arrivent à ouvrir les fichiers
> (ça rame, normal), mais il essaye de les ouvrir un à un. Donc c'est un
> souci Tk, non!!
> J'utilise la méthode getOpenFile pour ouvrir un popup windows et > sélectionner plusieurs fichiers. > Mais j'ai un bug et je ne sais pas comment le résoudre.
> Voici le bout de script :
> # Get the file (.txt files) > my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files", > "*" ] ); > my @TabFiles = $Widget->getOpenFile( > -initialdir => "C:/", > -multiple => 1, > -filetypes => @types, > );
> J'essaye donc de sélectionner plusieurs fichiers en même temps. > Dans la fenêtre popup windows, je peux sélectionner autant de fichi ers > que je souhaites. Le souci est au niveau de > @TabFiles. > Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre > exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
> Comment résoudre ce problème ? > Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou > bien est ce un souci Windows ?
> Si j'utilise excel ou PsPad par exemple pour ouvrir ces 600 fichiers, > j'ai le même popup windows, mais ils arrivent à ouvrir les fichiers > (ça rame, normal), mais il essaye de les ouvrir un à un. Donc c'est un > souci Tk, non!!
Votre code est similaire au mien mais ne change rien à mon souci.
Frantz DORSEMAINE
a écrit :
On 23 fév, 17:42, Frantz DORSEMAINE wrote:
a écrit :
Bonjour, J'utilise la méthode getOpenFile pour ouvrir un popup windows et sélectionner plusieurs fichiers. Mais j'ai un bug et je ne sais pas comment le résoudre. Voici le bout de script : # Get the file (.txt files) my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files", "*" ] ); my @TabFiles = $Widget->getOpenFile( -initialdir => "C:/", -multiple => 1, -filetypes => @types, ); J'essaye donc de sélectionner plusieurs fichiers en même temps. Dans la fenêtre popup windows, je peux sélectionner autant de fichiers que je souhaites. Le souci est au niveau de @TabFiles. Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre exact, @TabFiles est vide. en dessous, je n'ai pas de soucis. Comment résoudre ce problème ? Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou bien est ce un souci Windows ? Si j'utilise excel ou PsPad par exemple pour ouvrir ces 600 fichiers, j'ai le même popup windows, mais ils arrivent à ouvrir les fichiers (ça rame, normal), mais il essaye de les ouvrir un à un. Donc c'est un souci Tk, non!! Merci -- genome
Votre code est similaire au mien mais ne change rien à mon souci.
Ragardez bien ça
print "@$FichierExceln"; le systeme renvoie bien tous les fichiers selectionés?
genomart@gmail.com a écrit :
On 23 fév, 17:42, Frantz DORSEMAINE <dorsemaine.fra...@free.fr> wrote:
genom...@gmail.com a écrit :
Bonjour,
J'utilise la méthode getOpenFile pour ouvrir un popup windows et
sélectionner plusieurs fichiers.
Mais j'ai un bug et je ne sais pas comment le résoudre.
Voici le bout de script :
# Get the file (.txt files)
my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files",
"*" ] );
my @TabFiles = $Widget->getOpenFile(
-initialdir => "C:/",
-multiple => 1,
-filetypes => @types,
);
J'essaye donc de sélectionner plusieurs fichiers en même temps.
Dans la fenêtre popup windows, je peux sélectionner autant de fichiers
que je souhaites. Le souci est au niveau de
@TabFiles.
Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre
exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
Comment résoudre ce problème ?
Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou
bien est ce un souci Windows ?
Si j'utilise excel ou PsPad par exemple pour ouvrir ces 600 fichiers,
j'ai le même popup windows, mais ils arrivent à ouvrir les fichiers
(ça rame, normal), mais il essaye de les ouvrir un à un. Donc c'est un
souci Tk, non!!
Merci
--
genome
Bonjour, J'utilise la méthode getOpenFile pour ouvrir un popup windows et sélectionner plusieurs fichiers. Mais j'ai un bug et je ne sais pas comment le résoudre. Voici le bout de script : # Get the file (.txt files) my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files", "*" ] ); my @TabFiles = $Widget->getOpenFile( -initialdir => "C:/", -multiple => 1, -filetypes => @types, ); J'essaye donc de sélectionner plusieurs fichiers en même temps. Dans la fenêtre popup windows, je peux sélectionner autant de fichiers que je souhaites. Le souci est au niveau de @TabFiles. Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre exact, @TabFiles est vide. en dessous, je n'ai pas de soucis. Comment résoudre ce problème ? Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou bien est ce un souci Windows ? Si j'utilise excel ou PsPad par exemple pour ouvrir ces 600 fichiers, j'ai le même popup windows, mais ils arrivent à ouvrir les fichiers (ça rame, normal), mais il essaye de les ouvrir un à un. Donc c'est un souci Tk, non!! Merci -- genome
Votre code est similaire au mien mais ne change rien à mon souci.
Ragardez bien ça
print "@$FichierExceln"; le systeme renvoie bien tous les fichiers selectionés?
genomart
On 23 fév, 17:51, Paul Gaborit wrote:
À (at) Mon, 23 Feb 2009 08:20:37 -0800 (PST), écrivait (wrote):
> J'utilise la méthode getOpenFile pour ouvrir un popup windows et > sélectionner plusieurs fichiers. [...] > Dans la fenêtre popup windows, je peux sélectionner autant de fichi ers > que je souhaites. Le souci est au niveau de > @TabFiles. > Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre > exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
> Comment résoudre ce problème ? > Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou > bien est ce un souci Windows ?
A priori, sans en être sûr, je dirai que c'est un problème lié à Perl/Tk... Peut-être faudrait-il faire un tout petit script démontran t le bug et l'envoyer à l'auteur de Perl/Tk.
-- Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/> Perl en français - <http://perl.mines-albi.fr/>
Voici un bout de script,
Vous pouvez essayer chez moi et nous dire si vous reproduisez le bug (Il faut avoir au moins 600 à sélectionner :-) ). #!/usr/bin/perl use strict; use Carp; use warnings;
use Tk;
my $mw = MainWindow->new( -title => "test getOpenFile", -background => "white", ); my $test; $mw->Label( -textvariable => $test, )->pack;
$mw->Button( -text => "test getOpenFile", -command => sub { # Get the file (.txt files) my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files", "*" ] ); my @TabFiles = $mw->getOpenFile( -initialdir => $ENV{AppliConfig}->{DefaultDirectory}, -multiple => 1, -filetypes => @types, );
$test = scalar(@TabFiles);
}, )->pack();
MainLoop;
On 23 fév, 17:51, Paul Gaborit <Paul.Gabo...@invalid.invalid> wrote:
À (at) Mon, 23 Feb 2009 08:20:37 -0800 (PST),
genom...@gmail.com écrivait (wrote):
> J'utilise la méthode getOpenFile pour ouvrir un popup windows et
> sélectionner plusieurs fichiers.
[...]
> Dans la fenêtre popup windows, je peux sélectionner autant de fichi ers
> que je souhaites. Le souci est au niveau de
> @TabFiles.
> Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre
> exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
> Comment résoudre ce problème ?
> Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou
> bien est ce un souci Windows ?
A priori, sans en être sûr, je dirai que c'est un problème lié à
Perl/Tk... Peut-être faudrait-il faire un tout petit script démontran t
le bug et l'envoyer à l'auteur de Perl/Tk.
--
Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/>
Perl en français - <http://perl.mines-albi.fr/>
Voici un bout de script,
Vous pouvez essayer chez moi et nous dire si vous reproduisez le bug
(Il faut avoir au moins 600
à sélectionner :-) ).
#!/usr/bin/perl
use strict;
use Carp;
use warnings;
use Tk;
my $mw = MainWindow->new(
-title => "test getOpenFile",
-background => "white",
);
my $test;
$mw->Label(
-textvariable => $test,
)->pack;
$mw->Button(
-text => "test getOpenFile",
-command => sub {
# Get the file (.txt files)
my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files",
"*" ] );
my @TabFiles = $mw->getOpenFile(
-initialdir => $ENV{AppliConfig}->{DefaultDirectory},
-multiple => 1,
-filetypes => @types,
);
À (at) Mon, 23 Feb 2009 08:20:37 -0800 (PST), écrivait (wrote):
> J'utilise la méthode getOpenFile pour ouvrir un popup windows et > sélectionner plusieurs fichiers. [...] > Dans la fenêtre popup windows, je peux sélectionner autant de fichi ers > que je souhaites. Le souci est au niveau de > @TabFiles. > Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombre > exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
> Comment résoudre ce problème ? > Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou > bien est ce un souci Windows ?
A priori, sans en être sûr, je dirai que c'est un problème lié à Perl/Tk... Peut-être faudrait-il faire un tout petit script démontran t le bug et l'envoyer à l'auteur de Perl/Tk.
-- Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/> Perl en français - <http://perl.mines-albi.fr/>
Voici un bout de script,
Vous pouvez essayer chez moi et nous dire si vous reproduisez le bug (Il faut avoir au moins 600 à sélectionner :-) ). #!/usr/bin/perl use strict; use Carp; use warnings;
use Tk;
my $mw = MainWindow->new( -title => "test getOpenFile", -background => "white", ); my $test; $mw->Label( -textvariable => $test, )->pack;
$mw->Button( -text => "test getOpenFile", -command => sub { # Get the file (.txt files) my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files", "*" ] ); my @TabFiles = $mw->getOpenFile( -initialdir => $ENV{AppliConfig}->{DefaultDirectory}, -multiple => 1, -filetypes => @types, );
$test = scalar(@TabFiles);
}, )->pack();
MainLoop;
genomart
On 23 fév, 18:08, Frantz DORSEMAINE wrote:
a écrit :
> On 23 fév, 17:42, Frantz DORSEMAINE wrote : >> a écrit :
>>> Bonjour, >>> J'utilise la méthode getOpenFile pour ouvrir un popup windows et >>> sélectionner plusieurs fichiers. >>> Mais j'ai un bug et je ne sais pas comment le résoudre. >>> Voici le bout de script : >>> # Get the file (.txt files) >>> my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files", >>> "*" ] ); >>> my @TabFiles = $Widget->getOpenFile( >>> -initialdir => "C:/", >>> -multiple => 1, >>> -filetypes => @types, >>> ); >>> J'essaye donc de sélectionner plusieurs fichiers en même temps. >>> Dans la fenêtre popup windows, je peux sélectionner autant de fic hiers >>> que je souhaites. Le souci est au niveau de >>> @TabFiles. >>> Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombr e >>> exact, @TabFiles est vide. en dessous, je n'ai pas de soucis. >>> Comment résoudre ce problème ? >>> Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou >>> bien est ce un souci Windows ? >>> Si j'utilise excel ou PsPad par exemple pour ouvrir ces 600 fichiers, >>> j'ai le même popup windows, mais ils arrivent à ouvrir les fichie rs >>> (ça rame, normal), mais il essaye de les ouvrir un à un. Donc c'e st un >>> souci Tk, non!! >>> Merci >>> -- >>> genome >> Voici mon script qui marche >> sub OpenFileExcel {
> Votre code est similaire au mien mais ne change rien à mon souci.
Ragardez bien ça
print "@$FichierExceln"; le systeme renvoie bien tous les fichiers selectionés?
ça ne change rien. $FichierExcel=$Win->getOpenFile .... retourne une reference d'un tableau contenant les fichiers. my @TabFiles = $mw->getOpenFile ... un tableau
j'ai testé les 2 méthodes et ça ne change rien. $FichierExcel est
On 23 fév, 18:08, Frantz DORSEMAINE <dorsemaine.fra...@free.fr> wrote:
genom...@gmail.com a écrit :
> On 23 fév, 17:42, Frantz DORSEMAINE <dorsemaine.fra...@free.fr> wrote :
>> genom...@gmail.com a écrit :
>>> Bonjour,
>>> J'utilise la méthode getOpenFile pour ouvrir un popup windows et
>>> sélectionner plusieurs fichiers.
>>> Mais j'ai un bug et je ne sais pas comment le résoudre.
>>> Voici le bout de script :
>>> # Get the file (.txt files)
>>> my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files",
>>> "*" ] );
>>> my @TabFiles = $Widget->getOpenFile(
>>> -initialdir => "C:/",
>>> -multiple => 1,
>>> -filetypes => @types,
>>> );
>>> J'essaye donc de sélectionner plusieurs fichiers en même temps.
>>> Dans la fenêtre popup windows, je peux sélectionner autant de fic hiers
>>> que je souhaites. Le souci est au niveau de
>>> @TabFiles.
>>> Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombr e
>>> exact, @TabFiles est vide. en dessous, je n'ai pas de soucis.
>>> Comment résoudre ce problème ?
>>> Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou
>>> bien est ce un souci Windows ?
>>> Si j'utilise excel ou PsPad par exemple pour ouvrir ces 600 fichiers,
>>> j'ai le même popup windows, mais ils arrivent à ouvrir les fichie rs
>>> (ça rame, normal), mais il essaye de les ouvrir un à un. Donc c'e st un
>>> souci Tk, non!!
>>> Merci
>>> --
>>> genome
>> Voici mon script qui marche
>> sub OpenFileExcel {
> Votre code est similaire au mien mais ne change rien à mon souci.
Ragardez bien ça
print "@$FichierExceln"; le systeme renvoie bien tous les fichiers
selectionés?
ça ne change rien.
$FichierExcel=$Win->getOpenFile .... retourne une reference d'un
tableau contenant les fichiers.
my @TabFiles = $mw->getOpenFile ... un tableau
j'ai testé les 2 méthodes et ça ne change rien.
$FichierExcel est
> On 23 fév, 17:42, Frantz DORSEMAINE wrote : >> a écrit :
>>> Bonjour, >>> J'utilise la méthode getOpenFile pour ouvrir un popup windows et >>> sélectionner plusieurs fichiers. >>> Mais j'ai un bug et je ne sais pas comment le résoudre. >>> Voici le bout de script : >>> # Get the file (.txt files) >>> my @types = ( [ "Data Files", '.txt', 'TEXT' ], [ "All Files", >>> "*" ] ); >>> my @TabFiles = $Widget->getOpenFile( >>> -initialdir => "C:/", >>> -multiple => 1, >>> -filetypes => @types, >>> ); >>> J'essaye donc de sélectionner plusieurs fichiers en même temps. >>> Dans la fenêtre popup windows, je peux sélectionner autant de fic hiers >>> que je souhaites. Le souci est au niveau de >>> @TabFiles. >>> Si je sélectionne plus de 500 ou 600 fichiers, je n'ai pas le nombr e >>> exact, @TabFiles est vide. en dessous, je n'ai pas de soucis. >>> Comment résoudre ce problème ? >>> Y a t il une limite ? Est ce dû à la taille du tableau @TabFiles ? Ou >>> bien est ce un souci Windows ? >>> Si j'utilise excel ou PsPad par exemple pour ouvrir ces 600 fichiers, >>> j'ai le même popup windows, mais ils arrivent à ouvrir les fichie rs >>> (ça rame, normal), mais il essaye de les ouvrir un à un. Donc c'e st un >>> souci Tk, non!! >>> Merci >>> -- >>> genome >> Voici mon script qui marche >> sub OpenFileExcel {
> Votre code est similaire au mien mais ne change rien à mon souci.
Ragardez bien ça
print "@$FichierExceln"; le systeme renvoie bien tous les fichiers selectionés?
ça ne change rien. $FichierExcel=$Win->getOpenFile .... retourne une reference d'un tableau contenant les fichiers. my @TabFiles = $mw->getOpenFile ... un tableau
j'ai testé les 2 méthodes et ça ne change rien. $FichierExcel est
jl_morel
Dans l'article <e08cff24-b233-4686-86f6- , a dit...
Voici un bout de script,
Vous pouvez essayer chez moi et nous dire si vous reproduisez le bug (Il faut avoir au moins 600 à sélectionner :-) ).
#!/usr/bin/perl use strict; use Carp;
[couic]
Ce n'est pas un bug, c'est une limitation (nuance ! ;-) Dans le fichier tkWinDialog.c, on peut lire le commentaire suivant :
/* * The value of TK_MULTI_MAX_PATH dictactes how many files can * be retrieved with tk_get*File -multiple 1. It must be allocated * on the stack, so make it large enough but not too large. -- hobbs * The data is stored as <dir>