一个在字符传里抓手机号的问题,在线等待急.... 如何在字符串里抓出手机号例如因未开通短信13457292243未收到您的短信 如何抓取,麻烦告知谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果字符串里面只有手机号码是数字,可以用pos找到1的位置,然后copy11个字节出来 procedure TForm1.btn2Click(Sender: TObject);begin PerlRegEx1.RegEx := '[0-9]*'; PerlRegEx1.Subject := '因未开通短信13457292243未收到您的短信'; PerlRegEx1.Match; ShowMessage(PerlRegEx1.MatchedExpression);end; to zxf_feng PerlRegEx1 是什么呀,麻烦告知,谢谢 正则表达式的一个控件TPerlRegEx如果需要,给我你的邮箱,发给你。 [email protected]万分感谢! 阿三,给我也发一个,[email protected] 谢谢 http.post提交数据包问题 如何让DBGrid绘制的时候精确定位到每一个单元格的颜色? 求 像 用友 "华表" 功能一样强大的 免费 的 VCL 控件????????????? 关注中国共享软件的请近来!!!(转贴) 请问什么是分组报表,Delphi中自带的QReport有分组报表功能吗? 调用VC类库是为什么总是出错呢,请教! 如何运用delphi中Frames控件? 三层结构如何调用多个SQL数据库 打印的问题 怎样实现Cookie? delphi SQL Server不存在或拒绝访问 clientsocket http协议Post数据
begin
PerlRegEx1.RegEx := '[0-9]*';
PerlRegEx1.Subject := '因未开通短信13457292243未收到您的短信';
PerlRegEx1.Match;
ShowMessage(PerlRegEx1.MatchedExpression);
end;
PerlRegEx1 是什么呀,麻烦告知,谢谢
如果需要,给我你的邮箱,发给你。
万分感谢!