[Delphi]/[Pascal] Задай вопрос, получи ответ

#11

22.02.2009, 23:05

Maxxxtri23

Познающий

Регистрация: 20.12.2008

Сообщений: 76

С нами: 9152717

Репутация: 6

Как мне преобразовать эту страницу

Код:

<HTML>
<HEAD>
<TITLE>Ваш IP-адрес. Узнать IP адрес, определить IP-адрес, определить свой IP</TITLE><BASE target=_top>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1251">
<meta name="keywords" content="узнать IP-адрес, определить IP адрес, проверить интернет адрес, определить свой IP">
<meta name="description" content="Здесь Вы можете узнать свой IP-адрес. Чтобы определить IP адрес достаточно зайти на сайт www.myip.ru.">
</HEAD>
<BODY bgcolor=white>
<TABLE width=100% height=100% cellspacing=0 cellpadding=0 border=0><TD align=center valign=middle>
<TABLE width=500 height=100 cellspacing=0 cellpadding=0 border=0>
<TR><TD bgcolor=#43AA2E><TABLE width=500 height=100 cellspacing=1 cellpadding=4 border=0>
  <TR><TD bgcolor=#E0EED3 height=30 align=center valign=middle><B>Ваш IP-адрес</B></TD></TR>
  <TR><TD bgcolor=white align=center valign=middle>123.123.123.123</TD></TR>
</TABLE></TD></TR>
<TR><TD align=center><A href="http://www.netup.ru/Autonomous_System_Registration.php?from=myip" target=_top style="color:#888888">Получить IP-адреса и 
автономную систему</A></TD></TR>
<TR><TD align=left><FONT color=#888888><SMALL>&copy; <A href="http://www.netup.ru/" target=_top style="color:#888888">Net<B>UP</B></A>, 
2003</SMALL></FONT></TD></TR>

<!-- liveinternet -->

<!--LiveInternet counter--><script type="text/javascript"><!--
document.write("<img src='http://counter.yadro.ru/hit?r"+
escape(document.referrer)+((typeof(screen)=="undefined")?"":
";s"+screen.width+"*"+screen.height+"*"+(screen.colorDepth?
screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
";"+Math.random()+
"' width=1 height=1 alt=''>")//--></script><!--/LiveInternet-->
<!-- END liveinternet -->

</TABLE>

</TD>

</TABLE>
</BODY>
</HTML>

Так чтоб осталось только 123.123.123.123. ТОесть убрать левую и правую часть от этого текста, но с условием, что текст может меняться. Тоесть взять

Код:

<TR><TD bgcolor=white align=center valign=middle>

и удалить весь текст до нее, затем взять

Код:

</TD></TR></TABLE></TD></TR>

и удалить текст после неё , а потом удалить эти обе строчки. Плиз напишите пример, а то у мне с операторами pos и остальными связанными со строками туговато =(

Последний раз редактировалось Maxxxtri23; 23.02.2009 в 00:02..