pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

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.

Aller à la page des exemples évolués

fAttribut (en anglais fAttribute)

// Récupération des attributs d'un fichier
ResAttribut = fAttribut (CheminFichier + "\Fichier.txt")
SI ResAttribut <> "ERR" ALORS
   ...
FIN


Début de la page

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


Début de la page

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")


Début de la page

fChargeTexte (en anglais fLoadText)

// Charger le contenu du fichier "\Temp\MonFichier.txt" dans
// le champ de saisie "Saisie1"
Saisie1 = fChargeTexte ("\Temp\MonFichier.txt")


Début de la page

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"


Début de la page

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"


Début de la page

fCompacte (en anglais fCompress)

// Compression d'un fichier
Res = fCompacte ("C:\Répertoires\Fichier.txt", "C:\Répertoires\FichierCompressé.txt")


Début de la page

fCompare (en anglais fCompare)

// Comparaison du contenu de deux fichiers
Res = fCompare ("C:\Répertoires\FichierA.doc", "C:\Répertoires\FichierB.doc")


Début de la page

fCompare (en anglais fCompare)

// Comparaison du contenu de deux fichiers
Res = fCompare ("\Répertoires\FichierA.psw", "\Répertoires\FichierB.psw")


Début de la page

fCopieFichier (en anglais fCopyFile)

// Copie du fichier.doc vers le fichier CopieFichier.doc
Res = fCopieFichier ("C:\Répertoires\Fichier.doc", ...
        "D:\Documents\CopieFichier.doc")


Début de la page

fCopieFichier (en anglais fCopyFile)

// Copie d'un fichier
Res = fCopieFichier ("\Répertoires\Fichier.psw", ...
        "\Documents\CopieFichier.psw")


Début de la page

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 )


Début de la page

fCree (en anglais fCreate)

// Création du fichier externe
ResCréation = fCrée ("C:\MesRépertoires\Fichier.txt")
SI ResCréation <> -1 ALORS 
   ...
FIN


Début de la page

fCree (en anglais fCreate)

// Création du fichier externe
ResCréation = fCrée ("\MesRépertoires\Fichier.txt")
SI ResCréation <> -1 ALORS 
   ...
FIN


Début de la page

fCrypte (en anglais fCrypt)

// Cryptage d'un fichier
ResCrypte = fCrypte ("C:\MesRépertoires\Fichier.txt",...
    "C:\MesRépertoires\FichierCrypté.txt", "MotDePasse")


Début de la page

fCrypte (en anglais fCrypt)

// Cryptage d'un fichier
ResCrypte = fCrypte ("\MesRépertoires\Fichier.txt",...
    "\MesRépertoires\FichierCrypté.txt", "MotDePasse")


Début de la page

fDate (en anglais fDate)

// Récupération de la date de modification d'un fichier
ResDate = fDate ("C:\MesRépertoires\Fichier.txt", "", fModification )


Début de la page

fDate (en anglais fDate)

// Récupération de la date de création d'un fichier
ResDate = fDate ("\MesRépertoires\Fichier.txt", "", fCréation )


Début de la page

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


Début de la page

fDecompacte (en anglais fUncompress)

// Décompression d'un fichier
ResDécompresse = fDécompacte ("C:\MesRépertoires\FichierCompressé.txt", ...
     "C:\MesRépertoires\FichierDécompressé.txt")


Début de la page

fDecrypte (en anglais fUncrypt)

// Décryptage d'un fichier
ResDécrypte = fDécrypte ("C:\MonRep\FichierCrypté.txt",...
     "C:\MonRep\FichierDécrypté.txt", "MotDePasse")


Début de la page

fDecrypte (en anglais fUncrypt)

// Décryptage d'un fichier
ResDécrypte = fDécrypte ("\MonRep\FichierCrypté.txt",...
     "\MonRep\FichierDécrypté.txt", "MotDePasse")


Début de la page

fDeplaceFichier (en anglais fMoveFile)

// Déplacement d'un fichier
Res est un booléen = fDéplaceFichier ("D:\Exemple\Fen1.wdw","C:\Temp\Fenêtre\Fen1.wdw")


Début de la page

fDisqueEnCours (en anglais fCurrentDrive)

// Connaître le disque en cours
ResDisqueEnCours = fDisqueEnCours ()


Début de la page

fDisqueInfo (en anglais fDriveInfo)

// Taille totale du disque ?
ResTailleDisque est un entier  = fDisqueInfo ("C:", fdEspaceTotal )


Début de la page

fDisqueInfo (en anglais fDriveInfo)

// Nom du volume
Resultat est une chaîne
Resultat = fDisqueInfo ( "C:" , fdNomVolume )
Info( Resultat )


Début de la page

fDisquePret (en anglais fDriveReady)

// Lecteur de disquette disponible ?
ResDisponible = fDisquePrêt ("A")


Début de la page

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


Début de la page

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


Début de la page

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


Début de la page

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


Début de la page

fExtraitChemin (en anglais fExtractPath)

// Récupération du nom du fichier
ResNomFichier = fExtraitChemin ("C:\MesRépertoires\Fichier.doc", fFichier )
// fExtraitChemin renvoie "Fichier"


Début de la page

fExtraitChemin (en anglais fExtractPath)

// Récupération du nom du fichier
ResNomFichier = fExtraitChemin ("\MesRépertoires\Fichier.psw", fFichier )
// fExtraitChemin renvoie "Fichier"


Début de la page

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


Début de la page

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


Début de la page

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


Début de la page

fFichierExiste (en anglais fFileExist)

MonFichier est une chaîne = "\Temp\Exemple.txt"
SI fFichierExiste (MonFichier) = Vrai ALORS
    Info("Le fichier "+ MonFichier +" existe bien")
FIN


Début de la page

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"


Début de la page

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"


Début de la page

fFiltreImage (en anglais fGraphicFilter)

// Récupération de la liste des formats d'images
ResFormatImage = fFiltreImage ()


Début de la page

fHeure (en anglais fTime)

// Récupération de l'heure de modification d'un fichier
ResHeure = fHeure ("C:\MesRépertoires\Fichier.txt", "", fModification )


Début de la page

fHeure (en anglais fTime)

// Récupération de l'heure de création d'un fichier
ResHeure = fHeure ("\MesRépertoires\Fichier.txt", "", fCréation )


Début de la page

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")


Début de la page

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")


Début de la page

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


Début de la page

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


Début de la page

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


Début de la page

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


Début de la page

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"


Début de la page

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"


Début de la page

fOuvre (en anglais fOpen)

// Ouverture d'un fichier externe
ResOuverture = fOuvre ("C:\MesRépertoires\Fichier.txt", foLectureEcriture )
SI ResOuverture <> -1 ALORS 
   ...
FIN


Début de la page

fOuvre (en anglais fOpen)

// Ouverture d'un fichier externe
ResOuverture = fOuvre ("\MesRépertoires\Fichier.txt", foLectureEcriture )
SI ResOuverture <> -1 ALORS 
    ...
FIN


Début de la page

fOuvre (en anglais fOpen)

// Ouverture d'un port infrarouge
ResOuverture = fOuvre ("COM3", foEcriture )
SI ResOuverture <> -1 ALORS 
    fEcrit(ResOuverture, "Octets à transmettre")
FIN


Début de la page

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


Début de la page

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


Début de la page

fRenomme (en anglais fRename)

// Modification du nom d'un fichier
Res = fRenomme ("C:\Répertoire\Fichier.doc", "C:\Répertoire\FichierRenommé.doc")


Début de la page

fRenomme (en anglais fRename)

// Modification du nom d'un fichier
Res = fRenomme ("\Répertoire\Fichier.psw", "\Répertoire\FichierRenommé.psw")


Début de la page

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 )


Début de la page

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 )


Début de la page

fRepAttribut (en anglais fDirAttribute)

// Récupération des attributs d'un répertoire
ResAttribut = fRepAttribut ("C:\MesRépertoires")
SI ResAttribut <> "ERR" ALORS
   ...
FIN


Début de la page

fRepAttribut (en anglais fDirAttribute)

// Récupération des attributs d'un répertoire
ResAttribut = fRepAttribut ("\MesRépertoires")
SI ResAttribut <> "ERR" ALORS
    ...
FIN


Début de la page

fRepCopie (en anglais fCopyDir)

// Copie d'un répertoire
Res = fRepCopie ("C:\Répertoire\MesFichiers", "D:\Documents\CopieFichier", ...
          frConfirmer + frJauge + frRécursif )


Début de la page

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


Début de la page

fRepCree (en anglais fMakeDir)

// Création d'un répertoire
ResCréation = fRepCrée ("\MesRépertoires\MesFichiers")


Début de la page

fRepDeplace (en anglais fMoveDir)

// Déplacement d'un répertoire
Res = fRepDéplace ("C:\Répertoires\MesFichiers", "D:\Documents\CopieFichier")


Début de la page

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)


Début de la page

fRepEnCours (en anglais fCurrentDir)

// Connaître le répertoire en cours
ResRepEnCours = fRepEnCours ()


Début de la page

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


Début de la page

fRepertoireTemp (en anglais fTempDirectory)

// Récupération du nom du répertoire temporaire
ResRepTemp = fRépertoireTemp ()


Début de la page

fRepExe (en anglais fExeDir)

// Répertoire de lancement
Info("Cette application a été lancée depuis "+ ...
              fRepExe ())


Début de la page

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")


Début de la page

fRepSupprime (en anglais fRemoveDir)

// Suppression d'un répertoire
ResSupprime = fRepSupprime ("C:\MesRépertoires\MesFichiers")


Début de la page

fRepSupprime (en anglais fRemoveDir)

// Suppression d'un répertoire
ResSupprime = fRepSupprime ("\MesRépertoires\MesFichiers")


Début de la page

fRepWeb (en anglais fWebDir)

// Répertoire de lancement
Info("Fichiers images présents dans le répertoire : "+ ...
                        fRepWeb ())


Début de la page

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)


Début de la page

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)


Début de la page

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")


Début de la page

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")


Début de la page

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")


Début de la page

fStopCompacte (en anglais fStopCompress)

// Arrêt de la compression d'un fichier
fStopCompacte ()


Début de la page

fSupprime (en anglais fDelete)

// Suppression d'un fichier
ResSupprimer = fSupprime ("C:\MesRépertoires\Fichier.doc")


Début de la page

fSupprime (en anglais fDelete)

// Suppression d'un fichier
ResSupprimer = fSupprime ("\MesRépertoires\Fichier.psw")


Début de la page

fTaille (en anglais fSize)

// Taille d'un fichier
ResTaille = fTaille ("C:\MesRépertoires\Fichier.doc")


Début de la page

fTaille (en anglais fSize)

// Taille d'un fichier
ResTaille = fTaille ("\MesRépertoires\Fichier.psw")


Début de la page

fTailleDecompacte (en anglais fSizeUncompressed)

// Taille avant compression d'un fichier
ResTailleDécompacté = fTailleDécompacté ("C:\MesRépertoires\Fichier.doc")


Début de la page