![]() |
install examples documentation |
|
open-file <file> file-id [ define ] <file id> \
[ new-truncate ] \
[ status [ define ] <status> ]
// Create new file, or truncate an old file if it exists
open-file "testwrite" file-id define nf new-truncate
// Write 25000 rows
num i;
for (i = 1; i <= 25000; i++) {
(( define line
some text in line <<p-out i>>
)) bytes-written define line_len notrim
write-file file-id nf from line length line_len
}
// Rewind back to the beginning
file-position set 0 file-id nf
// Read all 25000 rows back, and print them out
for (i = 1; i <= 25000; i++) {
read-file file-id nf to define one_item
p-out one_item
}
// Close the file
close-file file-id nf