如何在字符串里抓出手机号例如因未开通短信13457292243未收到您的短信    如何抓取,麻烦告知谢谢!

解决方案 »

  1.   

    如果字符串里面只有手机号码是数字,可以用pos找到1的位置,然后copy11个字节出来
      

  2.   

    procedure TForm1.btn2Click(Sender: TObject);
    begin
      PerlRegEx1.RegEx := '[0-9]*';
      PerlRegEx1.Subject := '因未开通短信13457292243未收到您的短信';
      PerlRegEx1.Match;
      ShowMessage(PerlRegEx1.MatchedExpression);
    end;
      

  3.   

    to zxf_feng
      PerlRegEx1 是什么呀,麻烦告知,谢谢
      

  4.   

    正则表达式的一个控件TPerlRegEx
    如果需要,给我你的邮箱,发给你。
      

  5.   

    [email protected]
    万分感谢!
      

  6.   

    阿三,给我也发一个,[email protected]  谢谢