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

[Johnson]

S;='abracadabra<online tag1=2 tag2=3>abracadabra';
x:=Pos('<online',S);
S2:=Copy(S,X+8,PosEx('>',S,X+1)-1);{S='tag1=2 tag3=2'}

S - ваш текст
в S2 будет "tag1=2 tag3=2"

uses SysUtils,StrUtils;

не забудьте

[Shinnok91]

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

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

у меня процедура именно с удалением. Copy рернет то, что мне как раз удалить надо будет

Сообщение от Johnson

S;='abracadabra<online tag1=2 tag2=3>abracadabra';
x:=Pos('<online',S);
S2:=Copy(S,X+8,PosEx('>',S,X+1)-1);{S='tag1=2 tag3=2'}

S - ваш текст
в S2 будет "tag1=2 tag3=2"

[CODE]

проблема в том что длина текста, который надо удалить, не фиксирована.

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

вам же вроде нужно было содержимое тэга online(содержимое, не аттрибуты)? это у меня Copy и вернет.
вы б хоть посмотрели что оно вытащит то.
и вообще приведите пример кода, и что надо с него вытащить, будет проще.

проблема в том что длина текста, который надо удалить, не фиксирована.

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

[Johnson]

а причем тут фиксированая длина текста? Мой код находит параметры тэга online и всё
покажите что у вас есть, и что вы из этого хотите получить.

[Shinnok91]

<online type="2">
орввыжрмжывао
</online>
вот участок кода страницы.
нужно вывести "орввыжрмжывао" (ну то что там находится).

begin
Delete(Send,1, P+*);
Delete(Send, pos('</online>', Send), Length(Send));
Edit7.Text := Send;
end

вместо звездочки нужно подставить переменную, которая бы обозначала число символов в строке <online type="2">

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

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

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

я же дал решение, проверьте его.
я не у компиля просто, не могу сам проверить(пишу все по знаниям)

[Shinnok91]

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

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

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

я же дал решение, проверьте его.
я не у компиля просто, не могу сам проверить(пишу все по знаниям)

я проверял. не работает. хотя все модули которые нужно подключил

[OlegVE]

Здравствуйте
Shinnok91. Попробуйте ещё раз, но уже внимательно перечитать сообщения от Пепел Феникса, потом заглянуть в справку по PosEx (StrUtils) и обратить внимание на слово первое (first).
До свидания

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

ТС специально ради вас скачал Делфи 7 и поставил.
ловите скрин, того что я все написал верно.

[Shinnok91]

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

ТС специально ради вас скачал Делфи 7 и поставил.
ловите скрин, того что я все написал верно.

ну хорошо. попробую еще раз

Все, спасибо. Алгоритм работает. Протестировал при различных ситуациях, ошибкок пока не было

тему можно закрывать. Спасибо Пепел Феникса за помощь