+ Répondre à la discussion
Affichage des résultats 1 à 7 sur 7
  1. #1
    Candidat au titre de Membre du Club
    Inscrit en
    novembre 2006
    Messages
    34
    Détails du profil
    Informations forums :
    Inscription : novembre 2006
    Messages : 34
    Points : 10
    Points
    10

    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
    Candidat au titre de Membre du Club
    Inscrit en
    novembre 2006
    Messages
    34
    Détails du profil
    Informations forums :
    Inscription : novembre 2006
    Messages : 34
    Points : 10
    Points
    10

    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
    16 911
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 911
    Points : 491 148
    Points
    491 148

    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.

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

  4. #4
    Candidat au titre de Membre du Club
    Inscrit en
    novembre 2006
    Messages
    34
    Détails du profil
    Informations forums :
    Inscription : novembre 2006
    Messages : 34
    Points : 10
    Points
    10

    Par défaut Code actuel

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

    Code :
    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
    16 911
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 911
    Points : 491 148
    Points
    491 148

    Par défaut

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

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

  6. #6
    Candidat au titre de Membre du Club
    Inscrit en
    novembre 2006
    Messages
    34
    Détails du profil
    Informations forums :
    Inscription : novembre 2006
    Messages : 34
    Points : 10
    Points
    10

    Par défaut

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

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

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

    Informations forums :
    Inscription : mai 2010
    Messages : 237
    Points : 229
    Points
    229

    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

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •