Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
scroyler
14 / 14 / 1
Регистрация: 01.08.2011
Сообщений: 332
25.01.2012, 21:33  [ТС] 0

Спарсить название темы с форума

25.01.2012, 21:33. Просмотров 1647. Ответов 28
Метки (Все метки)

Ответ

Delphi
1
2
3
4
5
6
7
8
9
10
11
var TagBegin, TagEnd: String;
    S,e, Res: String;
begin
e:=idhttp1.Get('http://exclusive.fatbb.ru/viewforum.php?f=24');
  TagBegin := 'class="topictitle">'; // тег открывающий
  TagEnd := '</a>';   // тег закрывающий
  S := e;  // текст для проверки
  Res := Copy(S, Pos(TagBegin, S) + Length(TagBegin), Pos(TagEnd, S) - Pos(TagBegin, S)-Length(TagEnd));  // реализация "выреза" значения между тегами указанными выше
 
  ShowMessage(Res); // вывод результата
end;
пробую так но не пашет(

Добавлено через 1 минуту
или пашет) чет непонятно) секундочку))

Добавлено через 2 минуты
не пустую строку выдает( либо я что то не то делаю(

Добавлено через 6 минут
пишу тэги <li> </a></li>
пашет.
походу тэги не нравятся, подскажи плз какие тэги вписать http://exclusive.fatbb.ru/viewforum.php?f=24

Вернуться к обсуждению:
Спарсить название темы с форума
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2012, 21:33

Спарсить нужное значение
Здравствуйте уважаемые форумчане. Помогите спарсить нужное значение. ...

Спарсить текст с задержкой
Вот есть сайт для проверки или оценки стоимости сайтов, форумов. Приходится...

Как спарсить токен
Как правильно спарсить токен в делфи? Пробовал так HTTP.Headers.Clear;...

0
Другие темы раздела
Delphi Подскажите книгу! http://www.cyberforum.ru/delphi-beginners/thread433013.html
Привет) хочу написать протокол передачи данных ModBus , подскажите книжку с которой можно было б начать программировать протоколы... плз Добавлено через 1 час 37 минут никто не прогал протоколы...
Delphi Массивы=) 1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . Удалить из него все четные элементы, у которых последняя цифра 2, 2. Вставить... http://www.cyberforum.ru/delphi-beginners/thread432967.html
Комментарии Delphi
Помогите описать программу, откомментировать каждую строчку. Программа 1: unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ...
Delphi задачи про массивы
Пожалуйста,помогите в решение задач.код,Паскаль. 1.написать программу заполнения двумерного массива по строкам с клавиатуры. 2.написать программу заполнения двумерного массива по столбца с...
Delphi Delphi доработки Project1. http://www.cyberforum.ru/delphi-beginners/thread432904.html
Всем привет. Хочу написать программку - чекер, но как всегда появляются ошибки. -Значит на форме присутствуют: Компонеты: Memo1 and Button1. (и компонент из вкладки Indy) Как осуществить...
Delphi вывести текущие процессы при нажатии на кнопку в мемо показывается список текущих процессов. Как это реализовать? У меня есть диспетчер задач. Но не могу разобраться в исходнике. Помогите пож... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru