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 d'obtenir le nombre de lignes d'un fichier XLS. Les lignes entièrement vides ne sont pas prises en compte (booléen Vrai ). Ce fichier est préalablement ouvert avec la fonction xlsOuvre .



// Déclaration des variables
IdFichierXLS est un entier
ResNbLignes est un entier
// Ouverture d'un fichier XLS
IdFichierXLS = xlsOuvre("C:\MesRépertoires\MesFichiers\Fichier.XLS")
SI IdFichierXLS<> -1 ALORS
   // Nombre de lignes
   ResNbLignes= xlsNbLigne (IdFichierXLS, Vrai )
   SI ResNbLignes<> -1 ALORS
      SI ResNbLignes= 0
          // Il n'y a pas de lignes
          Info("Le fichier XLS ne contient pas de lignes")
      SINON
          // Affichage du nombre de lignes
          Info("Le fichier contient : " + ResNbLignes + "lignes")
      FIN
   SINON
      // Affichage du message d'erreur
      Erreur(xlsMsgErreur(IdFichierXLS))
   FIN
SINON
   // Affichage du message d'erreur si l'ouverture n'a pas été effectuée
    Erreur(xlsMsgErreur(IdFichierXLS))
FIN
// Fermeture du fichier XLS
xlsFerme(IdFichierXLS)