Серый форум — AHK: Парсинг txt большого объёма

Re: AHK: Парсинг txt большого объёма

null@example.com (romzes96) — Tue, 05 Mar 2019 15:23:39 +0000

ypppu проверка большого текстового документа, она же история коэффициентов на количество коэффициентов привышающих определенное значение.

Re: AHK: Парсинг txt большого объёма

null@example.com (ypppu) — Tue, 05 Mar 2019 15:05:53 +0000

romzes96 пишет:

Сегодня так сказать "парсил" чуть больше часа.
Может быть я вообще не правильно подошел к данной задаче?

К какой задаче?

Re: AHK: Парсинг txt большого объёма

null@example.com (Phoenixxx_Czar) — Tue, 05 Mar 2019 14:55:30 +0000

lowK := 0
bigK := 0

Loop, Read, 500к.txt
{
	if (A_LoopReadLine < 2)
		lowK++
	else
		bigK++
}
msgbox, % "Всего коэфов: " bigK + lowK "`nИз Них " lowK " меньше 2`nИз них " bigK " больше 2"

AHK: Парсинг txt большого объёма

null@example.com (romzes96) — Tue, 05 Mar 2019 14:38:17 +0000

Здравствуйте не подскажите как можно оптимизировать данный скрипт?

+ открыть спойлер

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
SetBatchLines, -1
SetMouseDelay, -1
SetKeyDelay, -1
#MaxMem 999999999


FileRead, count_link, %A_ScriptDir%\500к.txt
Loop, parse, count_link, `n, `r
{
	If (A_LoopField != "")
		Num++
}
While (%A_Index% <= Num)
{
	FileReadLine, koef, %A_ScriptDir%\500к.txt, %A_Index%
	If (koef < 2)
		lowK++
	If (koef >= 2)
		bigK++
}

MsgBox, %Num% Всего коэфов`nИз них %lowK% меньше 2`nИз них %bigK% больше 2

Проблема в том что это очень долго для файла в 500000 строк...
Сегодня так сказать "парсил" чуть больше часа.
Может быть я вообще не правильно подошел к данной задаче?