Цикл, проблема

[FleXik]

Несколько месяцев не включал делфи и понял что хорошенько отупел за это время поэтому заранее извиняюсь за тупость...

Вобщем есть код:

var
  i:integer;
  RegExp:TRegExpr;
begin
  i:=0;
  RegExp:=TRegExpr.Create;
  RegExp.Expression:='[(.*?)]';
  //отправляется запрос

    if RegExp.Exec('запрос_переменная') then
    begin

      repeat
      // парсится 50 значений
      until not RegExp.ExecNext;

    end;

  RegExp.Free;
end;

в SpinEdit указывается количество данных (например 150) которое нужно спарсить, как правильно сделать цикл (while i<sSpinEdit1.Value do begin и потом в конце inc(i) , отупел изрядно, забыл даже элементарное) чтобы 3 раза обновило запрос (страницу) и спарсило 150 значений? Т.е запрос с которого парсятся данные должен 3 раза обновится (т.к на странице отображается 50 значений). Спасибо


Пробовал делать вот так:

var
  i:integer;
  RegExp:TRegExpr;
begin
  i:=0;
  RegExp:=TRegExpr.Create;
  RegExp.Expression:='[(.*?)]';
  while i<sSpinEdit1.Value do
  begin
  //отправляется запрос

    if RegExp.Exec('запрос_переменная') then
    begin

      repeat
      // парсится 50 значений
      inc(i);
      until not RegExp.ExecNext;
    end;
  end;
  RegExp.Free;
end;

но не работало (что странно), хотя да, ничего странного, цикл не в том месте...

[FleXik]

ребят, помогите пожалуйста

[FleXik]

up, проблема еще актуальна.

мне нужно чтобы запрос отправлялся заново только если i<sSpinEdit1.Value - причем в sSpinEdit указывается не количество раз которое должен отправиться запрос а количество значений которое надо спарсить, спасибо.

[min@y™]

я нихрена не понял.
прогони под дебаггером.

[evg_m]

Существует тупиковая ветвь цикла (БЕЗ изменения i и чего бы то ни было другого)
что будет если запрос не получит данные или парсер(RegExp) не найдет нужное.
Переменная не изменится и все начнется снова.

for i:=0 to spin.value -1 do begin
if i mod 50 =0 then // ОДИН запрос на каждые 50 итераций
  //отправить запрос
  RegExp.Execute;
end;
// и обработка Каждой итерации 
RegExp.Next;
end;

[FleXik]

Сообщение от evg_m

Существует тупиковая ветвь цикла (БЕЗ изменения i и чего бы то ни было другого)
что будет если запрос не получит данные или парсер(RegExp) не найдет нужное.
Переменная не изменится и все начнется снова.

for i:=0 to spin.value -1 do begin
if i mod 50 =0 then // ОДИН запрос на каждые 50 итераций
  //отправить запрос
  RegExp.Execute;
end;
// и обработка Каждой итерации 
RegExp.Next;
end;

количество значений может быть разным, не обязательно 50, так что этот вариант не подходит да и слишком геморный, но спасибо за потраченное время, весы кликнул

все это решается циклами, просто у меня почему-то не хочет работать inc(i);

[min@y™]

просто у меня почему-то не хочет работать inc(i)

я ж тебе сказал: прогони под дебаггером.
дебаггер - наше всё!

[FleXik]

Сообщение от min@y™

я ж тебе сказал: прогони под дебаггером.
дебаггер - наше всё!

было бы круто если бы я еще умел им пользоваться

[FleXik]

постараюсь еще раз обьяснить

мне нужно чтобы запрос отправлялся до тех пор пока i<sSpinEdit1.Value , но счетчик i отвечает не за то сколько раз отправится запрос а за то сколько спарсится значений, но прикол такой что после каждого обновления запроса - значения меняются поэтому запрос всегда одинаковый и он только один, т.е смысл такой:

Например в sSpinEdit1 указываем число 73, а спарсить например можно максимально 40 значений, т.е нужно отправить 2 раза запрос чтобы спарсить 73 значения, итого задача такая:

Отправили запрос -> Спарсили 40 значений (все парсится регуляркой RegExpr, поэтому нельзя сказать что там будет ровно 40 значений и нужно подстраиваться так чтобы парсило до тех пор пока i<sSpinEdit1.Value) -> Отправляем запрос -> Спарсили последние 33 значения

т.е нужно парсить все значения которые возможно спарсить по заданному шаблону регулярки -> увеличивать счетчик типа integer и снова отправлять запрос пока этот счетчик не будет равен sSpinEdit1.Value

[min@y™]

было бы круто если бы я еще умел им пользоваться

было бы не круто, а просто нормально. дебаггер - это инструмент разумного программиста, как метла для дворника или кусачки для электрика.
научись им пользоваться. для примитивного уровня на обучение уйдёт не более часа, а потом сэкономит тебе месяцы рабочего времени и килограмм-полтора нервных клеток. литературы в инете - вагон. с картинками

кусочек книжки приепляю, посмотри.