AYUDA EN LÍNEA
 WINDEV, WEBDEV Y WINDEV MOBILE
Ayuda / WLanguage / Funciones WLanguage / Funciones estándar / Funciones de archivos externos
  • Example: Transferring data from an HFSQL file to a text file
  • Example: Transferring the content of a composite variable into a text file
Example: Transferring data from an HFSQL file to a text file
WEBDEV - Código ServidorWindowsLinuxPHPAjax The following code is used to write the content of Customer file into a text file. The text file is opened in read/write.
// Declare and initialize the variables
FileNameAndPath is string
FileID is int
SizeWritten is int = 0
ResCloseFile is int
 
// Select the file name and path
FileNameAndPath = "C:\MyDirectories\File.txt"
 
// Open file
FileID = fOpen(FileNameAndPath, foReadWrite)
 
// Display an error message if the opening was not performed
IF FileID = -1 THEN
Error(ErrorInfo(errMessage))
ELSE
// Read the first record
HReadFirst(Customer, CustomerID)
// More records to read? Write error?
WHILE HOut() = False AND SizeWritten <> -1
// Write the data into the file
SizeWritten = fWrite(FileID, ...
Customer.CustomerLastName + TAB + ...
Customer.CustomerFirstName + TAB + Customer.RealAge + CR)
// Read the next records
HReadNext(Customer, CustomerID)
END
// Display an error message if the writing was not performed
IF SizeWritten = -1 THEN Error(ErrorInfo(errMessage))
// Close the file
ResCloseFile = fClose(FileID)
IF ResCloseFile = -1 THEN
// Display an error message if the closing was not performed
Error(ErrorInfo(errMessage))
END
END
Example: Transferring the content of a composite variable into a text file
Versión mínima requerida
  • Versión 9
Esta página también está disponible para…
Comentarios
Haga clic en [Agregar] para publicar un comentario

Última modificación: 22/08/2022

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