'given a file (dir and name) this sub loads its contents, line by line, into a given array
Public Sub LoadFileContentsIntoList(ByVal directoryAndFileName As String, ByRef fileContentsList As List(Of String), Optional ByVal extract As Boolean = True, Optional ByVal useCache As Boolean = False, Optional ByVal includeDuplicates As Boolean = True)
If File.Exists(directoryAndFileName) Then
Dim extractYesOrNo As String
If extract = True Then
extractYesOrNo = "yes"
Else
extractYesOrNo = "no"
End If
Dim contentsOfFile As String = GetDataFromFileByPrecedingText(directoryAndFileName, "[all]", extractYesOrNo, useCache) ', False, False)
fileContentsList.Capacity = fileContentsList.Capacity + GetNumberOfLinesInFile(directoryAndFileName, useCache) + 1
If extract = False Then
Dim ap As New ArrayProcessingClass
ap.LoadMultipleLineContentsIntoEmptyList(contentsOfFile, fileContentsList, False)
Exit Sub
End If
Dim maxNumberOfCharsInBigString As Integer = contentsOfFile.Length - 1
Dim ignoreLine As Boolean = False
Dim maxNumberOfChars2 As Integer = maxNumberOfCharsInBigString - 5
Dim tp As New TextProcessingClass
For charNumber = 0 To maxNumberOfCharsInBigString
If extract = True Then
''donot copy lines which start with ''''', into the array
If charNumber < maxNumberOfChars2 Then
If String.Equals(contentsOfFile.Substring(charNumber, 5), "'''''") Then
ignoreLine = True
End If
End If
If Char.Equals(contentsOfFile.Chars(charNumber), NEWLINE) Then
ignoreLine = False
End If
End If
If ignoreLine = False Then
If String.Equals(contentsOfFile.Chars(charNumber), "{") Then
'keep going until we hit "}"
Dim internalIndex As Integer
Dim startInternalIndex As Integer = charNumber + 1
For internalIndex = startInternalIndex To maxNumberOfCharsInBigString
While cpuUsage >= maxCpuUsage 'performance management
Threading.Thread.Sleep(50) 'halts thread if cpu usage is too high
End While
If String.Equals(contentsOfFile.Chars(internalIndex), "}") Then
'now assign the small string to the array, } amd { are excluded
Dim tempLineContents As String = contentsOfFile.Substring(charNumber + 1, internalIndex - charNumber - 1)
tempLineContents = tp.RemoveCurlyBracketsFromStartAndEndOfString(tempLineContents)
If includeDuplicates Then
fileContentsList.Add(tempLineContents)
Else
If Not fileContentsList.Contains(tempLineContents) Then fileContentsList.Add(tempLineContents)
End If
charNumber = internalIndex + 2 'this takes into account the carriage return char
Exit For
End If
Next internalIndex
End If
End If
Next charNumber
Else
errorLog.Add("ERROR27: An error occurred while reading " & directoryAndFileName & _
". Operation aborted.") ', MsgBoxStyle.OkOnly, "File Read Error")
End If
fileContentsList.TrimExcess()
End Sub
