- Gestión de errores
- Modo de funcionamiento en Windows Vista (y posterior)
- Modo de apertura del archivo
- Múltiples aperturas del mismo archivo
- Posición en el fichero
- Concatenación de varios archivos externos
- Compatibilidad entre las diferentes versiones de WINDEV/WEBDEV
- Bloqueo y desbloqueo
- Gestión de archivos de texto en formato UNICODE
- Abrir un puerto de infrarrojos
Sintaxis
<Result> = fOpen(<File path> [, <Opening mode>])
Observaciones Gestión de errores La función fOpen genera un error en los siguientes casos: - el archivo no existe,
- el archivo está bloqueado por otro ordenador o por otra aplicación,
- el usuario no tiene derechos de lectura o escritura sobre el archivo a abrir.
- se utilizó una cadena Unicode para <File ruta> en un sistema operativo como Windows 98 o Windows Me.
Observación: La apertura en modificación de un archivo encontrado en un disquete protegido contra escritura se ha realizado con éxito. Modo de apertura del archivo Por defecto, si no se especifica el modo de acceso al archivo, éste se abre según el atributo de archivo (definido en Windows). Se produce un error si el modo de acceso especificado no corresponde al atributo de archivo. Un archivo en modo modo "lectura/escritura" podrá abrirse en todos los modos de acceso propuestos por fOpen (constantes foWrite, foRead y foReadWrite). Un archivo en modo de "solo lectura" solo puede abrirse en este modo (constante foRead). Múltiples aperturas del mismo archivo El mismo archivo se puede abrir varias veces simultáneamente. Cada apertura está asociada a un identificador de archivo diferente. Cada versión del archivo debe ser manejada individualmente a través de su propio identificador. Posición en el fichero Al abrir un archivo, la posición actual corresponde a: - el primer byte de archivo,
- el último byte del archivo es el archivo está abierto en modo "adición" (constante foAdd).
Esta posición puede ser modificada por fSeek. Concatenación de varios archivos externos Para concatenar varios archivos externos, debe hacerlo: - abrir el archivo de destino en modo "adición" (constante foAdd),
- abrir el archivo fuente en modo "solo lectura" (constante foRead o foReadWrite),
- leer el archivo de la fuente línea por línea con fReadLine,
- escribir en el archivo de destino línea por línea con fWriteLine.
Compatibilidad entre las diferentes versiones de WINDEV/WEBDEV Las constantes foText (apertura en modo texto) y foBinario (apertura en modo binario) ya no son necesarias. Se sustituyen por el valor 0. En este caso, la función fOpen intenta abrir el archivo en lectura/escritura. Componente : wd250std.dll
Esta página también está disponible para…
|
|
|
| |
| | 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()) |
|
|
|
| |
| |
| |
| |
| |
| |
| | |
|