Difference between revisions of "Program Examples:File Handling:Open Read Write"
| Line 3: | Line 3: | ||
<syntaxhighlight lang="vb"> | <syntaxhighlight lang="vb"> | ||
program | program | ||
| + | |||
dim pos as long | dim pos as long | ||
dim d1 as double | dim d1 as double | ||
| Line 39: | Line 40: | ||
end program | end program | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| + | |||
| + | |||
| + | The example corresponds to commit SHA-1: ada143a7f402e6bbad24c13c56401a5393ce3d2b in GIT. | ||
| + | |||
== See Also == | == See Also == | ||
Revision as of 07:58, 5 November 2014
The following example demonstrates how to open a file with different permissions (Read Only, Write Only, Append), how to read from and write to the file, and how to manipulate the file pointer.
program
dim pos as long
dim d1 as double
dim s1 as string
'create file for writing
Open "test.prg" mode = "w" as #1
print #1, "1.2345"
close #1
'append to existing file
Open "test.prg" mode = "a" as #1
print #1, PI
close #1
'read from file
Open "test.prg" mode = "r" as #1
'how many characters in the file?
print "File contains ";loc(1);" characters"
s1 = input$(#1)
'convert from string to double
d1=val(s1)
?d1
'save current file pointer
pos = tell(#1)
print "File pointer Position = ";pos
?input$(#1)
'rewind file
seek (#1,pos)
?input$(#1)
close #1
end program
The example corresponds to commit SHA-1: ada143a7f402e6bbad24c13c56401a5393ce3d2b in GIT.