Dim filedata() As String
Dim finaldata() As String
Public Function ReadFromFile(ByVal passedfilename As String)
On Error GoTo Err:
Dim arrlen As Integer: arrlen = 1
Dim count As Integer: count = 1
Dim incomingtext As String
Dim overalltext As String: overalltext = ""
'I start by opening the file. The example file I'm using is full of data like so-
'"Filedatablahblahblah"
'<blank line>
'"Filedatablahblahblah"
'<blank line>
'"Filedatablahblahblah"
'<blank line>
'etc.
Open passedfilename For Input As #1
'What I do here is basically read in every line of data in the file
'to a slot in one of two String arrays. The idea is that the first
'array will contain every line in the file, while the second array
'will ultimately contain only those lines that aren't blank
Do While Not EOF(1)
'Read a line from the file
Line Input #1, incomingtext
'Keep a record of every input
overalltext = overalltext & incomingtext
'Resize the array
ReDim Preserve filedata(count)
'Input the current line of text in the file to the array
filedata(count) = incomingtext
'Increment the pointer
count = count + 1
Loop
'Close the file
Close #1
'This is the second array. This should only contain non-blank lines
'once processing has finished
ReDim finaldata(UBound(filedata)) As String
Dim pointer As Integer: pointer = 1
Dim i As Integer: i = 0
'For every item in the first array
For i = 0 To UBound(filedata)
'If the item is blank, do not write to the second array
If filedata(i) = "" Then
filedata(i) = filedata(i)
Else
'If it isn't blank, resize the second array and input the item
ReDim Preserve finaldata(pointer)
finaldata(pointer - 1) = filedata(i)
pointer = pointer + 1
End If
Next
For i = 0 To UBound(finaldata)
MsgBox finaldata(i)
Next
Exit Function
Err:
MsgBox Err.Description
Exit Function
End Function
Reply With Quote