Парсинг в контакте

[vinc2000]

Добрый день! Пишу граббер музыки и видео с контакта, встал вопрос выдирания нужной инфы с php-страниц. Сломал голову на регулярках и парсинге Надо выдрать только 3 знака 1 числа в середине страницы:

выдрать 999:

...
<div id="im_media_preview" class="media_preview clear_fix"></div>
<div id="im_resizer_wrap"><title>У вас 999 новых сообщений!</title></div>
<span class="fl_r add_media_lnk" id="imw_attach">Прикрепить</span>
...

For i:=400 to Length(s) do...

- не прокатывает, потому-что s - это вся страница. Искать бессмысленно - число меняется, остается только методом Pos (до) и Pos (после)?

[Delphi_ProGer]

Используй лучше VK API! А то ВК что-то поменяет в штмл коде и придёться наново парсить.

[vinc2000]

Метод VKApi, если я не ошибаюсь требует создания Desktop-приложения и общается только через него, а какой юзвер захочет его у себя создавать? Но и не хочется каждый раз переписывать прогу, гемора с перебором регулярок и изменением функций парсинга не оберешься

[Delphi_ProGer]

Ну просто со своего опыта скажу: была у меня прога, которая парсила аудиозаписи - после 2 изменений у вк я задолбался переписовать парсинг(с регуляркой незнаком).
И не вижу я проблеми юзеру в пару кликов создать приложения у вк, а потом просто в программу или ваш класс вписывать id приложения.

[Noor]

Возвращает текст между двумя определёнными строками

Procedure Parsing( Const S: String; Tag1, Tag2: String; list:TStrings );
  Var
    pScan, pEnd, pTag1, pTag2: PChar;
    foundText: String;
    searchtext: String;
  Begin
    { Set up pointers we need for the search. HTML is not case sensitive, so
      we need to perform the search on a uppercased copy of S.}
    searchtext := Uppercase(S);
    Tag1:= Uppercase( Tag1 );
    Tag2:= Uppercase( Tag2 );
    pTag1:= PChar(Tag1);
    pTag2:= PChar(Tag2);
    pScan:= PChar(searchtext);
    Repeat
      { Search for next occurence of Tag1. }
      pScan:= StrPos( pScan, pTag1 );
      If pScan <> Nil Then Begin
        { Found one, hop over it, then search from that position
          forward for the next occurence of Tag2. }
        Inc(pScan, Length( Tag1 ));
        pEnd := StrPos( pScan, pTag2 );
        If pEnd <> Nil Then Begin
          { Found start and end tag, isolate text between,
            add it to the list. We need to get the text from
            the original S, however, since we want the un-uppercased
            version! So we calculate the address pScan would hold if
            the search had been performed on S instead of searchtext. }
          SetString( foundText,
                     Pchar(S) + (pScan- PChar(searchtext) ),
                     pEnd - pScan );
          list.Add( foundText );

          { Continue next search after the found end tag. }
          pScan := pEnd + Length(tag2);
        End { If }
        Else { Error, no end tag found for start tag, abort. }
          pScan := Nil;
      End; { If }
    Until pScan = Nil;
  End;

Пример использования

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
 Parsing(Memo1.Text,'\\','  ',Memo2.Lines.Create);
end;
{ где
Memo1.Text - поле в котором находиться текст, в котором производиться поиск.
'\\' - Первый Тэг, от которого идет начало поиска
'  ' - Второй Тэг, до которого идет поиск
Memo2.Lines.Create - место куда выводиться результат 
}
end.

[vinc2000]

Я расскажу просто какой у меня будет сценарий работы моей проги - все в режиме по типу DOS'a. Т.е. максимальное упрощение, чел вводит логин и пароль и через 1-2 мин. его перебрасывает на панельку с его аудио-и-видео записями. Останется только выбрать и скачать! Все равно спасибо за совет!

Noor - ваш код работает! Спасибо. Именно то что я искал - поиск по тегам и вычленение результата.

P.S. Прикрепил скрин проги

[vinc2000]

У меня вопрос по поводу вывода найденного:

 Parsing(Memo1.Text,'\\','  ',Memo2.Lines.Create);

Возможно ли как-то изменить Memo2 к примеру на Label1.Caption, т.е. преобразовать все TStrings в одну строку (String) и вывести результат в кепшине? А то пока пользуюсь несколькими Мемо

[Delphi_ProGer]

Нельзя. Зачем использовать несколько Memo? Создайте просто переменную типа TStringList.

[vinc2000]

Действительно, что-то я не догадался! Спасибо.