AYUDA EN LÍNEA WINDEV, WEBDEV Y WINDEV MOBILE
Versión: 242526272820242025
// Declare the variables FileNameAndPath is string FileID is int LineRead is string // Select the file name and path FileNameAndPath ="C:\MyDirectories\File.txt" // Open file FileID = fOpen(FileNameAndPath) // Display an error message if no file was opened IF FileID = -1 THEN Error(ErrorInfo(errMessage)) ELSE LOOP // Read the first line of the file LineRead = fReadLine(FileID) IF ErrorOccurred THEN Error(ErrorInfo()) BREAK END // End of file? IF LineRead = EOT THEN BREAK // Process the line currently read // Here, add an edit control at the end EDT_FileContent += [CR] + LineRead END // Close the file fClose(FileID) ToastDisplay("File reading completed") END
Última modificación: 25/03/2025
Señalar un error o enviar una sugerencia | Ayuda local
Buscando...
Acepto los términos de la licencia
Debe configurar el producto de la siguiente manera: