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 type des données saisies dans une colonne d'un fichier XLS. Les colonnes 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 ResTypeColonne est un entier // Ouverture d'un fichier XLS IdFichierXLS = xlsOuvre("C:\MesRépertoires\MesFichiers\Fichier.XLS") SI IdFichierXLs<> -1 ALORS // Type des données saisies dans la colonne ResTypeColonne= xlsTypeColonne (IdFichierXLS, 3, Vrai ) // Affichage du type des données saisies dans la colonne SELON ResTypeColonne CAS xlsTypeChaîne :Info("La colonne est de type chaîne") CAS xlsTypeDouble :Info("La colonne est de type numérique") CAS xlsTypeDate :Info("La colonne est de type date") CAS xlsTypeHeure :Info("La colonne est de type heure") CAS xlsTypeErreur :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)
|
||
Le code suivant permet de connaître le type des données saisies dans une colonne d'un fichier XLS. Les colonnes entièrement vides sont prises en compte (booléen Faux ). Ce fichier est préalablement ouvert avec la fonction xlsOuvre .
|
||
|
// Déclaration des variables
IdFichierXLS est un entier ResTypeColonne est un entier // Ouverture d'un fichier XLS IdFichierXLS = xlsOuvre("C:\MesRépertoires\MesFichiers\Fichier.XLS") SI IdFichierXLS<> -1 ALORS // Type des données saisies dans la colonne ResTypeColonne= xlsTypeColonne (IdFichierXLS, 3, Faux ) // Affichage du type des données saisies dans la colonne SELON ResTypeColonne CAS xlsTypeChaîne :Info("La colonne est de type chaîne") CAS xlsTypeDouble :Info("La colonne est de type numérique") CAS xlsTypeDate :Info("La colonne est de type date") CAS xlsTypeHeure :Info("La colonne est de type heure") CAS xlsTypeVide :Info("La colonne est entièrement vide") CAS xlsTypeErreur :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)
|
