Форум: "Начинающим";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];

Вниз

Calibr   Найти похожие ветки 

← →
JanMihail ©   (2007-05-28 10:47) [0]

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

---

← →
X9 ©   (2007-05-28 16:22) [1]

Парсинг?

---

← →
JanMihail ©   (2007-05-28 16:30) [2]

> Парсинг?


типа того

---

← →
X9 ©   (2007-05-28 18:36) [3]

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

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

---

← →
{RASkov} ©   (2007-05-29 01:51) [4]

> [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 ОнКлик которой выше.....
Может и не так красиво, но так для размышления ....

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.041 c