Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 01.12.2011, 01:05   #1
Pein95
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 881
По умолчанию парсинг

собственно мне нужно отпарсить все имена из сообщений вконтакте.
Я авторизируюсь на m.vkontakte.ru.
Вот сама процедура парсинга:
Код:
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]);
    en:=posex('</b><br/>',memo.Lines.Strings[i]);

    if (bg<>0) and (en<>0) then
    begin
    st:=copy(memo.Lines.Strings[i],bg+5,en-bg-5);
    bg:=0;
    en:=0;
    s.Add(st);
    end;
  end;

  s.SaveToFile('name.txt');


end;
проблема в том что парсит не все имена из страницы... подскажыте плиз в чем проблема..
Pein95 вне форума
Старый 01.12.2011, 01:33   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

А может </b><br/> на следующей строке за "><b>
Вы покажите что парсите
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума
Старый 01.12.2011, 01:38   #3
Pein95
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 881
По умолчанию

Код:
   <div >
      <a href="/letter33426?"><b>Тарас Пастух</b><br/>
      <small>сегодня в 17:46</small><br/>
      )))</a>
    </div>    <div >
      <a href="/letter33409?"><b>Михайло Жигайло</b><br/>
      <small>сегодня в 11:15</small><br/>
      та нічого</a>
    </div>    <div >
      <a href="/letter33392?"><b>Натуська Гордээва</b><br/>
      <small>сегодня в 11:00</small><br/>
      ок</a>
    </div>    <div >
      <a href="/letter33389?"><b>Євген Левко</b><br/>
      <small>сегодня в 0:44</small><br/>
ну вот часть хтмл кода...
Pein95 вне форума
Старый 01.12.2011, 01:50   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Вроде код у вас нормальный, а вот s.SaveToFile('name.txt'); будет писать в текущий на данный момент каталог, а он не всегда один и тот же. Попробуйте полный путь проставить при сохранении файла

add

по выходу из процедуры s.free не забудьте
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 01.12.2011 в 02:06.
Аватар вне форума
Старый 01.12.2011, 02:06   #5
Pein95
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 881
По умолчанию

не помогло.

Из правил:
1. Не создавать темы с названиями, не отражающими суть вопроса, в том числе с названиями "ComboBox", "Edit" и т.п., а также темы с названиями "Помогите...", "Решите...", "Ошибка...", "Нужна помощь", "Срочно...", "Ничего не понимаю..." и тому подобными.
Такие темы будут закрыты, а затем удалены, а ТС получит нарушение №3.
Подумайте о том, каково будет и вам, и другим участникам форума пользоваться поиском при таких "названиях".
Как придумать "нормальное" название для темы ? Очень просто ! Представьте, что вы хотите сделать поиск по форуму (или погуглить) в поисках ответа на ваш вопрос. Какую поисковую фразу вы введете ? Вот она и будет основой для названия темы...

Последний раз редактировалось mihali4; 01.12.2011 в 03:23.
Pein95 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Парсинг tigrend PHP 8 02.10.2011 00:09
Парсинг DeDoK Общие вопросы Delphi 8 02.02.2011 14:20
Парсинг DJ_LINZA Работа с сетью в Delphi 6 31.01.2011 10:15