Фильтрование HTML кода

[Тупичок]

Я начал писать клиент для сайта вроде аськи
Использую Winsock работаю с запросами только
Проблема в том что не могу реализовать список людей
точнее данные вытянуть и поместить для использования

Таких данных на каждой странице до 15 (на каждого человека по 1)

Код: Выделить всё

<div class="photoW " uid="698000001700406955" nick="Volodka" mainPhotoId="698000000151155045" sm="1" photodescr="01698000000151155038" ><a href="/navigate.do?tkn=4878&st.id=community.friendmain.page&st.friend=698000001700406955">

А вот что меня интересует

Код: Выделить всё

uid="698000001700406955" nick="Volodka" mainPhotoId="698000000151155045"

[Хакер]

Пожелать тебе удачи?

[BION]

А вот что меня интересует

Код: Выделить всё

uid="698000001700406955" nick="Volodka" mainPhotoId="698000000151155045"

MSHTML or MSXML, in project references. За подробностями в Гугл.

[Joo]

Можно типо того:

Код: Выделить всё

Dim UID As String: Dim Nick As String: Dim mainPhotoId As String
Dim myMatches As MatchCollection: Dim myRegExp As RegExp

Set myRegExp = New RegExp
myRegExp.IgnoreCase = True: myRegExp.MultiLine = True

myRegExp.Pattern = "<div\s*class=""photoW.*?""\s*uid=""(.*?)""\s*nick=""(.*?)""\s*mainPhotoId=""(.*?)"".*?>"

Set myMatches = myRegExp.Execute(YourHTMLContent)

UID = myMatches(0).Value
Nick = myMatches(1).Value
mainPhotoId = myMatches(2).Value