ONLINE HELP
 WINDEVWEBDEV AND WINDEV MOBILE

Help / WLanguage / WLanguage functions / Standard functions / External file functions
  • Exemple : Récupération de la position en cours dans un fichier externe
  • Exemple : Modification de la position en cours dans un fichier externe
  • Exemple : Positionnement dans un fichier externe depuis la fin du fichier
  • Exemple : Récupération de la position en cours dans un fichier externe (WEBDEV)
  • Exemple : Modification de la position en cours dans un fichier externe (WEBDEV)
Exemple : Récupération de la position en cours dans un fichier externe
Exemple : Modification de la position en cours dans un fichier externe
Exemple : Positionnement dans un fichier externe depuis la fin du fichier
Exemple : Récupération de la position en cours dans un fichier externe (WEBDEV)
WEBDEV - Server codePHPAjax Le code suivant permet de récupérer la position en cours dans un fichier externe après lecture d'un bloc d'octets. Le fichier texte est ouvert en mode lecture/écriture.
// Déclaration des variables
NomCheminFichier est une chaîne
IDFichier est un entier
ResLecture est une chaîne
ResPosition est un entier
ResFermeFichier est un entier
 
// Sélection du nom et du chemin du fichier
NomCheminFichier = "C:\MesRépertoires\Fichier.txt"
// Ouverture du fichier
IDFichier = fOuvre(NomCheminFichier, foLectureEcriture)
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
SI IDFichier = -1 ALORS
Erreur(ErreurInfo(errMessage))
SINON
// Lecture des 1000 premiers octets dans le fichier
ResLecture = fLit(IDFichier, 1000)
// Affichage du message d'erreur si la lecture n'a pas été effectuée
SI ResLecture = "" ALORS
Erreur(ErreurInfo(errMessage))
SINON
// Position en cours ?
ResPosition = fPositionne(IDFichier, 0, fpCourant)
  // Affichage de la position du pointeur
  SI ResPosition <> -1 ALORS
Info("La position en cours est : " + ResPosition)
  SINON
// Affichage du message d'erreur en cas de problème sur fPositionne
  Erreur(ErreurInfo(errMessage))
  FIN
FIN
// Fermeture du fichier
ResFermeFichier = fFerme(IDFichier)
SI ResFermeFichier = -1 ALORS
// Affichage du message d'erreur si la fermeture n'a pas été effectuée
Erreur(ErreurInfo(errMessage))
FIN
FIN
Exemple : Modification de la position en cours dans un fichier externe (WEBDEV)
WEBDEV - Server codePHPAjax Le code suivant permet de commencer l'écriture d'une chaîne de caractères à partir de la position en cours. Le fichier texte est ouvert en mode lecture/écriture.
// Déclaration des variables
NomCheminFichier est une chaîne
IDFichier est un entier
ResPosition est un entier
TailleEcrit est un entier
ResFermeFichier est un entier
 
// Sélection du nom et du chemin du fichier
NomCheminFichier = "C:\MesRépertoires\Fichier.txt"
// Ouverture du fichier
IDFichier = fOuvre(NomCheminFichier, foLectureEcriture)
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
SI IDFichier = -1 ALORS
Erreur(ErreurInfo(errMessage))
SINON
// Positionnement sur l'octet 150
ResPosition = fPositionne(IDFichier, 150, fpDébut)
SI ResPosition = -1 ALORS
// Affichage du message d'erreur si le positionnement n'a pas été effectué
Erreur(ErreurInfo(errMessage))
SINON
// Écriture de la chaîne de caractères à partir de la position en cours
TailleEcrit = fEcrit(IDFichier, "Évolution des ventes")
// Affichage du message d'erreur si l'écriture n'a pas été effectuée
SI TailleEcrit = -1 ALORS Erreur(ErreurInfo(errMessage))
FIN
// Fermeture du fichier
ResFermeFichier = fFerme(IDFichier)
SI ResFermeFichier = -1 ALORS
// Affichage du message d'erreur si la fermeture n'a pas été effectuée
Erreur(ErreurInfo(errMessage))
FIN
FIN
Minimum version required
  • Version 9
This page is also available for…
Comments
Click [Add] to post a comment

Last update: 07/22/2022

Send a report | Local help