Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Поиск строки... Искать в HTML 
V
    Опции темы
ishimcity
Дата 7.7.2008, 08:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1
Уважаемые программисты, помогите пожалусто что то совсем голова неварит...есть код Html
вовсем коде мне нужно найдти слово и прочитать его пример таков

</div>слово</div><ts>

помогите как мне считать только слово....
PM MAIL ICQ Skype YIM   Вверх
Virtuals
Дата 7.7.2008, 08:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 3
Всего: 11
строку во временную переменную
искать входящий тег (в вашем случае </div>)
обрезать строку сначала прям по найденное вместе с его длинной s2:=copy(s1,pos('</div>',s1)+6,length(s1)-pos('</div>',s1)-5)
искать закрывающий тег (в вашем случае </div>)
вот сначала строки и до pos('</div>',s2) и есть искомое
PM MAIL ICQ   Вверх
Frees
Дата 7.7.2008, 08:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
перед поиском удали из строки все тэги и делай поиск

Добавлено через 55 секунд
я так удаляю
Код

function HTMLStrip(const str: string): string;
var
  spos, epos: integer;
begin
  Result := str;
  while InPos('<', Result, spos) and InPos('>', Result, epos) do
    if spos < epos then
      Delete(Result, spos, epos - spos + 1)
    else
      Delete(Result, epos, 1);

  if InPos('<', Result, spos) then Delete(Result, spos, 1);
  if InPos('>', Result, epos) then Delete(Result, epos, 1);
end;




--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
ishimcity
Дата 7.7.2008, 09:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1
Блин либо я недаезжаю либо ..."в лыжах я".. чет некатит код
PM MAIL ICQ Skype YIM   Вверх
Frees
Дата 7.7.2008, 09:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
Цитата(ishimcity @  7.7.2008,  09:09 Найти цитируемый пост)
чет некатит код

точнее

Добавлено через 3 минуты и 46 секунд
чуть не забыл
Код

function InPos(const substr, str: string; out outpos: Integer): Boolean;
  inline;
begin
  outpos := Pos(substr, str);
  Result := outpos > 0;
end;



--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
kemiisto
Дата 7.7.2008, 09:47 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 16
Всего: 160
ishimcity, потратьте немного времени на изучение регулярных выражений. Этот инструмент как раз подходит для решения задачи.


--------------------
XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile
PM MAIL WWW GTalk Jabber   Вверх
ishimcity
Дата 7.7.2008, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1
Всем спасибо друзья, все у меня все заработало
PM MAIL ICQ Skype YIM   Вверх
Frees
Дата 7.7.2008, 13:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
ishimcity, заработало, дак для историй оставь как сделал


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0471 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.