парсинг имен вконтакте

[Pein95]

procedure ParsName(memo:tmemo);
var
bg,en:integer;
s:tstringlist;
st:string;
i:integer;
begin
  bg:=0;
  en:=bg;
  s:=tstringlist.Create();

  for I := 0 to memo.Lines.Count-1 do
  begin
    bg:=posex('"><b>',memo.Lines.Strings[i]);
    if bg<>0 then
    begin
    en:=posex('</b><br/>',memo.Lines.Strings[i]);
    st:=copy(memo.Lines.Strings[i],bg+5,en-bg-5);
    s.Add(st);
    end;
  end;

  s.SaveToFile('name.txt');
end;

вот собственно код. Но он работает некоректно. я авторизируюсь на мобильной версии вконтакте m.vkontakte.ru после етого перехожу на страницу сообщений и мне нужно отпарсить имена. Их на одной странице есть 10 у мя парсятса токо 6 и ещо 4 пустых строки. Кто может подсказать в чем проблема?

[Pein95]

подскажыте хоть что нибудь) а то уже второй день над етим кодом сижу.

[QunneD]

Подскажите, пожалуйста, хоть что-нибудь, а то уже второй день над этим кодом пыхчу.

Приведите HTML-код со страницы m.vkontakte.ru

s := TStringList.Create();

А освобождать не надо? Это суть проблемы не решает, но тем не менее, где?:

s.Free;

[Pein95]

сори за ошибки. Русский не мой родной язык. Я ним общаюсь только в сети.

 <div class='newMsg'>
      <a href="/letter3480?"><b>Наталья Галлямова</b><br/>
      <small>5 окт 2010 в 20:35</small><br/>
      Привет :)<br/>Все спасибо увидела)</a>
    </div>    <div class='newMsg'>
      <a href="/letter3290?"><b>Ярик Мельниченко</b><br/>
      <small>27 сен 2010 в 16:50</small><br/>
      я тоже)</a>
    </div>    <div class='newMsg'>
      <a href="/letter3136?"><b>Влада Лозюк</b><br/>
      <small>22 сен 2010 в 20:33</small><br/>
      привіт))Помало,може бути,дякую))</a>
    </div>    <div >
      <a href="/letter3108?"><b>Рокса Думич</b><br/>
      <small>21 сен 2010 в 14:26</small><br/>
      ага</a>
    </div>    <div >
      <a href="/letter2743?"><b>Александр Александров</b><br/>
      <small>31 авг 2010 в 12:39</small><br/>
      Привет я нащёт групи клуб фанатов клана учиха. можеш добавить одного чело...</a>
    </div>    <div >
      <a href="/letter2742?"><b>Константин Юрченко</b><br/>
      <small>31 авг 2010 в 12:38</small><br/>
      ну я понимаю.. но вопщем я всеравно ничем в этом вапросе памочь не магу.)...</a>
    </div>    <div >
      <a href="/letter675?"><b>Роман Магола</b><br/>
      <small>27 июн 2010 в 15:01</small><br/>
      немаю</a>
    </div>    <div class='newMsg'>
      <a href="/letter633?"><b>Володя Гнатів</b><br/>
      <small>15 июн 2010 в 22:32</small><br/>
      ааааа</a>
    </div>    <div class='newMsg'>
      <a href="/letter525?"><b>Володя ПеТРиК</b><br/>
      <small>26 апр 2010 в 22:03</small><br/>
      ку як там??</a>
    </div>    <div class='newMsg'>
      <a href="/letter429?"><b>Сергій Акінін</b><br/>
      <small>19 фев 2010 в 22:52</small><br/>
      спамер, йди спати вже)...</a>
    </div>
    </div>

[Аватар]

procedure ParsName(memo:tmemo);
var bg,en:integer;
    s:tstringlist;
    st:string;
    i:integer;
begin
  s:=TStringList.Create();
  for I := 0 to memo.Lines.Count-1 do
  begin
    bg:=PosEx('"><b>',memo.Lines.Strings[i]);
    if bg<>0 then
    begin
      en:=PosEx('</b><br/>',memo.Lines.Strings[i]);
      st:=copy(memo.Lines.Strings[i],bg+5,en-bg-5);
      s.Add(st);
    end;
  end;
  s.SaveToFile('e:\name.txt');
  s.Free;
end;

У вас там в именах функций и методов кирилица в наличии была. Вот результат

Наталья Галлямова
Ярик Мельниченко
Влада Лозюк
Рокса Думич
Александр Александров
Константин Юрченко
Роман Магола
Володя Гнатів
Володя ПеТРиК
Сергій Акінін

[Pein95]

не знаю как у вас... но у мя всеравно не работает.
У мя сам код компилилса... Но в файле небыло всех имен. были пустые строки

[Аватар]

Единственно что можно сказать - в вашем Memo не тот HTML-код, что вы здесь показали.

ADD

Дошло. Поставте Memo.WordWrap:=False; Те строки, что переносятся рвутся и часть имен не находит. Кстати я вам еще раньше в другом посте про это говорил