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.
Le code suivant permet de :
|
||
// Déclaration et initialisation des variables
CheminFichierRep est une chaîne ResNomCourt est une chaîne IndiceTab est un entier = 0 // Indice du tableau IndiceBoucle est un entier TableauChemin est un tableau // Récupération du premier fichier d'un répertoire CheminFichierRep = fRep("C:\MesRépertoires\*.*", frFichier ) TANTQUE CheminFichierRep <> "" ALORS // Incrémentation de l'indice du tableau IndiceTab++ // Intégration des noms des fichiers dans le tableau TableauChemin[IndiceTab] = CheminFichierRep // Récupération du fichier suivant CheminFichierRep = fRep("") FIN POUR IndiceBoucle = 1 à IndiceTab // Récupération du nom court ResNomCourt = fNomCourt (TableauChemin[IndiceBoucle]) SI ResNomCourt = "" ALORS // Affichage du message d'erreur si la récupération n'a pas été effectuée Erreur(ErreurInfo( errMESSAGE )) SINON // Affichage du nom court dans la liste ListeAjoute(ListeNomCourt, ResNomCourt) FIN FIN
|