< Programming Fundamentals < Files
files.txt
Main
Declare String Filename Set Filename = "~file.txt" If FileExists(Filename) Then Display "File already exists." Else Call CreateFile(Filename) Call ReadFile(Filename) Call AppendFile(Filename) Call ReadFile(Filename) Call DeleteFile(Filename) End If
CreateFile
Declare Integer C <- 0 Declare Real F <- 0 Open Filename Display "C F" For C = 0 To 50 Set F = C * 9.0 / 5 + 32 Display C, " ", F End For Close Filename
ReadFile
Declare String Line Open Filename While Not EOF(Filename) Input Line Display Line End While Close Filename
AppendFile
Declare Integer C Declare Real F Open Filename For C = 51 To 100 Set F = C * 9.0 / 5 + 32 Display C, " ", F End For Close Filename
DeleteFile
Delete Filename
See Also
This article is issued from Wikiversity. The text is licensed under Creative Commons - Attribution - Sharealike. Additional terms may apply for the media files.