Показать сообщение отдельно
  #1  
Старый 01.12.2010, 12:23
boobonick boobonick вне форума
Прохожий
 
Регистрация: 24.09.2010
Сообщения: 29
Репутация: 10
Вопрос Помогите подправить код немножко

здравствуйте, вот чего-то пытаюсь понять, но не получается:

Код:
 get_html:='wsd<http://www.sait/=1111 11111 11111> <http://www.sait/=2222 222222 2222222> <http://www.sait/=333333 333333 333333333> </html>';

 s_find:='<http://www.sait/=';

 len_doc:= length(get_html); 
 len_find:=length(s_find);  

 while (len_tage<>len_find) do

 begin

 len_tage:=posex(s_find,get_html,len_tage); 

 s:=copy(get_html,len_tage, posex('>',get_html,len_tage) - len_tage + 1 );

 Memo1.Lines.Add(s);

 len_tage:=len_tage + len_find;

 end;


На выходе получается:

<http://www.sait/=1111 11111 11111>
<http://www.sait/=2222 222222 2222222>
<http://www.sait/=333333 333333 333333333>
wsd<http://www.sait/=1111 11111 11111>

И вот не знаю, почему выводится последняя строчка? Как мне ее не выводить, очевидно, что по условиям у меня неверно, а вот чтооо
Ответить с цитированием