| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Calibr [D7, WinXP]

JanMihail ©   (2007-05-28 10:47:00) 

Как можно узнать исходный код страницы и найти в ней все ссылки с классом user_name:
Пример:
<a href=" ссылка" class="user_name">Текст ссылки</a>
Нужно вытащить ссылка

---

{RASkov}   (2007-05-29 01:51:00) [1]

> [0] JanMihail ©   (28.05.07 10:47)

Конкретно по вопросу в [0]:

procedure TForm1.Button1Click(Sender: TObject);
var NPos, NStart, NSWord, N: Integer; SWord: String; FStop1: Boolean;
begin
 ListBox1.Clear; NStart:=1;
 repeat
  NPos:=PosEx('class="user_name"', Memo1.Text, NStart);
  if NPos=0 then Break;
  NSWord:=NPos; FStop1:=True;
  while (Memo1.Text[NSWord]<>'"') do begin
   DEC(NSWord);
   FStop1:=NSWord<=1;
   if FStop1 then Break;
  end;
  SWord:='';
  if not FStop1 then
   for N := NSWord-1 downto 1 do begin
    if Memo1.Text[N]<>'"' then SWord:=Memo1.Text[N]+SWord else Break;
    FStop1:=N=1;
   end;
  if not FStop1 then ListBox1.Items.Add(SWord);
  NStart:=NPos+1;
 until NPos=0;
end;

На форме Мемо1 с текстом <исходный код страницы>, Листбокс1, и Буттон1 ОнКлик которой выше.....
Может и не так красиво, но так для размышления ....

---

X9   (2007-05-28 18:36:00) [2]

> [2] JanMihail ©   (28.05.07 16:30)
> > Парсинг?
>
>
> типа того

Это был ответ. Ищите соответствующую лиетературу, Google/Yandex должны знать.

---

JanMihail   (2007-05-28 16:30:00) [3]

> Парсинг?


типа того

---

X9   (2007-05-28 16:22:00) [4]

Парсинг?

---

Наверх