Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Поиск строки...

Автор: ishimcity 7.7.2008, 08:03

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

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

помогите как мне считать только слово....

Автор: Virtuals 7.7.2008, 08:30

строку во временную переменную
искать входящий тег (в вашем случае </div>)
обрезать строку сначала прям по найденное вместе с его длинной s2:=copy(s1,pos('</div>',s1)+6,length(s1)-pos('</div>',s1)-5)
искать закрывающий тег (в вашем случае </div>)
вот сначала строки и до pos('</div>',s2) и есть искомое

Автор: Frees 7.7.2008, 08:31

перед поиском удали из строки все тэги и делай поиск

Добавлено через 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;

Автор: ishimcity 7.7.2008, 09:09

Блин либо я недаезжаю либо ..."в лыжах я".. чет некатит код

Автор: Frees 7.7.2008, 09:21

Цитата(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;

Автор: kemiisto 7.7.2008, 09:47

ishimcity, потратьте немного времени на изучение http://forum.vingrad.ru/articles/topic-213075.html Этот инструмент как раз подходит для решения задачи.

Автор: ishimcity 7.7.2008, 13:34

Всем спасибо друзья, все у меня все заработало

Автор: Frees 7.7.2008, 13:48

ishimcity, заработало, дак для историй оставь как сделал