VPF::ListView Добавление Данных - Форум программистов

Anakin

Дата 21.1.2012, 18:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет

Добрый вечер.
Мой вопрос покажется глупым но всё же я не могу разобраться.
На форме стоит ListView и idHttp
С помощи индейцев я получаю страницу с сайта
Дальше с помощью регулярных выражений я вытаскиваю данные. что мне нужны
И эти данные необходимо добавить в ListView

Вот как я получаю данные и пытаюсь их добавить:

Код


Procedure TfrmMain.NameT;
var
  Collection: TMatchCollection;
  Match: TMatch;
  Search:String;
  ListItem: TListItem;
  FilmName:String;
Begin

  Search:=idhttp.Get('http://sait.ru/browse.php');
  Collection := TRegEx.Matches(Search, '<a href="details\.php\?id=\d+">(.*?)</a>');
  for Match in Collection do
  FilmList.Items.Add.SubItems.Add(Match.Groups[1].Value);

Код


Procedure TfrmMain.SizeT;
var
  Collection2: TMatchCollection;
  Match2: TMatch;
  Search2:String;
Begin
  Search2:=idhttp.Get('http://sait.ru/browse.php');
  Collection2 := TRegEx.Matches(Search2, '<td align=center><nobr>(.*?)</nobr></td>');
  for Match2 in Collection2 do
  FilmList.Items.Add.SubItems.Add(Match2.Groups[1].Value);

End;

Использую эти процедуры нажатием кнопки.
Но ничего не выходит. ((( Данные добавляются криво.
А мне нужно что бы выглядело как я нарисовал ниже.
ListView выглядит так.
----------------------------------------------------------------------------------
I Тип I Название I Размер  I
----------------------------------------------------------------------------------
I  1   I Тест          I  100 mb I
I       I                  I              I
I       I                  I              I
I       I                  I              I
I       I                  I              I

Мне кажетса я сама процедура добавления данных в ЛистВью неправильна ((
Подскажите как мне добавить правильно данные которые я получаю.

Чучмек

Дата 21.1.2012, 19:40 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41

Цитата(Anakin @ 21.1.2012, 18:44

)

Данные добавляются криво

Криво это как?

--------------------

умную мысль держи при себе, а дурной - поделись с другими

northener

Дата 21.1.2012, 20:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(Anakin @ 21.1.2012, 18:44

)

Мне кажетса я сама процедура добавления данных в ЛистВью неправильна ((
Подскажите как мне добавить правильно данные которые я получаю.

В справке по методу TListItems.Add есть хороший пример добавления данных в ЛистВью.

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Чучмек

Дата 21.1.2012, 20:47 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41

Если я правильно понял,то
1) Нужно сгруппировать регулярки в одну (для всей строки таблицы) от '<tr...' до '...</tr>';
2) Запрос только один.
3)

Код


var LI:Tlistitem;
....
for i := 0 to Collection.Count-1 do
 begin
 LI:=FilmList.Items.Add;
 LI.Caption:='?';
 LI.SubItems.Add(Collection[i].Groups.Item[1].Value);
 LI.SubItems.Add(Collection[i].Groups.Item[2].Value);
 end;
....

4) Что такое

Цитата(Anakin @ 21.1.2012, 18:44

)

Тип

???

Это сообщение отредактировал(а) Чучмек - 21.1.2012, 20:51

--------------------

умную мысль держи при себе, а дурной - поделись с другими

Anakin

Дата 22.1.2012, 02:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет

Вот в общем код который я обрабатываю и из которого мне необходимо вытащить данные.
Я вот шас пытаюсь как выше было сказано объявить все регулярные выражение что бы разделить их на группы.

Код


<td class="torrentCategImg"><a href="browse.php?cat=1"><img src="http://supernova.zamolxismd.org/m/torrentsmd.me//pic/categs/cat_movie.gif" height="32" alt="Movies"/></a></td>
<td align=left><b title="Проверено"><span style="color: green;">√</span></b> <a href="details.php?id=1197798">Другой мир: Пробуждение  /  Underworld: Awakening [2012 / CAM] [Action / Fantasy / Horror]</a>
</td>
<td align="right">1</td>
<td align="right"><a href="details.php?id=1197798&amp;page=0#startcomments">104</a></td>
<td align=center width=20><nobr>11 часов</nobr></td>
<td align=center><nobr>1.37 GB</nobr></td>
<td align=right><a href=details.php?id=1197798&amp;toseeders=1><font color=#000000>1783</font></a></td>
<td align=right><a href=details.php?id=1197798&amp;todlers=1>341</a></td>
<td align=center nowrap><a href=userdetails.php?id=211923>Silvy94</a></td>
</tr>

Необходимы данные:
Тип Торрента:Movies
Название торрента:Другой мир: Пробуждение / Underworld: Awakening [2012 / CAM] [Action / Fantasy / Horror]
Размер Торрента:1.37 GB
Кол-во сидеров:1783
Кол-во личеров:341
Кто залил:Silvy94
И эти данные нужно запихнуть в listView

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »