Как ускорить чтение файла

If ReadFile(0, "test.txt")  ; Открываем файл для чтения
  content$ = ReadString(0, #PB_File_IgnoreEOL)  ; Читаем весь файл как строку
  CloseFile(0)  ; Закрываем файл
Else
  Debug "Ошибка: не удалось открыть файл!"
EndIf

If OpenFile(0, "test.txt")
  bom = ReadStringFormat(0)
  Size.q = Lof(0)
  If Size>0
    *p=AllocateMemory(Size+2)
    If *p
      ReadData(0, *p, Size)
      content$ = PeekS(*p, -1, bom)  ; Читаем весь файл как строку
    EndIf
  EndIf
   CloseFile(0)  ; Закрываем файл
Else
  Debug "Ошибка: не удалось открыть файл!"
EndIf

; Начало отсчета времени
start_time = ElapsedMilliseconds()
 
; Открываем файл для чтения
If ReadFile(0, "test1.txt")
  ; Определяем формат строки (UTF-8, UTF-16 и т.д.)
  bom = ReadStringFormat(0)
  ; Получаем размер файла
  Size.q = Lof(0)
  If Size > 0
    ; Выделяем память для содержимого файла
    *p = AllocateMemory(Size + 2)
    If *p
      ; Читаем данные из файла в память
      ReadData(0, *p, Size)
      ; Преобразуем данные в строку
      content$ = PeekS(*p, -1, bom)  ; Читаем весь файл как строку
      ; Освобождаем память
      FreeMemory(*p)
    EndIf
  EndIf
  ; Закрываем файл
  CloseFile(0)
Else
  Debug "Ошибка: файл не найден или не может быть открыт."
  End
EndIf
read_time = ElapsedMilliseconds()
 
; Подсчитываем количество строк для создания массива
lineCount = CountString(content$, #LF$) + 1
count_time = ElapsedMilliseconds()
 
; Создаем массив для хранения строк
Dim lines.s(lineCount)
 
; Указатель на текущий символ
*ptr.Character = @content$
 
; Временная строка для накопления символов
line$ = ""
 
; Индекс для массива
index = 0
 
; Проходим по всем символам строки
While *ptr\c
  ; Если символ новой строки, сохраняем текущую строку
  If *ptr\c = #LF ; #LF — символ новой строки (\n)
    lines(index) = line$
    index + 1
    line$ = ""
  ElseIf *ptr\c <> #CR ; Игнорируем символ возврата каретки (\r)
    ; Добавляем символ к текущей строке
    line$ + Chr(*ptr\c)
  EndIf
  ; Переходим к следующему символу
  *ptr + SizeOf(Character)
Wend
 
; Добавляем последнюю строку (если файл не заканчивается символом новой строки)
If line$ <> ""
  lines(index) = line$
EndIf
 
; Конец отсчета времени
array_time = ElapsedMilliseconds()
 
; Читаем элемент под номером 3
If index >= 3
  Debug("line = " + lines(3))
Else
  Debug("Ошибка: строка 3 не существует.")
EndIf
 
; Выводим время выполнения
Debug("чтение  " + Str(read_time - start_time))
Debug("count  " + Str(count_time - read_time))
Debug("массив  " + Str(array_time - read_time))

Procedure LoadFileToList(File.s, List Lines.s(), Format=#PB_Default)
  Protected r = #False, id
  
  If File<>""
    ClearList(Lines())
    
    id  = ReadFile(#PB_Any, File, #PB_File_SharedRead)
    If id
      If Format=#PB_Default
        Format = ReadStringFormat(id)
      Else
        ReadStringFormat(id)
      EndIf
      
      While Eof(id) = 0
       If AddElement(Lines())
          Lines() = ReadString(id, Format)
        EndIf
      Wend
      
      r = #True
      CloseFile(id)
    EndIf
  EndIf
  
  ProcedureReturn r
EndProcedure
 
NewList s.s()
LoadFileToList(File, s())

NewList lst.i()
Define i.i
 
For i = 0 To 100000
    AddElement(lst())
    lst() = i
Next
 
Define start_time.q = ElapsedMilliseconds()
Define target_index = 50000
Define tmp.i
 
For i = 1 To 1000 
    ResetList(lst()) 
    For i = 0 To target_index
        If Not NextElement(lst())
            Break 
        EndIf
    Next
    tmp = lst()
Next
 
Define end_time.q = ElapsedMilliseconds()
Debug "Время доступа: " + Str(end_time - start_time) + " мс"

DisableDebugger
 
NewList lst.i()
Define i.i
 
For i = 0 To 100000
    AddElement(lst())
    lst() = i
Next
 
Define start_time.q = ElapsedMilliseconds()
Define target_index = 50000
Define tmp.i
 
For i = 1 To 1000 
  ResetList(lst())
  For e = 0 To target_index
    If Not NextElement(lst())
      Break 
    EndIf
  Next
  tmp = lst()
Next
 
Define end_time.q = ElapsedMilliseconds()
MessageRequester("", "Время доступа: " + Str(end_time - start_time) + " мс")

DisableDebugger
 
NewList lst.i()
Define i.i
 
For i = 0 To 100000
    AddElement(lst())
    lst() = i
Next
 
Define start_time.q = ElapsedMilliseconds()
Define target_index = 50000
Define tmp.i
 
For i = 1 To 1000 
  ResetList(lst())
  If SelectElement(lst(), target_index)
    tmp = lst()
  EndIf
Next
 
Define end_time.q = ElapsedMilliseconds()
MessageRequester("", "Время доступа: " + Str(end_time - start_time) + " мс")