| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /nginx/html/JimMartinson/_Archive/CST1794/ExampleFiles/2008.02.21/ |
Upload File : |
' random_access_write.bas
' Will create a random access file with 1 million records
' First I will empty the file.
' By opening it in output mode and closing it the file is now empty.
print "Emptying file."
open "RandomRecordFile.txt" FOR OUTPUT AS #1
close #1
' open the file and define the fields.
open "RandomRecordFile.txt" FOR RANDOM AS #1 LEN=20
FIELD #1,_ ' set up the fields for file opened as #1
7 AS recordNumber$,_ ' The record number
12 AS microseconds$,_ ' Tick time record was written
1 AS comma$ ' this is here for the sequential test
comma$ = ","
' Example on a single line.
'FIELD #1, 7 AS recordNumber$, 12 AS microseconds$, 1 AS comma$
numberOfRecordsToWrite = 1000000
print "Beginning write of ";numberOfRecordsToWrite;" records."
startTime = time$("ms")
for i = 1 to numberOfRecordsToWrite
recordNumber$ = str$(i)
microseconds$ = str$(time$("ms"))
put #1,i
next i
endTime = time$("ms")
print "All records have been written."
totalTime = endTime-startTime
print "It took ";totalTime;" microseconds to write ";recordToRead;" records."
secondTime = totalTime/1000
print "This is ";secondTime;" seconds."
close #1