Перебор данных в адресной-строке и последующее сканирование кода страницы

[rob7777]

Всем Привет! Прошу помочь с задачей, которую я не в силах решить.
Программа должна перебирать числа в адресной-строке(например: www.lm/n125412 от 000000 до 999999) затем сканировать код страницы и искать какое-то слово и так до конца.
1) Как в паскале можно написать программу для перебора чисел в адресной строке, просто не представляю.
2) Как задать, чтобы он сканировал именно код страницы, тоже для меня вопрос.

Заранее спасибо!

[c0zak]

в цикле выкачиваешь нужную страницу в файл, затем парсишь его =)
если с indy то так:

procedure TForm1.Button1Click(Sender: TObject);
var LoadStream: TMemoryStream; i:integer; str:string;
begin
progressbar1.Max:=strtoint(edit1.Text);
progressbar1.Min:=strtoint(edit2.Text);
assignfile(f,'c:\st.txt');
rewrite(f);
closefile(f);

for i := strtoint(edit2.Text) to strtoint(edit1.Text) do
begin
rewrite(f);
closefile(f);
str:='http://www.lm/n'+inttostr(i);;
LoadStream := TMemoryStream.Create; // выделение памяти под переменную
 idHTTP1.Get(str, LoadStream); // загрузка в поток данных из сети
 LoadStream.SaveToFile('c:\st.txt'); // сохраняем данные из потока на жестком диске
 LoadStream.Free; // освобождаем память
 form1.Refresh;
 progressbar1.Position:=i;
 label1.Caption:=inttostr(i)+'/'+edit1.Text;
 progressbar1.Repaint;
end;
end;

компонент- IdHTTP
а парс зависит от конкретного кода страницы.

[rob7777]

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

в цикле выкачиваешь нужную страницу в файл, затем парсишь его =)
если с indy то так:

procedure TForm1.Button1Click(Sender: TObject);
var LoadStream: TMemoryStream; i:integer; str:string;
begin
progressbar1.Max:=strtoint(edit1.Text);
progressbar1.Min:=strtoint(edit2.Text);
assignfile(f,'c:\st.txt');
rewrite(f);
closefile(f);

for i := strtoint(edit2.Text) to strtoint(edit1.Text) do
begin
rewrite(f);
closefile(f);
str:='http://www.lm/n'+inttostr(i);;
LoadStream := TMemoryStream.Create; // выделение памяти под переменную
 idHTTP1.Get(str, LoadStream); // загрузка в поток данных из сети
 LoadStream.SaveToFile('c:\st.txt'); // сохраняем данные из потока на жестком диске
 LoadStream.Free; // освобождаем память
 form1.Refresh;
 progressbar1.Position:=i;
 label1.Caption:=inttostr(i)+'/'+edit1.Text;
 progressbar1.Repaint;
end;
end;

компонент- IdHTTP
а парс зависит от конкретного кода страницы.

Я так понял, что это можно delphi 7 компилировать правильно? А вот допустим мну нужно несколько слов искать, одно из них пусть будет консервативный, другое-красивый, третее - увлеченный, для этого нужно несколько переменных создать?

[c0zak]

можно и в 7ке, если indy позволяет. а слова поиска в строковый массив загони, лучше в динамический память сэкономишь. ищи в скачанном файле.

[rob7777]

понял,спасибо