• Home
 · 
• Files/File Controls/Input/Output
 · 
• This module will load a file VERY FAST!!! It uses an array sized in 50000 byte elements to load a f

This module will load a file VERY FAST!!! It uses an array sized in 50000 byte elements to load a f

This module will load a file VERY FAST!!! It uses an array sized in 50000 byte elements to load a file very quickly. It also will write the

API Declarations


Public num As Long
Public filedata() As String



Rate This module will load a file VERY FAST!!! It uses an array sized in 50000 byte elements to load a f

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'a pretty fast looping technique. This will load a file A LOT
'faster than a regular 'filedata = filedata & newfiledata' type
'loop. The filedata variable is public, so your project can use
'it anywhere else after the file has been loaded. The subs are
'self explanatory: send a file name to the write or load subs
'to write or load that file - the filename must have a complete
'path.

'Note: The filedata variable is an array, each element being
'50000 characters long, unless the file is not divisible by
'50000. So, the filedata has the file broken up into pieces,
'and you must remember that your file may not fit into one element
'of the array.

'PS: I know this may not be a very efficient module - however,
'I am sixteen years old, so I'm still learning. ;-)

Public Sub LoadFile(filename As String)
Dim SmallFile As Boolean
SmallFile = False
FiftyLen = FileLen(filename) / 50000
If FiftyLen = 0 Then
SmallFile = True
FiftyLen = 1
End If
Form1.pb.Max = 1
ReDim filedata(FiftyLen) As String
num = 0
While num <> FiftyLen + 1
filedata(num) = Space(50000)
num = num + 1
Wend
FileNum = FreeFile
num = 1
Open filename For Binary As FileNum
Get FileNum, 1, filedata(0)
While num <> (FiftyLen + 1)
num = num + 1
Get FileNum, , filedata(num - 1)
Form1.pb.Value = (num - 1) / FiftyLen
DoEvents
Wend
Close FileNum
Dim tempstr As String
If SmallFile = False Then
temp = FileLen(filename) - (50000 * FiftyLen)
End If
If temp > 0 Then
tempstr = Mid(filedata(FiftyLen), 1, temp)
filedata(FiftyLen) = ""
filedata(FiftyLen) = tempstr
Else
temp = 50000 - (50000 * FiftyLen) - FileLen(filename)
temp = (-1) * temp
tempstr = Mid(filedata(0), 1, temp)
filedata(0) = ""
filedata(0) = tempstr
FiftyLen = 0
End If

End Sub

Public Sub WriteFile(filename As String)
FileNum = FreeFile
num = 0
Open filename For Binary As FileNum
Put FileNum, 1, filedata(0)
While num <> (FiftyLen)
num = num + 1
Put FileNum, , filedata(num)
Form1.pb.Value = (num) / FiftyLen
DoEvents
Wend
Close FileNum
End Sub