bonjour,
je voudrais récupérer des donnees d'un fichier et les mettre dans une liste
déroulante.
Mon probleme, c'est que je n'y arrive pas ;-)
Voici le bout de mon script:
# Les noms dans le fichier $noms sont sous cette forme
nom1
nom2
nom3
nom4
nom5
nom6
nom7
# Je recupere normalement les noms dans une variable $result_noms
open (FIC,">>$noms") || die "Je ne peux pas ouvrir $noms";
while (<FIC>) {$result_noms.= $_;}
close (FIC) || die "Je ne peux pas ouvrir $noms";
#C'est la en fait que j'ai mon probleme, je ne sais pas comment récuperer
les noms et les mettre dans la liste ...
@mes_noms= qw / mettre les resultats de la variable $result_noms dans cette
liste deroulante /;
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MyNeWs
Petit rajout: j'ai modifié un peu mon script, et voici le résultat: open (FIC,"$noms") || die "Je ne peux pas ouvrir $noms"; while (<FIC>) { @mes_noms = $_;chomp @mes_noms;} close (FIC) || die "Je ne peux pas ouvrir $noms";
A ce stade là, je me retrouve avec dans mon tableau, le dernier nom de mon fichier (nom7) et uniquement celui ci. Je progresse ... ;-))
"MyNeWs" a écrit dans le message de news: 4491a542$0$24912$
bonjour, je voudrais récupérer des donnees d'un fichier et les mettre dans une liste déroulante. Mon probleme, c'est que je n'y arrive pas ;-) Voici le bout de mon script:
# Les noms dans le fichier $noms sont sous cette forme nom1 nom2 nom3 nom4 nom5 nom6 nom7
# Je recupere normalement les noms dans une variable $result_noms open (FIC,">>$noms") || die "Je ne peux pas ouvrir $noms"; while (<FIC>) {$result_noms.= $_;} close (FIC) || die "Je ne peux pas ouvrir $noms";
#C'est la en fait que j'ai mon probleme, je ne sais pas comment récuperer les noms et les mettre dans la liste ...
@mes_noms= qw / mettre les resultats de la variable $result_noms dans cette liste deroulante /;
Si vous avez une piste (voir la solution) je vous remercie.
Philippe
Petit rajout:
j'ai modifié un peu mon script, et voici le résultat:
open (FIC,"$noms") || die "Je ne peux pas ouvrir $noms";
while (<FIC>) { @mes_noms = $_;chomp @mes_noms;}
close (FIC) || die "Je ne peux pas ouvrir $noms";
A ce stade là, je me retrouve avec dans mon tableau, le dernier nom de mon
fichier (nom7)
et uniquement celui ci.
Je progresse ... ;-))
"MyNeWs" <news@nospam.com> a écrit dans le message de news:
4491a542$0$24912$626a54ce@news.free.fr...
bonjour,
je voudrais récupérer des donnees d'un fichier et les mettre dans une
liste déroulante.
Mon probleme, c'est que je n'y arrive pas ;-)
Voici le bout de mon script:
# Les noms dans le fichier $noms sont sous cette forme
nom1
nom2
nom3
nom4
nom5
nom6
nom7
# Je recupere normalement les noms dans une variable $result_noms
open (FIC,">>$noms") || die "Je ne peux pas ouvrir $noms";
while (<FIC>) {$result_noms.= $_;}
close (FIC) || die "Je ne peux pas ouvrir $noms";
#C'est la en fait que j'ai mon probleme, je ne sais pas comment récuperer
les noms et les mettre dans la liste ...
@mes_noms= qw / mettre les resultats de la variable $result_noms dans
cette liste deroulante /;
Petit rajout: j'ai modifié un peu mon script, et voici le résultat: open (FIC,"$noms") || die "Je ne peux pas ouvrir $noms"; while (<FIC>) { @mes_noms = $_;chomp @mes_noms;} close (FIC) || die "Je ne peux pas ouvrir $noms";
A ce stade là, je me retrouve avec dans mon tableau, le dernier nom de mon fichier (nom7) et uniquement celui ci. Je progresse ... ;-))
"MyNeWs" a écrit dans le message de news: 4491a542$0$24912$
bonjour, je voudrais récupérer des donnees d'un fichier et les mettre dans une liste déroulante. Mon probleme, c'est que je n'y arrive pas ;-) Voici le bout de mon script:
# Les noms dans le fichier $noms sont sous cette forme nom1 nom2 nom3 nom4 nom5 nom6 nom7
# Je recupere normalement les noms dans une variable $result_noms open (FIC,">>$noms") || die "Je ne peux pas ouvrir $noms"; while (<FIC>) {$result_noms.= $_;} close (FIC) || die "Je ne peux pas ouvrir $noms";
#C'est la en fait que j'ai mon probleme, je ne sais pas comment récuperer les noms et les mettre dans la liste ...
@mes_noms= qw / mettre les resultats de la variable $result_noms dans cette liste deroulante /;
Si vous avez une piste (voir la solution) je vous remercie.
Philippe
MyNeWs
Bon ben voila, j'ai trouvé une solution (du moins elle me plait bien) je vous la donne :
open (FIC,"$noms") || die "Je ne peux pas ouvrir $noms"; while (<FIC>) { $file = $_; (@mes_noms)=split(/, /,$file); chomp @mes_noms; } close (FIC);
"MyNeWs" a écrit dans le message de news: 4491a542$0$24912$
bonjour, je voudrais récupérer des donnees d'un fichier et les mettre dans une liste déroulante. Mon probleme, c'est que je n'y arrive pas ;-) Voici le bout de mon script:
# Les noms dans le fichier $noms sont sous cette forme nom1 nom2 nom3 nom4 nom5 nom6 nom7
# Je recupere normalement les noms dans une variable $result_noms open (FIC,">>$noms") || die "Je ne peux pas ouvrir $noms"; while (<FIC>) {$result_noms.= $_;} close (FIC) || die "Je ne peux pas ouvrir $noms";
#C'est la en fait que j'ai mon probleme, je ne sais pas comment récuperer les noms et les mettre dans la liste ...
@mes_noms= qw / mettre les resultats de la variable $result_noms dans cette liste deroulante /;
Si vous avez une piste (voir la solution) je vous remercie.
Philippe
Bon ben voila, j'ai trouvé une solution (du moins elle me plait bien)
je vous la donne :
open (FIC,"$noms") || die "Je ne peux pas ouvrir $noms";
while (<FIC>)
{
$file = $_;
(@mes_noms)=split(/, /,$file);
chomp @mes_noms;
}
close (FIC);
"MyNeWs" <news@nospam.com> a écrit dans le message de news:
4491a542$0$24912$626a54ce@news.free.fr...
bonjour,
je voudrais récupérer des donnees d'un fichier et les mettre dans une
liste déroulante.
Mon probleme, c'est que je n'y arrive pas ;-)
Voici le bout de mon script:
# Les noms dans le fichier $noms sont sous cette forme
nom1
nom2
nom3
nom4
nom5
nom6
nom7
# Je recupere normalement les noms dans une variable $result_noms
open (FIC,">>$noms") || die "Je ne peux pas ouvrir $noms";
while (<FIC>) {$result_noms.= $_;}
close (FIC) || die "Je ne peux pas ouvrir $noms";
#C'est la en fait que j'ai mon probleme, je ne sais pas comment récuperer
les noms et les mettre dans la liste ...
@mes_noms= qw / mettre les resultats de la variable $result_noms dans
cette liste deroulante /;
Bon ben voila, j'ai trouvé une solution (du moins elle me plait bien) je vous la donne :
open (FIC,"$noms") || die "Je ne peux pas ouvrir $noms"; while (<FIC>) { $file = $_; (@mes_noms)=split(/, /,$file); chomp @mes_noms; } close (FIC);
"MyNeWs" a écrit dans le message de news: 4491a542$0$24912$
bonjour, je voudrais récupérer des donnees d'un fichier et les mettre dans une liste déroulante. Mon probleme, c'est que je n'y arrive pas ;-) Voici le bout de mon script:
# Les noms dans le fichier $noms sont sous cette forme nom1 nom2 nom3 nom4 nom5 nom6 nom7
# Je recupere normalement les noms dans une variable $result_noms open (FIC,">>$noms") || die "Je ne peux pas ouvrir $noms"; while (<FIC>) {$result_noms.= $_;} close (FIC) || die "Je ne peux pas ouvrir $noms";
#C'est la en fait que j'ai mon probleme, je ne sais pas comment récuperer les noms et les mettre dans la liste ...
@mes_noms= qw / mettre les resultats de la variable $result_noms dans cette liste deroulante /;
Bon ben voila, j'ai trouvé une solution (du moins elle me plait bien) je vous la donne :
open (FIC,"$noms") || die "Je ne peux pas ouvrir $noms"; while (<FIC>) { $file = $_; (@mes_noms)=split(/, /,$file); chomp @mes_noms; } close (FIC);
Bonjour,
Je ne suis pas sûr que ta solution fonctionne, essaie plutôt ceci :
my ($fh); open($fh,'<',$noms) or die $!; @mes_noms = <$fh>; close($fh);
Olivier.
Sébastien Cottalorda
bonjour, je voudrais récupérer des donnees d'un fichier et les mettre dans une liste déroulante. Mon probleme, c'est que je n'y arrive pas ;-) Voici le bout de mon script:
# Les noms dans le fichier $noms sont sous cette forme nom1 nom2 nom3 nom4 nom5 nom6 nom7
# Je recupere normalement les noms dans une variable $result_noms open (FIC,">>$noms") || die "Je ne peux pas ouvrir $noms"; while (<FIC>) {$result_noms.= $_;} close (FIC) || die "Je ne peux pas ouvrir $noms";
#C'est la en fait que j'ai mon probleme, je ne sais pas comment récuperer les noms et les mettre dans la liste ...
Salut,
Voici comment je vois ton problème:
open (FIC, "<", "$noms") || die "Je ne peux pas ouvrir $noms"; # utilise l'appel à open avec 3 paramètres # De plus, dans le cas d'une lecture, je ne vois pas pourquoi tu # utilises '>>', '<' est plus approprié @mes_noms=(); while (<FIC>){ chomp(); # car tu récupères aussi le retour à la ligne push @mes_noms, $_; # ajoute le nom au tableu @mes_noms } close(FIC); my $liste_noms = $fenetre2->Scrolled( Listbox, -scrollbars => 'oe', -selectforeground => 'red',
bonjour,
je voudrais récupérer des donnees d'un fichier et les mettre dans une liste
déroulante.
Mon probleme, c'est que je n'y arrive pas ;-)
Voici le bout de mon script:
# Les noms dans le fichier $noms sont sous cette forme
nom1
nom2
nom3
nom4
nom5
nom6
nom7
# Je recupere normalement les noms dans une variable $result_noms
open (FIC,">>$noms") || die "Je ne peux pas ouvrir $noms";
while (<FIC>) {$result_noms.= $_;}
close (FIC) || die "Je ne peux pas ouvrir $noms";
#C'est la en fait que j'ai mon probleme, je ne sais pas comment récuperer
les noms et les mettre dans la liste ...
Salut,
Voici comment je vois ton problème:
open (FIC, "<", "$noms") || die "Je ne peux pas ouvrir $noms";
# utilise l'appel à open avec 3 paramètres
# De plus, dans le cas d'une lecture, je ne vois pas pourquoi tu
# utilises '>>', '<' est plus approprié
@mes_noms=();
while (<FIC>){
chomp(); # car tu récupères aussi le retour à la ligne
push @mes_noms, $_; # ajoute le nom au tableu @mes_noms
}
close(FIC);
my $liste_noms
= $fenetre2->Scrolled( Listbox,
-scrollbars => 'oe',
-selectforeground => 'red',
bonjour, je voudrais récupérer des donnees d'un fichier et les mettre dans une liste déroulante. Mon probleme, c'est que je n'y arrive pas ;-) Voici le bout de mon script:
# Les noms dans le fichier $noms sont sous cette forme nom1 nom2 nom3 nom4 nom5 nom6 nom7
# Je recupere normalement les noms dans une variable $result_noms open (FIC,">>$noms") || die "Je ne peux pas ouvrir $noms"; while (<FIC>) {$result_noms.= $_;} close (FIC) || die "Je ne peux pas ouvrir $noms";
#C'est la en fait que j'ai mon probleme, je ne sais pas comment récuperer les noms et les mettre dans la liste ...
Salut,
Voici comment je vois ton problème:
open (FIC, "<", "$noms") || die "Je ne peux pas ouvrir $noms"; # utilise l'appel à open avec 3 paramètres # De plus, dans le cas d'une lecture, je ne vois pas pourquoi tu # utilises '>>', '<' est plus approprié @mes_noms=(); while (<FIC>){ chomp(); # car tu récupères aussi le retour à la ligne push @mes_noms, $_; # ajoute le nom au tableu @mes_noms } close(FIC); my $liste_noms = $fenetre2->Scrolled( Listbox, -scrollbars => 'oe', -selectforeground => 'red',
