Скорость парсинга

@NIKOLAYY · Регистрация: 22.09.2012

Author24 — интернет-сервис помощи студентам

Есть ли способ парсить данные еще быстрее?
Пример куска кода я написал и описал в комах скорость, но все равно как то так оно долговато..

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   r: TRegExpr;
begin
 
   IdHTTP1.IOHandler:= IdSSLIOHandlerSocketOpenSSL1;
   IdHTTP1.HandleRedirects:= True;
   IdHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
 
   //любой https сайт
   strhtml:=idHTTP1.Get('https://yobit.net/api/3/info');
 
  r := TRegExpr.Create;
  r.Expression := '"fee_seller":0.2},"(.*?)":'; //что парсим
  if r.Exec(strhtml) then
  begin
    repeat
     para:= para + r.Match[1];
     //  Memo1.Text:= Memo1.Text + r.Match[1];  //очень долго 5 минут..
 
    until not r.ExecNext;
  end;
 
   Memo1.Text:= para; //так гораздо быстрее 30 сек!
 
end;

@Arcor · 06.12.2017, 23:20

вот, что вы так любите везде использовать визуальные уомпоненты??? Они нужны для отображения в первую очередь... а не для манипуляции с тоннами данных, еще и регулярка явно тормозит все. И почему бы не через DOMDocument полученную HTML'ку парсить??

@qwertehok · 07.12.2017, 01:46

убрать мемо вообще, убрать форму вообще
писать в стринглист и в конце сохранять в файл

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	06.12.2017, 23:20	2
	вот, что вы так любите везде использовать визуальные уомпоненты??? Они нужны для отображения в первую очередь... а не для манипуляции с тоннами данных, еще и регулярка явно тормозит все. И почему бы не через DOMDocument полученную HTML'ку парсить?? 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	07.12.2017, 01:46	3
	убрать мемо вообще, убрать форму вообще писать в стринглист и в конце сохранять в файл 0