- 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 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 Path> en un sistema operativo como Windows 98 o Windows Me.
Nota: 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 "lectura/escritura" puede abrirse en todos los modos de acceso propuestos por fOpen (fOrMa, PARA LEER y PARA LEER ESCRIBIR constantes). Un archivo en modo "sólo lectura" sólo puede abrirse en modo "sólo lectura" (PARA LEER constante). 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 que el archivo se abre en modo "addition" (foAdd constante).
Esta posición puede ser modificada por fSeek. Concatenación de varios archivos externos Para concatenar varios archivos externos, debe hacerlo: - abrir el fichero de destino en modo "addition" (foAdd constante),
- abrir el archivo fuente en modo "sólo lectura" (PARA LEER o PARA LEER ESCRIBIR constante),
- leer el archivo fuente línea por línea con fReadLine,
- escriba en el fichero de destino línea por línea con fWriteLine.
Compatibilidad entre las diferentes versiones de WINDEV/WEBDEV El foTexto (apertura en modo texto) y la constante foBinario constante (apertura en modo binario) ya no son necesarias. Se sustituyen por el valor 0. En este caso, fOpen intenta abrir el archivo en lectura/escritura. Componente : wd240std.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()) |
|
|
|
| |
| |
| |
| |
| |
| |
| | |
|