pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


Le code suivant permet de connaître les différentes dates d'un fichier.



// Déclaration des variables
ResDateCréation est une chaîne
ResDateModification est une chaîne
ResDateAccès est une chaîne
CheminFichier est une chaîne
// Sélection d'un fichier
CheminFichier = "C:\MesRépertoires\Fichier.txt"
// Récupération des différentes dates d'un fichier
ResDateCréation = fDate (CheminFichier, "", fCréation )
ResDateModification = fDate (CheminFichier, "", fModification )
ResDateAccès = fDate (CheminFichier, "", fAccès )
SI ResDateCréation <> "" ET ResDateModification <> "" ET ResDateAccès <> "" ALORS
   // Affichage des différentes dates du fichier
  
Info("La date de création est : "+ResDateCréation+ RC +...
     "La date de modification est : "+ResDateModification+ RC +...
     "La date d'accès est : "+ResDateAccès)
SINON
   // Affichage du message d'erreur si la récupération n'a pas été effectuée
  
Erreur(ErreurInfo( errMESSAGE ))
FIN


Le code suivant permet de modifier la date de création d'un fichier par la date système de la machine.



// Déclaration des variables
ResDateCréation est une chaîne
ResDateSystème est une chaîne
CheminFichier est une chaîne
// Sélection d'un fichier
CheminFichier = "C:\MesRépertoires\Fichier.txt"
// Récupération de la date système sous forme AAAAMMJJ
ResDateSystème = DateSys()
// Modification de la date de création du fichier sélectionné
ResDateCréation = fDate (CheminFichier, ResDateSystème, fCréation )
SI ResDateCréation <> "" ALORS
   // Affichage de la date de création
 
  Info("La date de création est à présent : "+ResDateCréation)
SINON
   // Affichage du message d'erreur si la récupération n'a pas été effectuée
 
  Erreur(ErreurInfo( errMESSAGE ))
FIN


Le code suivant permet de connaître les différentes dates d'un fichier.



// Déclaration des variables
ResDateCréation est une chaîne
ResDateModification est une chaîne
ResDateAccès est une chaîne
CheminFichier est une chaîne = "\Mes Fichiers\Fichier.TXT"
// Récupération des différentes dates d'un fichier
ResDateCréation = fDate (CheminFichier, "", fCréation )
ResDateModification = fDate (CheminFichier, "", fModification )
ResDateAccès = fDate (CheminFichier, "", fAccès )
SI ResDateCréation <> "" ET ResDateModification <> "" ET ResDateAccès <> "" ALORS
    // Affichage des différentes dates du fichier
    Info("La date de création est : "+ResDateCréation+ RC +...
        "La date de modification est : "+ResDateModification+ RC +...
        "La date d'accès est : "+ResDateAccès)
SINON
    // Affichage du message d'erreur si la récupération n'a pas été effectuée
    Erreur(ErreurInfo( errMESSAGE ))
FIN


Le code suivant permet de modifier la date de création d'un fichier par la date système de la machine.



// Déclaration des variables
ResDateCréation est une chaîne
ResDateSystème est une chaîne
CheminFichier est une chaîne = "\Mes Fichiers\Fichier.TXT"
// Récupération de la date système sous forme AAAAMMJJ
ResDateSystème = DateSys()
// Modification de la date de création du fichier sélectionné
ResDateCréation = fDate (CheminFichier, ResDateSystème, fCréation )
SI ResDateCréation <> "" ALORS
    // Affichage de la date de création
    Info("La date de création est à présent : "+ResDateCréation)
SINON
    // Affichage du message d'erreur si la récupération n'a pas été effectuée
    Erreur(ErreurInfo( errMESSAGE ))
FIN