Auteur: Patrick BikerExemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
Le code suivant permet de connaître les différentes heures d'un fichier. Le fichier est sélectionné à l'aide de la fonction fSélecteur .
|
||
|
// Déclaration des variables
ResHeureCréation est une chaîne ResHeureModification est une chaîne ResHeureAccès est une chaîne CheminFichier est une chaîne // Sélection d'un fichier CheminFichier = fSélecteur("", "", "Sélectionner un fichier", ... "Tous fichiers (*.*)"+ TAB +"*.*", "", fselOuvre + fselExiste ) // Récupération des différentes heures d'un fichier ResHeureCréation = fHeure (CheminFichier, "", fCréation ) ResHeureModification = fHeure (CheminFichier, "", fModification ) ResHeureAccès = fHeure (CheminFichier, "", fAccès ) SI ResDateCréation <> "" ET ResHeureModification <> "" ET ResHeureAccès <> "" ALORS // Affichage des différentes heures du fichier Info("L'heure de création est : "+ResHeureCréation+ RC +... "L'heure de modification est : "+ResHeureModification+ RC +... "L'heure d'accès est : "+ResHeureAccè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 remplacer l'heure de création d'un fichier par l'heure système de la machine. Ce fichier est sélectionné à l'aide de la fonction fSélecteur .
|
||
|
// Déclaration des variables
ResHeureCréation est une chaîne ResHeureSystème est une chaîne CheminFichier est une chaîne // Sélection d'un fichier CheminFichier = fSélecteur("", "", "Sélectionner un fichier",... "Tous fichiers (*.*)"+ TAB +"*.*", "", fselOuvre + fselExiste ) // Récupération de l'heure système sous forme HHMMSSCC ResHeureSystème= HeureSys() // Extraction de l'heure système sous forme HHMMSS ResHeureSystème= Gauche(ResHeureSystème, 6) // Modification de l'heure de création du fichier sélectionné ResHeureCréation = fHeure (CheminFichier, ResHeureSystème, fCréation ) SI ResDateCréation <> "" ALORS // Affichage de l'heure de création du fichier Info("L'heure de création est à présent : "+ResHeureCré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 l'heure de modification et d'accès d'un fichier.
|
||
|
// Déclaration des variables
ResHeureModification est une chaîne ResHeureAccè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 heures d'un fichier ResHeureModification = fHeure (CheminFichier, "", fModification ) ResHeureAccès = fHeure (CheminFichier, "", fAccès ) SI ResHeureModification <> "" ET ResHeureAccès <> "" ALORS // Affichage des différentes heures du fichier Info(" L'heure de modification est : "+ResHeureModification+ RC +... "L'heure d'accès est : "+ResHeureAccè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 remplacer l'heure de modification d'un fichier par l'heure système du poste en cours.
|
||
|
// Déclaration des variables
ResHeureModification est une chaîne ResHeureSystè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 l'heure système sous forme HHMMSSCC ResHeureSystème= HeureSys() // Extraction de l'heure système sous forme HHMMSS ResHeureSystème= Gauche(ResHeureSystème, 6) // Modification de l'heure de modification du fichier sélectionné ResHeureModification = fHeure (CheminFichier, ResHeureSystème, fModification ) SI ResDateModification <> "" ALORS // Affichage de l'heure de modification du fichier Info("L'heure de modification est à présent : "+ResHeureModification) SINON // Affichage du message d'erreur si la récupération n'a pas été effectuée Erreur(ErreurInfo( errMESSAGE )) FIN
|
