Des exemples d'utilisation des fonctions du WLangage
Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.
Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.
ConstruitTableFichier (en anglais BuildBrowsingTable)
// Affiche le contenu du fichier "LESCLIENTS" dans TABLE1
ConstruitTableFichier (TABLE1, "LESCLIENTS", taAvecIDAuto )
|
FichierVersTableMemoire (en anglais FileToMemoryTable)
TableAffiche (en anglais TableDisplay)
// Rafraîchissement de la table "TableProduit"
// à partir du début de la table TableAffiche (TableProduit, taDébut )
|
TableAjoute (en anglais TableAdd)
// Ajout de "Dubois", "Pierre" et "21/06/72"
// à la fin de la table "TableClient" ResAjout = TableAjoute (TableClient, "Dubois" + TAB + "Pierre" + ... TAB + "21/06/72")
|
TableAjouteLigne (en anglais TableAddLine)
// Ajout des éléments "Dubois" et "Pierre" dans la dernière
// ligne de la table "TableProduit" TableAjouteLigne (TableProduit, "Dubois", "Pierre")
|
TableAjuste (en anglais TableAdjust)
// Modification des titres et de la largeur des deux
// premières colonnes de la table "TableProduit" TableAjuste(TableProduit, "Réf" + TAB + "50" + TAB + "C" + TAB + ... "12" + RC + "Désignation" + TAB + "200" + TAB + "G" + TAB + "12")
|
TableCherche (en anglais TableSeek)
// Recherche l'élément "Chemise" dans la colonne "ColProduit"
// Recherche générique à partir de ligne 5 ResCherche = TableCherche (ColProduit, "Chemise", Faux , 5)
|
TableCherche (en anglais TableSeek)
// Permet de lister toutes les occurrences d'une valeur recherchée.
Résultat est un entier Résultat = TableCherche (NomColonne, "ValeurRecherchée", Vrai ) TANTQUE Résultat <> "-1" Trace(Résultat) Résultat = TableCherche (NomColonne, "ValeurRecherchée", Vrai , Résultat + 1) FIN
|
TableColonnesTriees (en anglais TableSortedColumn)
TableDeplaceColonne (en anglais TableMoveColumn)
// Déplacement de la colonne "PrixProduit" tout à gauche
// dans la table "TableProduit" TableDéplaceColonne (TableProduit, PrixProduit, 1)
|
TableEnregistre (en anglais TableSave)
TableEnumereColonne (en anglais TableEnumColumn)
// Nom de la troisième colonne de la table "TableProduit"
|
TableFin (en anglais TableEnd)
TableFixeColonne (en anglais TableFixColumn)
// Fixe/libère une colonne avec un bouton
// Clic sur le bouton SI TableFixeColonne (COLONNE) ALORS // La colonne était fixée TableFixeColonne (COLONNE, Faux ) // On la libère SINON // La colonne était libre TableFixeColonne (COLONNE, Vrai ) // On la fixe FIN
|
TableIndiceColonne (en anglais TableColumnSubscript)
// Indice de la colonne "Réf" de la table "Produit"
// L'ordre d'affichage est pris en compte ResIndiceColonne = TableIndiceColonne (Produit, Réf, ticAffichage )
|
TableIndiceColonne (en anglais TableColumnSubscript)
// Indice de la colonne "Réf" de la table "Produit"
// L'ordre d'affichage est pris en compte ResIndiceColonne = TableIndiceColonne (Produit, Réf)
|
TableInfoXY (en anglais TableInfoXY)
// Code de clic sur la table TABLE1
Ligne est un entier Colonne est une chaîne // sélection sur la table TABLE1 Ligne = TableInfoXY (TABLE1, tiNUMLIGNE , SourisPosX(), SourisPosY()) Colonne = TableInfoXY (TABLE1, tiNOMCOLONNE , SourisPosX(), SourisPosY()) TRACE("Vous avez sélectionné la cellule ("+Colonne+", "+Ligne+")")
|
TableInfoXY (en anglais TableInfoXY)
// Indice de la ligne au point (50, 100) de la table "TableProduit"
ResInfo = TableInfoXY (TableProduit, tiNumLigne , 50, 100)
|
TableInsere (en anglais TableInsert)
// Insertion des éléments "Paul" et "Dubois" dans la cinquième
// ligne de la table "TableClient" ResInsertion = TableInsère (TableClient, "Paul" + TAB + "Dubois", 5)
|
TableInsereLigne (en anglais TableInsertLine)
// Insertion des éléments "Paul" et "Dubois" dans la cinquième
// ligne de la table "TableClient" TableInsèreLigne (TableClient, 5, "Paul", "Dubois")
|
TableModifie (en anglais TableModify)
// Modification des éléments "Paul" et "Dubois" de la cinquième
// ligne de la table "TableClient" TableModifie (TableClient, "Paul" + TAB + "Dubois", 5)
|
TableModifie (en anglais TableModify)
TableModifieLigne (en anglais TableModifyLine)
// Modification des éléments "Paul" et "Dubois" de la cinquième
// ligne de la table "TableClient" TableModifieLigne (TableClient, 5, "Paul", "Dubois")
|
TableNumEnr (en anglais TableRecNum)
// Numéro d'enregistrement en cours dans la table "TableProduit"
ResNumEnr = TableNumEnr (TableProduit)
|
TableOccurrence (en anglais TableCount)
// Nombre de lignes présentes dans la table "TableProduit"
ResNombreLigne = TableOccurrence (TableProduit)
|
TablePosition (en anglais TablePosition)
// Indice de la première ligne affichée dans la table "Produit"
ResPosition = TablePosition (Produit)
|
TableSaisieEnCours (en anglais TableInputInProgress)
// Si l'utilisateur n'est pas en train de saisir dans la table
SI TableSaisieEnCours (TABLE1) = Faux ALORS // Met à jour la table TableAffiche(TABLE1) FIN
|
TableSaisieLoupe (en anglais TableInputSearch)
// Passe la colonne Colonne_Date de la table Table1 en mode saisie
TableSaisieLoupe (TABLE1.COLONNE_DATE) // Passe la colonne Colonne_Nom en mode saisie TableSaisieLoupe (COLONNE_NOM)
|
TableSelect (en anglais TableSelect)
TableSelect (en anglais TableSelect)
// Lignes sélectionnées dans une table
// mémoire multi-sélection i est un entier NbSelectionne est un entier = TableSelectOccurrence(TABLE1) POUR i=1 A NbSelectionne Trace("Elément sélectionné : "+TableSelect(TABLE1,i)) FIN
|
TableSelectMoins (en anglais TableSelectMinus)
TableSelectOccurrence (en anglais TableSelectCount)
// trace le contenu des lignes sélectionnées
i est un entier NbSelectionne est un entier = TableSelectOccurrence ( Table_PRODUIT ) POUR i=1 A NbSelectionne Trace("Ligne sélectionnée : "+Table_PRODUIT[TableSelect(Table_PRODUIT,i)]) FIN
|
TableSelectPlus (en anglais TableSelectPlus)
TABleSelectVersFichier (en anglais TableSelectToFile)
i est un entier
POUR i = 1 A TableSelectOccurrence(Table_Produit) TableSelectVersFichier (Table_Produit,i) Trace(Produit.IdProduit) FIN
|
TableSupprime (en anglais TableDelete)
TableSupprimeTout (en anglais TableDeleteAll)
TableTrie (en anglais TableSort)
// Tri des colonnes "Désignation" et "Prix" dans la table "Produit"
// La colonne "Désignation" est triée dans l'ordre croissant // La colonne "Prix" est triée dans l'ordre décroissant TableTrie(Produit, "Désignation", "-Prix")
|
TableVersExcel (en anglais TableToExcel)
sFic est une chaîne
// On demande le nom du fichier sFic = fSélecteur("", "", "Choisissez le fichier d'exportation", ... "Fichiers Excel (*.xls) *.xls", "xls", fSelCrée + fSelExiste ) // Si le nom n'a pas été fourni, on abandonne l'export SI sFic = "" ALORS RETOUR // Sinon, on exporte le contenu de la table TABLE1 TableVersExcel ("TABLE1", sFic, taSansTitre )
|
TableVersWord (en anglais TableToWord)
sFic est une chaîne
// On demande le nom du fichier sFic = fSélecteur("", "", "Choisissez le fichier d'exportation", ... "Fichiers Word (*.rtf) *.rtf", "rtf", fSelCrée + fSelExiste ) // Si le nom n'a pas été fourni, on abandonne l'export SI sFic = "" ALORS RETOUR // Sinon, on exporte le contenu de la table TABLE1 TableVersWord ("TABLE1", sFic, taSansTitre )
|
TableVersWord (en anglais TableToWord)
sFic est une chaîne
// On demande le nom du fichier sFic = ComplèteRep(fRepExe()) +"MonDOCS" + ConnexionOccurrence() +".doc" // Si le nom n'a pas été fourni, on abandonne l'export SI sFic = "" ALORS RETOUR // Sinon, on exporte le contenu de la table TABLE1 TableVersWord (TABLE1, sFic, taSansTitre )
|
TableVersXML (en anglais TableToXML)
sFic est une chaîne
// On demande le nom du fichier sFic = fSélecteur("", "", "Choisissez le fichier d'exportation", ... "Fichiers XML (*.XML) *.xml", "xml", fSelCrée + fSelExiste ) // Si le nom n'a pas été fourni, on abandonne l'export SI sFic = "" ALORS RETOUR // Sinon, on exporte le contenu de la table TABLE1 TableVersXML ("TABLE1", sFic, taSansTitre )
|
TableVersXML (en anglais TableToXML)
sFic est une chaîne
// On demande le nom du fichier sFic = ComplèteRep(fRepExe()) +"MonXML" + ConnexionOccurrence() +".xml" // Si le nom n'a pas été fourni, on abandonne l'export SI sFic = "" ALORS RETOUR // Sinon, on exporte le contenu de la table TABLE1 TableVersXML (TABLE1, sFic, taSansTitre )
|