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.
fAttribut (en anglais fAttribute)
// Récupération des attributs d'un fichier
ResAttribut = fAttribut (CheminFichier + "\Fichier.txt") SI ResAttribut <> "ERR" ALORS ... FIN
|
fBloque (en anglais fLock)
// Ouverture d'un fichier externe
IdFichier = fOuvre("C:\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS ... // Blocage du fichier externe ResBloque = fBloque (IdFichier) ... FIN
|
fChargeTexte (en anglais fLoadText)
// Charger le contenu du fichier "C:\Temp\MonFichier.txt" dans
// le champ de saisie "Saisie1" Saisie1 = fChargeTexte ("C:\Temp\MonFichier.txt")
|
fChargeTexte (en anglais fLoadText)
// Charger le contenu du fichier "\Temp\MonFichier.txt" dans
// le champ de saisie "Saisie1" Saisie1 = fChargeTexte ("\Temp\MonFichier.txt")
|
fCheminCourt (en anglais fShortPath)
// Récupération du chemin court d'un fichier
ResCheminCourt = fCheminCourt ("C:\MesRépertoires\Compte-Rendu Mars 2000.doc") // fCheminCourt renvoie : "C:\MesRep~1\Compte~1.doc"
|
fCheminLong (en anglais fLongPath)
// Récupération du chemin long d'un fichier
ResCheminLong= fCheminLong ("C:\MesRep~1\Compte~1.doc") // fCheminLong renvoie "C:\MesRépertoires\Compte-Rendu Mars 2000.doc"
|
fCompacte (en anglais fCompress)
// Compression d'un fichier
Res = fCompacte ("C:\Répertoires\Fichier.txt", "C:\Répertoires\FichierCompressé.txt")
|
fCompare (en anglais fCompare)
// Comparaison du contenu de deux fichiers
Res = fCompare ("C:\Répertoires\FichierA.doc", "C:\Répertoires\FichierB.doc")
|
fCompare (en anglais fCompare)
// Comparaison du contenu de deux fichiers
Res = fCompare ("\Répertoires\FichierA.psw", "\Répertoires\FichierB.psw")
|
fCopieFichier (en anglais fCopyFile)
// Copie du fichier.doc vers le fichier CopieFichier.doc
Res = fCopieFichier ("C:\Répertoires\Fichier.doc", ... "D:\Documents\CopieFichier.doc")
|
fCopieFichier (en anglais fCopyFile)
// Copie d'un fichier
Res = fCopieFichier ("\Répertoires\Fichier.psw", ... "\Documents\CopieFichier.psw")
|
fCopieFichier (en anglais fCopyFile)
// Copie les fichiers présents dans
// le répertoire "C:\MesImages" // Les sous-répertoires et leurs fichiers sont // pris en compte (constante frRécursif) ResCopie = fCopieFichier ("C:\MesImages\*.*", ... "D:\MesFichiers\" , frRécursif )
|
fCree (en anglais fCreate)
// Création du fichier externe
ResCréation = fCrée ("C:\MesRépertoires\Fichier.txt") SI ResCréation <> -1 ALORS ... FIN
|
fCree (en anglais fCreate)
// Création du fichier externe
ResCréation = fCrée ("\MesRépertoires\Fichier.txt") SI ResCréation <> -1 ALORS ... FIN
|
fCrypte (en anglais fCrypt)
// Cryptage d'un fichier
ResCrypte = fCrypte ("C:\MesRépertoires\Fichier.txt",... "C:\MesRépertoires\FichierCrypté.txt", "MotDePasse")
|
fCrypte (en anglais fCrypt)
// Cryptage d'un fichier
ResCrypte = fCrypte ("\MesRépertoires\Fichier.txt",... "\MesRépertoires\FichierCrypté.txt", "MotDePasse")
|
fDate (en anglais fDate)
// Récupération de la date de modification d'un fichier
ResDate = fDate ("C:\MesRépertoires\Fichier.txt", "", fModification )
|
fDate (en anglais fDate)
// Récupération de la date de création d'un fichier
ResDate = fDate ("\MesRépertoires\Fichier.txt", "", fCréation )
|
fDebloque (en anglais fUnlock)
// Ouverture d'un fichier externe
IdFichier = fOuvre("C:\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS // Blocage du fichier ResBloque = fBloque(IdFichier) ... // Déblocage du fichier externe ResDébloque = fDébloque (IdFichier) FIN
|
fDecompacte (en anglais fUncompress)
// Décompression d'un fichier
ResDécompresse = fDécompacte ("C:\MesRépertoires\FichierCompressé.txt", ... "C:\MesRépertoires\FichierDécompressé.txt")
|
fDecrypte (en anglais fUncrypt)
// Décryptage d'un fichier
ResDécrypte = fDécrypte ("C:\MonRep\FichierCrypté.txt",... "C:\MonRep\FichierDécrypté.txt", "MotDePasse")
|
fDecrypte (en anglais fUncrypt)
// Décryptage d'un fichier
ResDécrypte = fDécrypte ("\MonRep\FichierCrypté.txt",... "\MonRep\FichierDécrypté.txt", "MotDePasse")
|
fDeplaceFichier (en anglais fMoveFile)
// Déplacement d'un fichier
|
fDisqueEnCours (en anglais fCurrentDrive)
fDisqueInfo (en anglais fDriveInfo)
fDisqueInfo (en anglais fDriveInfo)
// Nom du volume
|
fDisquePret (en anglais fDriveReady)
fEcrit (en anglais fWrite)
// Ouverture d'un fichier externe
IdFichier = fOuvre("C:\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS // Écriture dans ce fichier ResEcriture = fEcrit (IdFichier, "Compte-rendu de la réunion") SI ResEcriture <> -1 ALORS ... FIN FIN
|
fEcrit (en anglais fWrite)
// Ouverture d'un fichier externe
IdFichier = fOuvre("\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS // Écriture dans ce fichier ResEcriture = fEcrit (IdFichier, "Compte-rendu de la réunion") SI ResEcriture <> -1 ALORS ... FIN FIN
|
fEcritLigne (en anglais fWriteLine)
// Ouverture d'un fichier externe
IdFichier = fOuvre("C:\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS // Écriture d'une ligne dans ce fichier ResEcriture = fEcritLigne (IdFichier, "Compte-rendu de la réunion") SI ResEcriture = Faux ALORS ... FIN FIN
|
fEcritLigne (en anglais fWriteLine)
// Ouverture d'un fichier externe
IdFichier = fOuvre("\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS // Écriture d'une ligne dans ce fichier ResEcriture = fEcritLigne (IdFichier, "Compte-rendu de la réunion") SI ResEcriture = Faux ALORS ... FIN FIN
|
fExtraitChemin (en anglais fExtractPath)
// Récupération du nom du fichier
ResNomFichier = fExtraitChemin ("C:\MesRépertoires\Fichier.doc", fFichier ) // fExtraitChemin renvoie "Fichier"
|
fExtraitChemin (en anglais fExtractPath)
// Récupération du nom du fichier
ResNomFichier = fExtraitChemin ("\MesRépertoires\Fichier.psw", fFichier ) // fExtraitChemin renvoie "Fichier"
|
fFerme (en anglais fClose)
// Ouverture d'un fichier externe
IdFichier = fOuvre("C:\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS ... // Fermeture du fichier externe ResFerme = fFerme (IdFichier) FIN
|
fFerme (en anglais fClose)
// Ouverture d'un fichier externe
IdFichier = fOuvre("\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS ... // Fermeture du fichier externe ResFerme = fFerme (IdFichier) FIN
|
fFichierExiste (en anglais fFileExist)
MonFichier est une chaîne = "C:\Temp\Exemple.txt"
SI fFichierExiste (MonFichier) ALORS Info("Le fichier "+ MonFichier +" existe bien sur le disque") FIN
|
fFichierExiste (en anglais fFileExist)
MonFichier est une chaîne = "\Temp\Exemple.txt"
SI fFichierExiste (MonFichier) = Vrai ALORS Info("Le fichier "+ MonFichier +" existe bien") FIN
|
fFichierTemp (en anglais fTempFile)
// Récupération du nom d'un fichier temporaire unique
ResFichierTempUnique = fFichierTemp ("ABC", "C:\MesRépertoires") // fFichierTemp renvoie "C:\MesRépertoires\ABCxxx.tmp"
|
fFichierTemp (en anglais fTempFile)
// Récupération du nom d'un fichier temporaire unique
ResFichierTempUnique = fFichierTemp ("ABC", "\MesRépertoires") // fFichierTemp renvoie "\MesRépertoires\ABCxxx.tmp"
|
fFiltreImage (en anglais fGraphicFilter)
fHeure (en anglais fTime)
// Récupération de l'heure de modification d'un fichier
ResHeure = fHeure ("C:\MesRépertoires\Fichier.txt", "", fModification )
|
fHeure (en anglais fTime)
// Récupération de l'heure de création d'un fichier
ResHeure = fHeure ("\MesRépertoires\Fichier.txt", "", fCréation )
|
fListeFichier (en anglais fListFile)
// Liste les fichiers de type ".BMP" présents dans "C:\MesDocuments".
// La procédure AttributFichier retourne le nombre de fichiers en lecture seule. ResListeFichier = fListeFichier ("C:\MesDocuments\*.bmp", "AttributFichier")
|
fListeFichier (en anglais fListFile)
// Liste les fichiers de type ".BMP" présents dans "\MesDocuments".
// La procédure AttributFichier retourne le nombre de fichiers en lecture seule. ResListeFichier = fListeFichier ("\MesDocuments\*.bmp", " AttributFichier")
|
fLit (en anglais fRead)
// Ouverture d'un fichier externe
IdFichier = fOuvre("C:\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS // Lecture dans ce fichier ResLecture = fLit (IdFichier, 200) ... FIN
|
fLit (en anglais fRead)
// Ouverture d'un fichier externe
IdFichier = fOuvre("\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS // Lecture dans ce fichier ResLecture = fLit (IdFichier, 200) ... FIN
|
fLitLigne (en anglais fReadLine)
// Ouverture d'un fichier externe
IdFichier = fOuvre("C:\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS // Lecture d'une ligne dans ce fichier ResLecture = fLitLigne (IdFichier) ... FIN
|
fLitLigne (en anglais fReadLine)
// Ouverture d'un fichier externe
IdFichier = fOuvre("\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS // Lecture d'une ligne dans ce fichier ResLecture = fLitLigne (IdFichier) ... FIN
|
fNomCourt (en anglais fShortName)
// Récupération du nom court d'un fichier
ResNomCourt = fNomCourt ("C:\MesRépertoires\Compte-Rendu Mars 2001.doc") // fNomCourt renvoie "Compte~1.doc"
|
fNomLong (en anglais fLongName)
// Récupération du nom long d'un fichier
ResNomLong = fNomLong ("C:\MesRép~1\Compte~1.doc") // fNomLong renvoie "Compte-Rendu Mars 2001.doc"
|
fOuvre (en anglais fOpen)
// Ouverture d'un fichier externe
ResOuverture = fOuvre ("C:\MesRépertoires\Fichier.txt", foLectureEcriture ) SI ResOuverture <> -1 ALORS ... FIN
|
fOuvre (en anglais fOpen)
// Ouverture d'un fichier externe
ResOuverture = fOuvre ("\MesRépertoires\Fichier.txt", foLectureEcriture ) SI ResOuverture <> -1 ALORS ... FIN
|
fOuvre (en anglais fOpen)
// Ouverture d'un port infrarouge
ResOuverture = fOuvre ("COM3", foEcriture ) SI ResOuverture <> -1 ALORS fEcrit(ResOuverture, "Octets à transmettre") FIN
|
fPositionne (en anglais fSeek)
// Ouverture d'un fichier externe
IdFichier = fOuvre("C:\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS ... // Récupération de la position en cours ResPosition = fPositionne (IdFichier, 0, fpCourant ) ... FIN
|
fPositionne (en anglais fSeek)
// Ouverture d'un fichier externe
IdFichier = fOuvre("\MesRépertoires\Fichier.txt", foLectureEcriture ) SI IdFichier <> -1 ALORS ... // Récupération de la position en cours ResPosition = fPositionne (IdFichier, 0, fpCourant ) ... FIN
|
fRenomme (en anglais fRename)
// Modification du nom d'un fichier
Res = fRenomme ("C:\Répertoire\Fichier.doc", "C:\Répertoire\FichierRenommé.doc")
|
fRenomme (en anglais fRename)
// Modification du nom d'un fichier
Res = fRenomme ("\Répertoire\Fichier.psw", "\Répertoire\FichierRenommé.psw")
|
fRep (en anglais fDir)
// Recherche du fichier "C:\MonRépertoire\MonFichier.doc"
ResRecherche = fRep ("C:\MonRépertoire\MonFichier.doc") // Recherche du fichier "C:\MonRépertoire\MonFichier.doc" ResRecherche = fRep ("C:\MonRépertoire\MonFichier.doc", FRFichier ) // Recherche du répertoire "C:\MonRépertoire\" ResRecherche = fRep ("C:\MonRépertoire\", FRRépertoire )
|
fRep (en anglais fDir)
// Recherche du fichier "\MonRépertoire\MonFichier.psw"
ResRecherche = fRep ("\MonRépertoire\MonFichier.psw") // Recherche du fichier "\MonRépertoire\MonFichier.psw" ResRecherche = fRep ("\MonRépertoire\MonFichier.psw", FRFichier ) // Recherche du répertoire "\MonRépertoire\" ResRecherche = fRep ("\MonRépertoire\", FRRépertoire )
|
fRepAttribut (en anglais fDirAttribute)
// Récupération des attributs d'un répertoire
ResAttribut = fRepAttribut ("C:\MesRépertoires") SI ResAttribut <> "ERR" ALORS ... FIN
|
fRepAttribut (en anglais fDirAttribute)
// Récupération des attributs d'un répertoire
ResAttribut = fRepAttribut ("\MesRépertoires") SI ResAttribut <> "ERR" ALORS ... FIN
|
fRepCopie (en anglais fCopyDir)
// Copie d'un répertoire
Res = fRepCopie ("C:\Répertoire\MesFichiers", "D:\Documents\CopieFichier", ... frConfirmer + frJauge + frRécursif )
|
fRepCree (en anglais fMakeDir)
// Création d'un répertoire
ResCréation = fRepCrée ("C:\MesRépertoires\MesFichiers") // Si le répertoire MesRépertoires n'existe pas, // la fonction crée le répertoire MesRépertoires puis le répertoire MesFichiers
|
fRepCree (en anglais fMakeDir)
fRepDeplace (en anglais fMoveDir)
// Déplacement d'un répertoire
Res = fRepDéplace ("C:\Répertoires\MesFichiers", "D:\Documents\CopieFichier")
|
fRepDonnees (en anglais fDataDir)
// création d'un fichier .INI
sRepINI est une chaîne SI fRepDonnées () <> "" ALORS sRepINI = CompleteRep( fRepDonnées ()) + "MONPROJET.INI" SINON sRepINI = "MONPROJET.INI" FIN IniEcrit("SECTION", "DEJALANCE", "OUI", sRepINI)
|
fRepEnCours (en anglais fCurrentDir)
fRepertoireExiste (en anglais fDirectoryExist)
MonRépertoire est une chaîne = "C:\RépertoireDonnées"
SI fRépertoireExiste (MonRépertoire) ALORS Info("Le répertoire "+ MonRépertoire +" existe bien sur le disque") FIN
|
fRepertoireTemp (en anglais fTempDirectory)
fRepExe (en anglais fExeDir)
fRepSelecteur (en anglais fSelectDir)
// Sélection d'un répertoire
Répertoire = fRepSélecteur ("C:\Répertoires\", "Sélectionnez un répertoire",... "Sélectionnez le répertoire que vous désirez copier")
|
fRepSupprime (en anglais fRemoveDir)
fRepSupprime (en anglais fRemoveDir)
fRepWeb (en anglais fWebDir)
fSauveTexte (en anglais fSaveText)
//Remplit le fichier avec le contenu d'une variable
MaChaîneTexte est une chaîne = "Ceci est un test" + RC + ... "Utilisation de fSauveTexte" fSauveTexte ("C:\Temp\MonFichier.txt", MaChaîneTexte) //Remplit le fichier avec le contenu d'un champ //NOM_PRENOM est un champ de saisie fSauveTexte ("C:\Clients\NomPrenom.txt", NOM_PRENOM) //Effectue une copie de fichier en remplaçant "Franc" par "Euro" ContenuFichier est une chaîne ContenuFichier = fChargeTexte("C:\Soldes\PrixFrancs.txt") ContenuFichier = Remplace(ContenuFichier, "Franc", "Euro") fSauveTexte ("C:\Soldes\PrixEuros.txt", ContenuFichier)
|
fSauveTexte (en anglais fSaveText)
// Remplit le fichier avec le contenu d'une variable
MaChaîneTexte est une chaîne = "Ceci est un test" + RC + ... "Utilisation de fSauveTexte" fSauveTexte("\Temp\MonFichier.txt", MaChaîneTexte) // Remplit le fichier avec le contenu d'un champ // NOM_PRENOM est un champ de saisie fSauveTexte("\Clients\NomPrenom.txt", NOM_PRENOM) // Effectue une copie de fichier en remplaçant "Franc" par "Euro" ContenuFichier est une chaîne ContenuFichier = fChargeTexte("\Soldes\PrixFrancs.txt") ContenuFichier = Remplace(ContenuFichier, "Franc", "Euro") fSauveTexte("\Soldes\PrixEuros.txt", ContenuFichier)
|
fSelecteur (en anglais fSelect)
// Sélection d'un fichier
Fichier = fSélecteur ("C:\Répertoires", "Fichier.txt", ... "Sélectionner un fichier",... "Fichier Texte (*.TXT)"+ TAB +"*.txt"+ RC +"Tous"+ TAB +"*.*", "txt")
|
fSelecteur (en anglais fSelect)
// Sélection d'un fichier dans le
// répertoire "\Mes Documents\Répertoires" Fichier = fSélecteur ("Répertoires", "Fichier.txt", ... "Sélectionner un fichier", ... "Fichier Texte (*.TXT)"+ TAB +"*.txt"+ RC +"Tous"+ TAB +"*.*", "txt")
|
fSelecteurImage (en anglais fImageSelect)
// Sélection d'un fichier image
Fichier = fSélecteurImage ("C:\Répertoires", "Fichier.bmp", "Sélectionner une image", ... "JPEG (*.JPG)"+ TAB +"*.jpg"+ RC +"BMP (*.BMP)"+ TAB +"*.bmp")
|
fStopCompacte (en anglais fStopCompress)
fSupprime (en anglais fDelete)
fSupprime (en anglais fDelete)
fTaille (en anglais fSize)
fTaille (en anglais fSize)
fTailleDecompacte (en anglais fSizeUncompressed)
// Taille avant compression d'un fichier
ResTailleDécompacté = fTailleDécompacté ("C:\MesRépertoires\Fichier.doc")
|