重赏-----全部分送上

Question

程序是这样的，有一个memo1，button1，memo2
memo1的内容如下“=6=#000000><TR><TR><="#A5A5A5"><IMG align=/ </TD><TDbgColor="#的真实ＩＰ 是：127.0.0.1，来自：荷兰，操作系统：未知，浏 览 器：未知</TD></TR></TABLE><table cellpadding=6 cellspacing=0 width=80% align=center  bordercolor="#000000" border=1 style="word-break:break-all;"><TR><TD bgColor="#959595" colSpan=2><font color=#000000><b>　-=> 论坛在线统计</b>（同时在线峰值<b>62</b>，发生时刻<b>2003年3月5日 08:07</b>）[<a href=index.asp?action=off><font color=#000000>关闭详细列表</font></a>] [<a href=online.asp><font color=#000000>在线用户</font></a>]</font></TD></TR><TR><TD v”我的问题是，按下button1后取出memo1里的IP地址放到memo2里，当然这个IP地址不一定是127.0.0.1
，也有可能是类似于61.188.25.33 在这里只是为了方便打个比方，但IP地址的格式肯定都是这样的 
0.0.0.0 
其实这个程序的目的就是分析网页的源代码
memo1的内容其实就是网页的源代码
我想得到的只是IP而已

Answer 1

(((1?\d{1,2})|(2\d2))\.){3}((1?\d{1,2})|(2\d2))

Answer 2

我是初学
麻烦能不能给出具体的button1的click 代码

Answer 3

tmps := memo1.text;
tmpi := pos('真实ＩＰ 是：',tmps);
delete(tmps,1,tmpi);
tmpi := pos(',',tmps);
result := copy(tmps,1,tmpi);大概就这样阿，可能会有位数不对的，自己调一下，就是加1减1的。没调拾柒。:)

Answer 4

如果都向上面一样的话，有个最简单的！
var
  iStrart,iEnd : Integer;
begin
  iStrart := pos(':',memo1.text);
  iEnd := pos(',',memo1.Text);
  Memo2.Text := Copy(memo1.Text,iStrart,iEnd-iStrart);
end;

Answer 5

用正则表达式~~~
for delphi的代码可到playicq上搜RegExp