Вычислить количество символов участка кода на интернет странице

[Shinnok91]

Помогите. Мне нужно вычислить количество символов участка кода на интернет странице (точнее на XML странице).
Есть строка <online>, но она может выглядеть и как <online type="2"> и как <online mid="7865" type="2">, причем это значение меняется очень часто. вообще, если эта строка на странице присутсвует, то фиксировано только ее начало - <online и окончание - символ ">" (первый попавшийся после "<online".

какую функцию можно использовать что бы вычислить длину этого участка.
нужно для парсера. сделал уже почти все там, одна эта функция держит.

пробовал функцию Length но никак не получается сделать так, что бы она вычисляла длину от позиции P до заданного символа.

[Пепел Феникса]

var i:integer;

i:=Pos('<online',s);
ShowMessage(Copy(s,i,PosEx('>',s,i)-i+1));

ну вродь примерно так

[Shinnok91]

Сообщение от Пепел Феникса

var i:integer;

i:=Pos('<online',s);
ShowMessage(Copy(s,i,PosEx('>',s,i)-i+1));

ну вродь примерно так

мне без ShowMessage надо бы. мне значение нужно брать после этого участка кода.
Length было бы наиболее правильно использовать. а то у меня и так вложенность большая. если бы код писал не я можно было бы запутаться там.
вот какой код у меня:

Delete(Send,1, P+Length(P, '>'));
мне нужно изменить то что в скобках после length

[Пепел Феникса]

Length возвращает длину строки вообще то, что вы пытаетесь собаке пятую ногу пришить то?
я назвал ключевую функцию, это PosEx.

мне без ShowMessage надо бы.

а кто мешает убрать его?
весь тэг вернет Copy, ShowMessage там для примера.

[Shinnok91]

Сообщение от Пепел Феникса

Length возвращает длину строки вообще то, что вы пытаетесь собаке пятую ногу пришить то?
я назвал ключевую функцию, это PosEx.
а кто мешает убрать его?
весь тэг вернет Copy, ShowMessage там для примера.

а переменная s тоже описывается как integer, насколько я понял?

Сообщение от Пепел Феникса

я назвал ключевую функцию, это PosEx.
весь тэг вернет Copy

дело в том что мне как раз нужно обрезать из текста заданную длину.

а этот тэг мне не нужен. нужно то что находится после него до тэга
</online>
Поэтому я и использую функцию Delete.

Ну я сейчас попробую кое-что. может сработает.

[Пепел Феникса]

var i:integer;
     s:string;//наша строка в которой будем искать

i:=PosEx('>',s,Pos('<online',s))+1;
ShowMessage(Copy(s,i,PosEx('<',s,i)-i));

как я понимаю вам это надо?(код примерный, может лишний символ цепануть, или наоборот)

[Shinnok91]

проверил. на функцию posEx ругается.
неверный тип данных, а так же считает ее переменной.

[Пепел Феникса]

у вас Делфи 6?
проверьте StrUtils или StrUtil есть в юзес?

[Shinnok91]

Сообщение от Пепел Феникса

var i:integer;
     s:string;//наша строка в которой будем искать

i:=PosEx('>',s,Pos('<online',s))+1;
ShowMessage(Copy(s,i,PosEx('<',s,i)-i));

как я понимаю вам это надо?

сейчас проверю. этот вариант получше чем предыдущий выглядит.
вот какой код у меня был вначале:

Delete(Send,1, P+7);
нужно семерку заменить на такое значение, чтобы обрезался код с позиции P до первого встретившегося после позиции P символа >

Сообщение от Пепел Феникса

у вас Делфи 6?
проверьте StrUtils или StrUtil есть в юзес?

нет, 7. но проверю все равно.

В строке Delete(Send,1, (Copy(s1,i1,PosEx('<',s1,i1)-i1))); выдает ошибку
[Error] Unit1.pas(344): Incompatible types после последней скобки

[Пепел Феникса]

а не надо там ничего удалять, посмотрите сначало что вам Copy вернет, я ж не спроста ShowMessage ставлю, при отладке очень полезно