1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    novembre 2006
    Messages
    39
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2006
    Messages : 39
    Points : 27
    Points
    27

    Par défaut Affichage enregistrements pour MAJ

    Bonjour,

    Je vous expose mon problème
    j ai un fichier contenant des actions à effectuées.
    Pour déterminer si l'action est faite, le derniers champs de l'enregistrement contient O ou N
    je voudrais savoir comment, en perl tk, afficher séparément toutes les lignes, ayant un N en fin.
    comment faire pour qu'à l'affichage, en bout de chaque enregistrement, il y ait une case à cocher pour valider l'action faite.
    Le must serait que cette liste se mette à jour automatiquement après chaque validation d'action.

    Cordialement

  2. #2
    Nouveau membre du Club
    Profil pro
    Inscrit en
    novembre 2006
    Messages
    39
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2006
    Messages : 39
    Points : 27
    Points
    27

    Par défaut sans nouvelle

    Bonjour à tous,

    je vois qu'il n'y a pas beaucoup de solution à mon problème.
    Peut être que cela n'est pas possible à réaliser.
    Je vais attendre encore un peu avant de supprimer cette question

    A+

  3. #3
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    18 038
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 18 038
    Points : 492 716
    Points
    492 716

    Par défaut

    Bonjour,

    Peux-tu nous montrer un peu ce que tu as fait ?
    As-tu consulté la FAQ perl/Tk car il y a de nombreux exemples de codes.

    De plus, tu ne nous pas d'exemples, c'est assez vague, difficile de t'aider.

  4. #4
    Nouveau membre du Club
    Profil pro
    Inscrit en
    novembre 2006
    Messages
    39
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2006
    Messages : 39
    Points : 27
    Points
    27

    Par défaut Code actuel

    Voici le code actuel
    C'est la partie CODE MANQUANT que je cherche

    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
     
    #!/usr/bin/perl
      #use strict;
      use Tk;
      use Tk::FileSelect;
      use Tk::EntryCheck;
      use Date::Calc qw(:all);
      use Win32::Console;
      Win32::Console::Free();
     
     
      my $a = 0;
      my $tdata = 0;
      my @list="";
      my $dateac="";
    # date du jour
      (my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $yday,my $isdst) = localtime(time);
      $mon=$mon+1;
      my $date=($year+1900)*10000+$mon*100+$mday;
     
    # Partie graphique
      my $w_top = new MainWindow;
      $w_top->configure(-title => "Validation action(s) faite(s)");
     
     
     my $w_frame = $w_top->Text(
          -height     => 10,
          -wrap       => "none",
          -relief     => "solid",
          -background  => "white",
        )->pack(-fill => "both", -expand => 1);
    tie *STDOUT, ref $w_frame, $w_frame;  
     
    $w_top->Button(-text => 'Quittez',-command => sub {exit} )->pack( -side=>'right' ); 
     
    # ouverture fichier
    my $lstfic='D:\\scripts\\perl\\pense-bete\\test.txt'; 
     
    # lecture du fichier 
    open( FIC, $lstfic )or die "fichier introuvable";
    chomp (@data=<FIC>);
    close(FIC);
    $tdata=@data;  #Nb de ligne dans le fichier
     
    for ($a = 0; $a < $tdata; $a++)
    {
    @list=split("," , $data[$a] );
    # Recuperation des action ayant un N en champ 7
    if ($list[7] eq 'N')
    {
     
    CODE MANQUANT	           
     
     
    }
    }
    MainLoop;
    A+

  5. #5
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    18 038
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 18 038
    Points : 492 716
    Points
    492 716

    Par défaut

    C'est à toi de créer les widget checkbox si besoin. J'ai du mal à comprendre ton souci.

  6. #6
    Nouveau membre du Club
    Profil pro
    Inscrit en
    novembre 2006
    Messages
    39
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2006
    Messages : 39
    Points : 27
    Points
    27

    Par défaut

    mon problème est que je ne sais pas créer les widget checkbox

  7. #7
    Membre actif
    Femme Profil pro
    Ingénieur informatique scientifique
    Inscrit en
    mai 2010
    Messages
    274
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 26
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur informatique scientifique
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : mai 2010
    Messages : 274
    Points : 277
    Points
    277

    Par défaut

    Bonjour,
    http://search.cpan.org/~ni-s/Tk/pod/Checkbutton.pod
    http://docstore.mik.ua/orelly/perl3/tk/ch04_01.htm

    J'ai moi aussi du mal a comprendre ce que tu veux faire... Tu parles d'actions et champs d'enregistrement je ne vois pas ce que c'est

Discussions similaires

  1. Réponses: 1
    Dernier message: 24/02/2012, 19h35
  2. Réponses: 8
    Dernier message: 28/03/2006, 16h52
  3. Réponses: 13
    Dernier message: 24/11/2005, 22h43
  4. Réponses: 2
    Dernier message: 14/03/2005, 19h55
  5. boucle affichage enregistrements
    Par Pau dans le forum ASP
    Réponses: 3
    Dernier message: 06/12/2004, 11h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo