Вопрос решил вроде, воспользовался помощью ChatGPT. Запустил скрипт и на выходе получил около 4700 файлов. Выборочно проверил, результат устроил.
File := FileOpen("C:\bigFile.txt", "r")
if !File
{
MsgBox Файл не может быть открыт!
ExitApp
}
Buffer := ""
while !File.AtEOF()
{
Fragment := File.Read(800000) ; Читаем фрагмент размером 500000 символов
Buffer := Buffer . Fragment ; Добавляем фрагмент в буфер
; Проверяем наличие символа перехода на новую строку
Index := InStr(Buffer, "`n")
while Index
{
Line := SubStr(Buffer, 1, Index-1) ; Получаем строку из буфера
Buffer := SubStr(Buffer, Index+1) ; Обновляем буфер, удаляя прочитанную строку
count++
; MsgBox % "Строка: " . Line
tooltip, %count%
FileAppend, %Line%, C:\результат\%count%.txt
; Проверяем остаток буфера на наличие еще одной строки
Index := InStr(Buffer, "`n")
}
}
; Обрабатываем последний остаток в буфере
if Buffer != ""
{
MsgBox % "Строка: " . Buffer
}