fSeek (Example)

ONLINE HELP
WINDEV, WEBDEV AND WINDEV MOBILE

Version:

Home | Sign in | English

This content has been translated automatically. Click here to view the French version.

Help / WLanguage / WLanguage functions / Standard functions / External file functions

Example: Retrieving the current position in an external file
Example: Modifying the current position in an external file
Example: Positioning in an external file from the end of file
Example: Retrieving the current position in an external file (WEBDEV)
Example: Modifying the current position in an external file (WEBDEV)

fSeek (Example)

See the associated help page

Example: Retrieving the current position in an external file

The following code is used to retrieve the current position in an external file after reading a block of bytes. The text file is opened in read/write. The name and the path of the text file are selected by fSelect.

// Déclaration des variables
NomCheminFichier is string
IDFichier is int
ResLecture is string
ResPosition is int
ResFermeFichier is int

// Sélection du nom et du chemin du fichier
NomCheminFichier = fSelect("", "", "Sélection d'un fichier externe", ...
	"Fichier externe" + TAB + "*.txt", "txt", fselCreate)
// Ouverture du fichier
IDFichier = fOpen(NomCheminFichier, foReadWrite)
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
IF IDFichier = -1 THEN
	Error(ErrorInfo(errMessage))
ELSE
	// Lecture des 1000 premiers octets dans le fichier
	ResLecture = fRead(IDFichier, 1000)
	// Affichage du message d'erreur si la lecture n'a pas été effectuée
	IF ResLecture = "" THEN
		Error(ErrorInfo(errMessage))
	ELSE
		// Position en cours ?
		ResPosition = fSeek(IDFichier, 0, fpCurrent)
		// Affichage de la position du pointeur
		IF ResPosition <> -1 THEN
			Info("La position en cours est :" + ResPosition)
		ELSE
			// Affichage du message d'erreur en cas de problème sur fPositionne
			Error(ErrorInfo(errMessage))
		END
	END
	// Fermeture du fichier
	ResFermeFichier = fClose(IDFichier)
	IF ResFermeFichier = -1 THEN
		// Affichage du message d'erreur si la fermeture n'a pas été effectuée
		Error(ErrorInfo(errMessage))
	END
END

Example: Modifying the current position in an external file

The following code is used to write a character string from the current position. The text file is opened in read/write. The name and the path of the text file are selected by fSelect.

// Déclaration des variables
NomCheminFichier is string
IDFichier is int
ResPosition is int
TailleEcrit is int
ResFermeFichier is int

// Sélection du nom et du chemin du fichier
NomCheminFichier = fSelect("", "", "Sélection d'un fichier externe", ...
	"Fichier externe" + TAB + "*.txt", "txt", fselCreate)
// Ouverture du fichier
IDFichier = fOpen(NomCheminFichier, foReadWrite)
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
IF IDFichier = -1 THEN
    	Error(ErrorInfo(errMessage))
ELSE
   	// Positionnement sur l'octet 150
   	ResPosition = fSeek(IDFichier, 150, fpBeginning)
   	IF ResPosition = -1 THEN
      		// Affichage du message d'erreur si le positionnement n'a pas été effectué
      		Error(ErrorInfo(errMessage))
   	ELSE
     		// Écriture de la chaîne de caractères à partir de la position en cours
     		TailleEcrit = fWrite(IDFichier, "Évolution des ventes")
     		// Affichage du message d'erreur si l'écriture n'a pas été effectuée
     		IF TailleEcrit = -1 THEN Error(ErrorInfo(errMessage))
   	END
   	// Fermeture du fichier
   	ResFermeFichier = fClose(IDFichier)
   	IF ResFermeFichier = -1 THEN
      		// Affichage du message d'erreur si la fermeture n'a pas été effectuée
      		Error(ErrorInfo(errMessage))
   	END
END

Example: Positioning in an external file from the end of file

The following code is used to point to the 100th byte from the end of the file.

// Déclaration des variables
PositionFic is int // Position en cours dans le fichier
NomFic is string     // Nom du fichier de test
NumFic is int = 0  // identifiant de manipulation du fichier de test

// Sélection du nom et du chemin du fichier
NomFic = fSelect("", "", "Sélection d'un fichier externe", ...
	"Fichier externe" + TAB + "*.txt" , "txt", fselCreate)
// Ouverture du fichier en lecture
NumFic = fOpen(NomFic, foRead)
// Vérification de l'ouverture du fichier de test
IF NumFic = -1 THEN
   	// Une erreur a été détectée pendant l'ouverture du fichier
   	Error("Erreur d'ouverture du fichier" + ...
		NomFic, ErrorInfo())
   	RETURN
ELSE
   	// Positionnement depuis la fin
   	PositionFic = fSeek(NumFic, -100, fpEnd)
   	IF PositionFic <> -1 THEN
      		// Lecture des 20 caractères à partir de la position en cours
      		Info(fRead(NumFic, 20))
   	ELSE
      		Info(ErrorInfo())
   	END
   	// Fermeture du fichier
   	fClose(NumFic)
END

Example: Retrieving the current position in an external file (WEBDEV)

The following code is used to retrieve the current position in an external file after reading a block of bytes. The text file is opened in read/write.

// Déclaration des variables
NomCheminFichier is string
IDFichier is int
ResLecture is string
ResPosition is int
ResFermeFichier is int

// Sélection du nom et du chemin du fichier
NomCheminFichier = "C:\MesRépertoires\Fichier.txt"
// Ouverture du fichier
IDFichier = fOpen(NomCheminFichier, foReadWrite)
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
IF IDFichier = -1 THEN
	Error(ErrorInfo(errMessage))
ELSE
	// Lecture des 1000 premiers octets dans le fichier
	ResLecture = fRead(IDFichier, 1000)
	// Affichage du message d'erreur si la lecture n'a pas été effectuée
	IF ResLecture = "" THEN
		Error(ErrorInfo(errMessage))
	ELSE
		// Position en cours ?
		ResPosition = fSeek(IDFichier, 0, fpCurrent)
	  	// Affichage de la position du pointeur
	  	IF ResPosition <> -1 THEN
			Info("La position en cours est : " + ResPosition)
	  	ELSE
			// Affichage du message d'erreur en cas de problème sur fPositionne
		  	Error(ErrorInfo(errMessage))
	  	END
	END
	// Fermeture du fichier
	ResFermeFichier = fClose(IDFichier)
	IF ResFermeFichier = -1 THEN
		// Affichage du message d'erreur si la fermeture n'a pas été effectuée
		Error(ErrorInfo(errMessage))
	END
END

Example: Modifying the current position in an external file (WEBDEV)

The following code is used to write a character string from the current position. The text file is opened in read/write.

// Déclaration des variables
NomCheminFichier is string
IDFichier is int
ResPosition is int
TailleEcrit is int
ResFermeFichier is int

// Sélection du nom et du chemin du fichier
NomCheminFichier = "C:\MesRépertoires\Fichier.txt"
// Ouverture du fichier
IDFichier = fOpen(NomCheminFichier, foReadWrite)
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
IF IDFichier = -1 THEN
	Error(ErrorInfo(errMessage))
ELSE
	// Positionnement sur l'octet 150
	ResPosition = fSeek(IDFichier, 150, fpBeginning)
	IF ResPosition = -1 THEN
		// Affichage du message d'erreur si le positionnement n'a pas été effectué
		Error(ErrorInfo(errMessage))
	ELSE
		// Écriture de la chaîne de caractères à partir de la position en cours
		TailleEcrit = fWrite(IDFichier, "Évolution des ventes")
		// Affichage du message d'erreur si l'écriture n'a pas été effectuée
		IF TailleEcrit = -1 THEN Error(ErrorInfo(errMessage))
	END
	// Fermeture du fichier
	ResFermeFichier = fClose(IDFichier)
	IF ResFermeFichier = -1 THEN
		// Affichage du message d'erreur si la fermeture n'a pas été effectuée
		Error(ErrorInfo(errMessage))
	END
END