Delphi 中怎么用正则表达式取出下面的值

[lhk165]

姓名:张三 手机:[phone]
地址:XX省 XX市 XX区 XX路XX号
电话:010-xxxxxxx 邮编 441100 (存放在Memo控件中)

像这种字符串，如何用正则表达式取出,需要截取出来为：
张三 13888888888 XX省 XX市 XX区 XX路XX号 010-xxxxxxx 441100


注:请使用TRegExpr

[Henry.6]

文本：

姓名:张三 手机:[phone]
地址:XX省 XX市 XX区 XX路XX号
电话:010-xxxxxxx 邮编: 441100

正则：

\n*[^\s:]+?(?=:):

替换：无

结果：

张三 13888888888
XX省 XX市 XX区 XX路XX号
010-xxxxxxx 441100

[kspaul]

真是神人，这种东西也能通过正则来实现。你不会写个方法来提取吗

[kaikai_kk]

沒裝TRegExpr,提供一個常用的方法給你,如果Memo格式是這樣：

姓名:张三
手机:[phone]
地址:XX省 XX市 XX区 XX路XX号
电话:010-xxxxxxx 邮编 441100

var
  i:integer;
  s:string;
begin
  with tstringlist.Create do
  begin
    Assign(memo1.Lines);
    NameValueSeparator:=':';
    for i:=0 to Count-1 do
      s:=s+ValueFromIndex[i]+' ';
   Free;
  end;
  showmessage(s);
end;

[OO_is_just_P]

简单。

[lhk165]

姓名:张三 手机:[phone]
地址:XX省 XX市 XX区 XX路XX号
电话:010-xxxxxxx 邮编 441100 (存放在Memo控件中)

像这种字符串，如何用正则表达式取出,需要截取出来为：
张三
13888888888
XX省
XX市
XX区
XX路XX号
010-xxxxxxx
441100


注:请使用TRegExpr

[lhy]

北京市上海市难道要输入北京省上海省吗