fClose (Function)

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

Closing a file opened several times
Closing a locked file

WINDEV

WEBDEV

WINDEV Mobile

Others

See also

fClose (Function)

In french: fFerme

Closes an external file.

Example

See additional examples

// Ouverture d'un fichier externe
IDFichier is int
ResFerme is int
IDFichier = fOpen("C:\MesRépertoires\Fichier.txt", foReadWrite)
IF IDFichier <> -1 THEN
	...
	// Fermeture du fichier externe
	ResFerme = fClose(IDFichier)
END

ResFerme is int
// Ouverture d'un fichier externe
MonFichierTxt is DiskFile
fOpen(MonFichierTxt, "C:\MesRépertoires\Fichier.txt", foReadWrite)
IF NOT ErrorOccurred THEN
	...
	// Fermeture du fichier externe
	ResFerme = fClose(MonFichierTxt)
END

Syntax

<Result> = fClose(<File used>)

<Result>: Integer

0 is the external file is closed,
-1 if an error occurred. To get more details on the error, use ErrorInfo with the errMessage constant. fClose throws an error if the file is not opened.

<File used>: Integer or DiskFile variable

Identifier of the file to use, defined by fOpen or fCreate.
Name of the DiskFile variable initialized with fOpen or fCreate.

Remarks

Closing a file opened several times

The same file can be opened several times simultaneously. Each version of the file must be closed individually via its own identifier.

Closing a locked file

A blocked file is automatically unblocked when you close it.

Reminder: The fLock function can be used to block an external file.. fUnlock is used to unlock an external file.

Related Examples:

Unit examples (WINDEV): Handling text files

[ + ] Handling "text" files with WINDEV:
- Create a text file
- Write into a text file
- Read in a text file

Unit examples (WEBDEV): Handling text files

[ + ] This example explains how to handle "non HFSQL" files with WEBDEV and it allows you to:
- Create a text file
- Write into a text file
- Read in a text file

Unit examples (WINDEV Mobile): Handling text files

[ + ] Handling external "text" files:
- Create a text file
- Write into a text file
- Read in a text file

Business / UI classification: Business Logic

Component: wd300std.dll

See also

Minimum version required

Version 9

This page is also available for…

Comments

Exemplo ReadFile

PROCEDURE ReadFile(ArquivoTxt is string, TipoUnicodeToAnsi is string)

//Le arquivo texto
INFO(TIMESYS())

// Declare the variables
PathFile is string = ArquivoTxt
IdFile, ResCloseFile, FileID, NumeroLinha is int
Line is string

NextTitle("Atencao")

IF fFileExist(ArquivoTxt) = true

// Open the file
FileID = fOpen(PathFile,foReadWrite)
IF IdFile = -1 THEN
Error(ErrorInfo(errMessage))
ELSE

if TipoAnsiUnicode = "UnicodeToAnsi"
//Converte de Unicode para Ansi
Line = UnicodeToAnsi(fReadLine(FileID))
else
Line = fReadLine(FileID)
end

//Linha 1
NumeroLinha = 1
/// ----COLOQUE AQUI O PROGRESS BAR = 1
//Info("Linha:" + NumeroLinha, Line) ///----------------- LINHA LIDA
//Inclua aqui a SUB Procedure de importacao dos dados

WHILE Line <> EOT AND Line <> ""

//Proxima linha
NumeroLinha += 1
/// ----COLOQUE AQUI O PROGRESS BAR + 1
Line = fReadLine(FileID)
//Info("Linha:" + NumeroLinha, Line) ///----------------- LINHA LIDA
//Inclua aqui a SUB Procedure de importacao dos dados
END
IF Line = "" THEN Error(ErrorInfo(errMessage))
IF Line = EOT THEN Info("Final do Arquivo.")
ResCloseFile = fClose(IdFile)
IF ResCloseFile = -1 THEN
//Error(ErrorInfo(errMessage))
END

END

ELSE
Info("Arquivo não encontrado!")
END

info(NumeroLinha,TIMESYS())

adrianoboller

21 Feb. 2015

Last update: 09/20/2024

Send a report | Local help