AYUDA EN LÍNEA
 WINDEV, WEBDEV Y WINDEV MOBILE
Este contenido se ha traducido automáticamente.  Haga clic aquí  para ver la versión en inglés.
Ayuda / WLanguage / Funciones WLanguage / Funciones estándar / Funciones de archivos externos
  • Closing a file opened several times
  • Closing a locked file
WINDEV
WindowsLinuxJavaReportes y ConsultasCódigo de Usuario (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Código Navegador
WINDEV Mobile
AndroidWidget Android iPhone/iPadIOS WidgetApple WatchMac Catalyst
Otros
Procedimientos almacenados
Closes an external file.
Ejemplo
WEBDEV - Código ServidorPHPAjax 
// Open an external file
FileID is int
ResClose is int
FileID = fOpen("C:\MyDirectories\File.txt", foReadWrite)
IF FileID <> -1 THEN
	...
	// Close the external file
	ResClose = fClose(FileID)
END
WEBDEV - Código ServidorAjax 
ResClose is int
// Open an external file
MyTextFile is DiskFile
fOpen(MyTextFile, "C:\MyDirectories\File.txt", foReadWrite)
IF NOT ErrorOccurred THEN
	...
	// Close the external file
	ResClose = fClose(MyTextFile)
END
Sintaxis
<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
PHP This parameter must be a variant.
Observaciones

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.
WEBDEV - Código ServidorAjax

Closing a locked file

A blocked file is automatically unblocked when you close it.
Reminder The fLock function is used to block an external file. fUnlock is used to unlock an external file.
Clasificación Lógica de negocio / UI: Lógica de negocio
Componente: wd300std.dll
Ver también
Versión mínima requerida
  • Versión 9
Esta página también está disponible para…
Comentarios
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 02 2015

Última modificación: 27/03/2025

Señalar un error o enviar una sugerencia | Ayuda local