一个在字符传里抓手机号的问题,在线等待急.... 如何在字符串里抓出手机号例如因未开通短信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] 谢谢 MCI_PLAY_PARMS dwCallback 如何获取回调事件 有意思的TParameters,5年来首次发贴,散分 tClientSocket在线程中为什么 不能用? 亲问一个小问题~ 如何选中DBGrid中的一行记录???? 关于继承 谁能帮我介绍几个用于EMAIL程序制作的第三方控件? delphi 自定义函数怎么写啊 向大侠请教一个问题 请问各位大虾CheckOle()有何用呢? delphi SQL Server不存在或拒绝访问 clientsocket http协议Post数据
begin
PerlRegEx1.RegEx := '[0-9]*';
PerlRegEx1.Subject := '因未开通短信13457292243未收到您的短信';
PerlRegEx1.Match;
ShowMessage(PerlRegEx1.MatchedExpression);
end;
PerlRegEx1 是什么呀,麻烦告知,谢谢
如果需要,给我你的邮箱,发给你。
万分感谢!