Парсинг строк с нескольких страниц

@cartel · Регистрация: 26.04.2013

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

Всем привет!
В общем такая вот проблема, нужно спарсить логины с нескольких страниц, все ни как не могу это сделать...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TnewThread.Execute;
var StrPage,a1,a2,ssilka: String;
b1,b2, i: integer;
begin
for i := 1 to 167 do
ssilka:=site.com + '?pageIndex=' + inttostr(i);
StrPage:=Form1.IdHTTP1.Get(ssilka);
Work:=True;
while Work do
begin
b1:=Pos('<span><span>',StrPage)+12;
Delete(StrPage,1,b1-1);
b2:=Pos('</span></span>',StrPage)-1;
a1:=Copy(StrPage,1,b2);
Form1.Memo1.Lines.Add(a1);
if Pos('<span><span>',strPage) > 0 then Work:=True else Work:=False;
end;
 i := 0;
 while i < Form1.Memo1.Lines.Count do
 begin
   if Form1.Memo1.Lines.IndexOf(Form1.Memo1.Lines[i]) < i then
     Form1.Memo1.Lines.Delete(i)
   else
     inc(i);
 end;
end;

Если указывать: "ssilka:=site.com + '?pageIndex=1'" то парсит с 1-й страницы нормально
Помогите пожалуйста.

Добавлено через 49 минут
Кстати, забыл добавить.
использую Synapse и есть функция парсинга:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
function Pars(T_, ForS, _T:string):string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;

На синапсе не пробовал, т.к не знаю как, пытался спарсить с помощью Indy

@wingblack · 08.10.2014, 12:16

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

for i := 1 to 167 do
ssilka:=site.com + '?pageIndex=' + inttostr(i);
StrPage:=Form1.IdHTTP1.Get(ssilka);

Вот этот код 167 раз выполняет только строчку ssilka:=site.com + '?pageIndex=' + inttostr(i); так что когда FOR закончится, то получим в итоге ssilka:=site.com + '?pageIndex=' + inttostr(167); и программа обработает только страницу с номером 167.
Наверное, забыли операторные скобки begin end начиная от for i := 1 to 167 do заканчивая после первого WHILE (судя по всему)

Добавлено через 4 минуты
З.Ы.

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

На синапсе не пробовал, т.к не знаю как, пытался спарсить с помощью Indy

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

Не по теме:

За отсутствие отступов в коде вас еще никто не ругал ?

@cartel · 08.10.2014, 12:44 **[ТС]**

Спасибо, но я уже не стал разбираться с этой функцией сделал с помощью RegExp

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

@cartel 0 / 0 / 0 Регистрация: 26.04.2013 Сообщений: 22
	08.10.2014, 12:44 [ТС]
	Спасибо, но я уже не стал разбираться с этой функцией сделал с помощью RegExp 0