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 le nombre de fichiers de type "*.TXT" en lecture seule dans un répertoire sélectionné par l'utilisateur. Le répertoire est sélectionné grâce à la fonction fRepSélecteur .
|
||
|
// Déclaration et initialisation des variables
NbFichierLS est un entier // Nombre de fichiers répondant aux critères NbFichierTXT est un entier // Nombre de fichiers de type "*.TXT" NbFichierTXT = 0 CritèreRecherche est une chaîne // Sélection du répertoire dans lequel les fichiers vont être listés CritèreRecherche = fRepSélecteur("", "Sélectionner un répertoire",… "Recherche des .TXT dans le répertoire sélectionné") // Ajout du critère "\*.TXT" à la fin du nom du répertoire sélectionné CritèreRecherche = CritèreRecherche+"\*.TXT" // Liste des fichiers de type "*.TXT" NbFichierTXT = fListeFichier (CritèreRecherche, "AttributFichier" , & NbFichierLS) // Affichage du nombre de fichiers répondant aux critères Info("Il y a "+NbFichierLS+" fichiers en lecture seule sur "+NbFichierTXT+" fichiers listés")
// Procédure locale appelée par fListeFichier
PROCEDURE AttributFichier(Repertoire, Nom, Change, NbFichierTXT) // Déclaration de la variable NbFichierLS est un entier // Fichiers en lecture seule ? SI Position(fAttribut(Repertoire+Nom), "R") <> 0 ALORS Transfert(&NbFichierLS, NbFichierTXT, 4) NbFichierLS++ Transfert(NbFichierTXT, &NbFichierLS, 4) // Affichage du nom du fichier dans la liste "ListeFichier" ListeAjoute("ListeFichier", Repertoire+Nom) FIN RENVOYER Vrai
|
||
Le code suivant permet de connaître le nombre de fichiers de type "*.DOC" en lecture seule dans un répertoire sélectionné par l'utilisateur.
|
||
|
// Déclaration et initialisation des variables
NbFichierLS est un entier // Nombre de fichiers répondant aux critères NbFichierDoc est un entier // Nombre de fichiers de type "*.DOC" NbFichierDoc = 0 CritèreRecherche est une chaîne // Sélection du répertoire dans lequel les fichiers vont être listés CritèreRecherche = "C:\MesDocuments\" // Ajout du critère "\*.doc" à la fin du nom du répertoire sélectionné CritèreRecherche = CritèreRecherche+"\*.doc" // Liste des fichiers de type "*.DOC" NbFichierDoc = fListeFichier (CritèreRecherche, "AttributFichier" , & NbFichierLS) // Affichage du nombre de fichiers répondant aux critères Info("Il y a "+NbFichierLS+" fichiers en lecture seule sur "+NbFichierDoc+" fichiers listés")
// Procédure locale appelée par fListeFichier
PROCEDURE AttributFichier(Repertoire, Nom, Change, NbFichierDoc) // Déclaration de la variable NbFichierLS est un entier // Fichiers en lecture seule ? SI Position(fAttribut(Repertoire+Nom), "R") <> 0 ALORS Transfert(&NbFichierLS, NbFichierDoc, 4) NbFichierLS++ Transfert(NbFichierDoc, &NbFichierLS, 4) // Affichage du nom du fichier dans la liste "ListeFichier" ListeAjoute("ListeFichier", Repertoire+Nom) FIN RENVOYER Vrai
|
