delphi 正则表达式验证手机号与固话?

函数返回,判断一个字符串是手机号还是固话号,用正则匹配,是手机号返回,否则返回空,会正则的老师帮个忙/

2个回答

 先自行下载一个 PerlRegEx
用下面的代码
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);
  reg.Subject := '13701271023';
  reg.RegEx := '1(3|5|7|8)\d{9}';
  if reg.Match then
    ShowMessage('是手机')
  else
    ShowMessage('不是');
  FreeAndNil(reg);
end;

电话号码,要看你的格式,有没有横杠
下面这个匹配有横杠的,替换到上面的正则就可以了
\d{3,4}\-\d{7,8}
这个能匹配3~4位区号-7~8位电话,比如 010-12345678
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 回复a814123: 开头是1,第二位是3578,然后是9个任意数字。
大约 2 年之前 回复
a814123
814123 想加你QQ 2939878881 我的
大约 2 年之前 回复
a814123
814123 1(3|5|7|8)\d{9} 能否解释下是什么意思
大约 2 年之前 回复

如果不想用PerlRegEx,也可以用 ReguarExpressions的TRegEx,这是delphi自带的,代码类似

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
delphi 正则表达式匹配一个公司名?

delphi 正则表达式匹配一个公司名? 如:上海XX实业公司 浙江中石化有限责任公司 东润集团 只要包含,公司,集团,有限公司,责任公司的,都视为公司名。 求代码

正则表达式 时分秒匹配

需要匹配的时间格式如下: (1) 2016-12-19 10:55:20 (2) 2016-12-19 10:55 (3) 2016-12-19 对于时分秒匹配的正则表达式如下: ([0-9]{1,2}:[0-9]{1,2})?(:[0-5]{0,1}[0-9]{1})? 希望优先匹配第一种时间格式。但对于文本中有多个不同格式的时间时,第一个返回的时间格式是第3种,正则表达式怎么修改?

求日期格式正则表达式

求日期格式正则表达式 String a = "yyyyMMdd"; String b = "yyyy MM dd"; String c = "yyyy-MM-dd"; String d = "yyyy/MM/dd"; String e = "yyyy.MM.dd"; String f = "MM-yyyy-dd"; String g = "dd MM yyyy"; String h = "yyyy-dd-MM"; //匹配上面的格式 //年 月 日 位置变换 还可以匹配的正则~

正则表达式匹配指定格式

内容&内容%内容&日期&内容%内容,这个正则表达式如何匹配?

正则表达式,将从文本文件中提取句子

<div class="post-text" itemprop="text"> <p>I need a regular expression that will extract sentences from text file. example text :</p> <p><em>Consider, for example, the Asian tsunami disaster that happened in the end of 2004. A query to Google News (http://news.google.com) returned more than 80,000 online news articles about this event within one month (Jan.17 through Feb.17, 2005). information by mr. Kahana.</em> </p> <p>here's my code :</p> <pre><code>$re = '/(?&lt;=[.!?]|[.!?][\'"])\s+/'; $sentences = preg_split($re, $text, -1, PREG_SPLIT_NO_EMPTY); </code></pre> <p>but the last sentence still splitted <code>information by mr.</code> and <code>Kahana.</code> how to solve it ? thank you :)</p> </div>

使用正则表达式将多个完整单词与php匹配

<div class="post-text" itemprop="text"> <p>I'm implementing a "Tags" feature in our custom product management system. Each product has a comma seperated list of tags associated. We have a "tag search" with check boxes. The user can check multiple tags and it will filter with ajax with all the selected tags, so all tags need to be matched together. Example.</p> <pre><code>Tags: Tag1,Tag2,Tag3 #1-product-tags: Tag3,Tag10,Tag2 #2-product-tags: Tag1,Tag3,Tag10 #3-product-tags: Tag5,Tag1,Tag3 #4-product-tags: Tag8,Tag4,Tag20 #5-product-tags: Tag20,Tag100,Tag500 </code></pre> <p>When filtering with the above tags checked, I expect to return #1,#2,#3 only because the given tags are listed in the product-tags column of these products.</p> <p>Im currently trying to use regular expressions by dynamically creating a regex when the user checks the tags. In order to qualify as a match, the product must have all tags checked. Im generating this like so:</p> <pre><code> &lt;?php //empty collection array to fill with product loop $collection = array(); //dynamically generated regex $regex = "\b" . $tag1 . "|" . $tag2 . "|" . $tag3 . "\b/i"; //loop through each product and throw matches to collection foreach($products as $product) { if(preg_match($regex,$product-&gt;tags)) { array_push($collection,$product); } } ?&gt; </code></pre> <p>I am not getting the expected result doing it this way. What is the best way I can get my expected result. Im not too great with Regular Expressions but I am learning. </p> </div>

DELPHI下正则表达式问题请教各位大侠

我想写一个提取短信验证码的正则表达式。一般是特定字符加4到8位数字。 比如文字有可能是 abc或def或hij中的一个,4到8位数字,有可能数字在字符之前,也有可能是在字符之后.即:有可能是 def asdklfoiaweioeawoi 4567 也有可能是 4567 def asdklfoiaweioeawoi 。匹配成功后取出指定的数字作为验证码。但是 我自己写过 (?=abc|def|hij)(\D(\d{4,8})\D)或(?<=abc|def|hij)(\D(\d{4,8})\D)均匹配不到。 请各位高手指教。

包含斜杠和星号作为常量的正则表达式

<div class="post-text" itemprop="text"> <p>I am using Golang and I am trying to determine which regex will work to match any string that starts with:</p> <pre><code>/* </code></pre> <p>It has been dificult to get it, I tried many ways (I didn't save them all to writte them here), but some of them are:</p> <pre><code>{/*}.*? //*.*? //\\*[A-Za-z0-9_-]*$ </code></pre> </div>

Delphi XE10 安卓手机软件开发,如何创建一个数据库表?

delphi 7集成了 有一个专门创建DB数据库表的软件,Delphi XE10 安卓,是否也有类似的创建DB数据库表的方法?

delphi webbrowser怎样才能登陆一个网站!望赐教,感激不尽

如题,比如说百度网站,用delphi 的webbrowser打开,点击登陆会显示脚本错误,怎样才能实现这个功能。 望赐教,谢谢~ 不胜感激!

delphi 实现验证码功能

本人在用delphi做一个登录界面,想实现验证码的功能。但在百度上没找到源码。求源码连接地址或源码,谢谢。

Delphi xe10 安卓开发,如何在手机屏幕上徒手画线?

如何在手机屏幕上徒手画线? 我在手势EventInfo.GestureID -- igipan 事件中画图,发现拒绝Image画图操作。

如何使用 Delphi RestClient 读取流数据?

OANDA网站提供的REST API可以读取账户信息("https://api-fxtrade.oanda.com/v1/accounts),以及提供流报价(streaming,比如"https://stream-fxtrade.oanda.com/v1/prices?accountId=12345&instruments=AUD_CAD%2CAUD_CHF" )。 目前在XE7版本,使用Delphi提供的RestClient组件可以实现读取账户信息。但是,对于服务端的流数据,由于其传输方式是 chunked transfer encoding,按照账户数据读取方式则会在停在最后Excute无法获得返回的Json字符串。 代码如下: ``` function GetStreamingPrices:TQJson var .... begin Result := TQJson.Create; // Get _RESTRequest.Method := rmGET; //指定资源位置:'/prices' _RESTRequest.Resource := TRequestSourceURITemplate.Prices; //生成query串:accountId=12345&instruments=AUD_CAD%2CAUD_CHF _RESTRequest.AddParameter(TQueryPairKey.AccountID,accountlist[0],pkGETorPOST); _RESTRequest.AddParameter(TQueryPairKey.Instruments,'EUR_USD',pkGETorPOST); //URL ._RestClient.BaseURL := 'https://stream-fxtrade.oanda.com/v1'; //执行 _RestRequest.Execute; //解析为Json Result.tryParse(_RESTResponse); end; ``` so,请教,如何使用Delphi XE7 的RestClient 获取 chunked transfer encoding 的流数据?请不吝赐教。 ----------------- 多谢一楼 @caozhy 提供的信息,不过没有没有解决此问题。我再描述一下: 1、上面的代码用于正常的request-response过程,是没有问题的。 2、 问题出在,报价流的获取上。报价服务器在工作时段实际是持续传输,一直没有结束,采取chunked transfer encoding模式持续地向外传输当时的即时价格信息。使用上面代码,就会处在一直等待状态下。 因此,需要达到的目标就是:一,不能等到结束标志才去解析收到的字符串。二,即便间歇获取数据,如果中间的缓冲时间过长,也不能忍受。

Delphi设计一个登录界面

Delphi中form1是:用户名和密码,用户名输入"test1","test2","test3","test4","test5", 密码都是"123456",都正确,则进入form2,若用户名错误,弹出消息框"用户名不存在" ,若密码错误,则弹出消息框"密码输入错误"。如何用数组编写form1的代码? var name:array[1..5] of string;

delphi 7和delphi xe,你选哪一个?

过去开发项目一直用delphi 7,为了避免版权问题,现在想买套正版软件,纠结于买delphi 7还是delphi xe,大家来说说它们的优缺点吧

在delphi xe7中控件TClientSocket、 TServerSocket支持安卓系统吗?

在delphi xe7中控件TClientSocket、 TServerSocket支持安卓系统吗? 我有个程序是在delphi 7中写的使用了TClientSocket、 TServerSocket控件,现在想在delphi xe7中写手机客户端,和服务器通信还是想用TClientSocket控件,就是不知道支持安卓系统不,我在delphi xe7只建vcl工程就有这2个控件,但是换成支持手机的就没有这2个控件了,但是控件上提示又支持安卓系统的,我就搞不懂了,望赐教!谢谢

delphi richedit里比较文字?

比如:richedit1里有“DELPHI”。 richedit2里有“DELPHI是一门开发语言”。 那么单击按钮richedit2里的"DELPHI"就以红色加组字体显示,其他的不变。 麻烦老师给个思路或者实例参考! /////// 就是要这样的效果呢? ![图片说明](https://img-ask.csdn.net/upload/201801/05/1515135478_694746.png) RichEdit2里的文字,R和我显示红色。

delphi xe7 取屏幕颜色

有没有像delphi低版本的方法,如.Canvas.Pixels得到屏幕的颜色?

Delphi结构体的对齐问题

Delphi结构体的对齐问题,Delphi的PChar是几个字节,Short和PChar是不是需要按照4字节对齐?

在中国程序员是青春饭吗?

今年,我也32了 ,为了不给大家误导,咨询了猎头、圈内好友,以及年过35岁的几位老程序员……舍了老脸去揭人家伤疤……希望能给大家以帮助,记得帮我点赞哦。 目录: 你以为的人生 一次又一次的伤害 猎头界的真相 如何应对互联网行业的「中年危机」 一、你以为的人生 刚入行时,拿着傲人的工资,想着好好干,以为我们的人生是这样的: 等真到了那一天,你会发现,你的人生很可能是这样的: ...

程序员请照顾好自己,周末病魔差点一套带走我。

程序员在一个周末的时间,得了重病,差点当场去世,还好及时挽救回来了。

技术大佬:我去,你写的 switch 语句也太老土了吧

昨天早上通过远程的方式 review 了两名新来同事的代码,大部分代码都写得很漂亮,严谨的同时注释也很到位,这令我非常满意。但当我看到他们当中有一个人写的 switch 语句时,还是忍不住破口大骂:“我擦,小王,你丫写的 switch 语句也太老土了吧!” 来看看小王写的代码吧,看完不要骂我装逼啊。 private static String createPlayer(PlayerTypes p...

和黑客斗争的 6 天!

互联网公司工作,很难避免不和黑客们打交道,我呆过的两家互联网公司,几乎每月每天每分钟都有黑客在公司网站上扫描。有的是寻找 Sql 注入的缺口,有的是寻找线上服务器可能存在的漏洞,大部分都...

上班一个月,后悔当初着急入职的选择了

最近有个老铁,告诉我说,上班一个月,后悔当初着急入职现在公司了。他之前在美图做手机研发,今年美图那边今年也有一波组织优化调整,他是其中一个,在协商离职后,当时捉急找工作上班,因为有房贷供着,不能没有收入来源。所以匆忙选了一家公司,实际上是一个大型外包公司,主要派遣给其他手机厂商做外包项目。**当时承诺待遇还不错,所以就立马入职去上班了。但是后面入职后,发现薪酬待遇这块并不是HR所说那样,那个HR自...

女程序员,为什么比男程序员少???

昨天看到一档综艺节目,讨论了两个话题:(1)中国学生的数学成绩,平均下来看,会比国外好?为什么?(2)男生的数学成绩,平均下来看,会比女生好?为什么?同时,我又联想到了一个技术圈经常讨...

总结了 150 余个神奇网站,你不来瞅瞅吗?

原博客再更新,可能就没了,之后将持续更新本篇博客。

副业收入是我做程序媛的3倍,工作外的B面人生是怎样的?

提到“程序员”,多数人脑海里首先想到的大约是:为人木讷、薪水超高、工作枯燥…… 然而,当离开工作岗位,撕去层层标签,脱下“程序员”这身外套,有的人生动又有趣,马上展现出了完全不同的A/B面人生! 不论是简单的爱好,还是正经的副业,他们都干得同样出色。偶尔,还能和程序员的特质结合,产生奇妙的“化学反应”。 @Charlotte:平日素颜示人,周末美妆博主 大家都以为程序媛也个个不修边幅,但我们也许...

如果你是老板,你会不会踢了这样的员工?

有个好朋友ZS,是技术总监,昨天问我:“有一个老下属,跟了我很多年,做事勤勤恳恳,主动性也很好。但随着公司的发展,他的进步速度,跟不上团队的步伐了,有点...

我入职阿里后,才知道原来简历这么写

私下里,有不少读者问我:“二哥,如何才能写出一份专业的技术简历呢?我总感觉自己写的简历太烂了,所以投了无数份,都石沉大海了。”说实话,我自己好多年没有写过简历了,但我认识的一个同行,他在阿里,给我说了一些他当年写简历的方法论,我感觉太牛逼了,实在是忍不住,就分享了出来,希望能够帮助到你。 01、简历的本质 作为简历的撰写者,你必须要搞清楚一点,简历的本质是什么,它就是为了来销售你的价值主张的。往深...

外包程序员的幸福生活

今天给你们讲述一个外包程序员的幸福生活。男主是Z哥,不是在外包公司上班的那种,是一名自由职业者,接外包项目自己干。接下来讲的都是真人真事。 先给大家介绍一下男主,Z哥,老程序员,是我十多年前的老同事,技术大牛,当过CTO,也创过业。因为我俩都爱好喝酒、踢球,再加上住的距离不算远,所以一直也断断续续的联系着,我对Z哥的状况也有大概了解。 Z哥几年前创业失败,后来他开始干起了外包,利用自己的技术能...

优雅的替换if-else语句

场景 日常开发,if-else语句写的不少吧??当逻辑分支非常多的时候,if-else套了一层又一层,虽然业务功能倒是实现了,但是看起来是真的很不优雅,尤其是对于我这种有强迫症的程序"猿",看到这么多if-else,脑袋瓜子就嗡嗡的,总想着解锁新姿势:干掉过多的if-else!!!本文将介绍三板斧手段: 优先判断条件,条件不满足的,逻辑及时中断返回; 采用策略模式+工厂模式; 结合注解,锦...

深入剖析Springboot启动原理的底层源码,再也不怕面试官问了!

大家现在应该都对Springboot很熟悉,但是你对他的启动原理了解吗?

离职半年了,老东家又发 offer,回不回?

有小伙伴问松哥这个问题,他在上海某公司,在离职了几个月后,前公司的领导联系到他,希望他能够返聘回去,他很纠结要不要回去? 俗话说好马不吃回头草,但是这个小伙伴既然感到纠结了,我觉得至少说明了两个问题:1.曾经的公司还不错;2.现在的日子也不是很如意。否则应该就不会纠结了。 老实说,松哥之前也有过类似的经历,今天就来和小伙伴们聊聊回头草到底吃不吃。 首先一个基本观点,就是离职了也没必要和老东家弄的苦...

2020阿里全球数学大赛:3万名高手、4道题、2天2夜未交卷

阿里巴巴全球数学竞赛( Alibaba Global Mathematics Competition)由马云发起,由中国科学技术协会、阿里巴巴基金会、阿里巴巴达摩院共同举办。大赛不设报名门槛,全世界爱好数学的人都可参与,不论是否出身数学专业、是否投身数学研究。 2020年阿里巴巴达摩院邀请北京大学、剑桥大学、浙江大学等高校的顶尖数学教师组建了出题组。中科院院士、美国艺术与科学院院士、北京国际数学...

男生更看重女生的身材脸蛋,还是思想?

往往,我们看不进去大段大段的逻辑。深刻的哲理,往往短而精悍,一阵见血。问:产品经理挺漂亮的,有点心动,但不知道合不合得来。男生更看重女生的身材脸蛋,还是...

为什么程序员做外包会被瞧不起?

二哥,有个事想询问下您的意见,您觉得应届生值得去外包吗?公司虽然挺大的,中xx,但待遇感觉挺低,马上要报到,挺纠结的。

当HR压你价,说你只值7K,你该怎么回答?

当HR压你价,说你只值7K时,你可以流畅地回答,记住,是流畅,不能犹豫。 礼貌地说:“7K是吗?了解了。嗯~其实我对贵司的面试官印象很好。只不过,现在我的手头上已经有一份11K的offer。来面试,主要也是自己对贵司挺有兴趣的,所以过来看看……”(未完) 这段话主要是陪HR互诈的同时,从公司兴趣,公司职员印象上,都给予对方正面的肯定,既能提升HR的好感度,又能让谈判气氛融洽,为后面的发挥留足空间。...

面试:第十六章:Java中级开发(16k)

HashMap底层实现原理,红黑树,B+树,B树的结构原理 Spring的AOP和IOC是什么?它们常见的使用场景有哪些?Spring事务,事务的属性,传播行为,数据库隔离级别 Spring和SpringMVC,MyBatis以及SpringBoot的注解分别有哪些?SpringMVC的工作原理,SpringBoot框架的优点,MyBatis框架的优点 SpringCould组件有哪些,他们...

面试阿里p7,被按在地上摩擦,鬼知道我经历了什么?

面试阿里p7被问到的问题(当时我只知道第一个):@Conditional是做什么的?@Conditional多个条件是什么逻辑关系?条件判断在什么时候执...

你期望月薪4万,出门右拐,不送,这几个点,你也就是个初级的水平

先来看几个问题通过注解的方式注入依赖对象,介绍一下你知道的几种方式@Autowired和@Resource有何区别说一下@Autowired查找候选者的...

面试了一个 31 岁程序员,让我有所触动,30岁以上的程序员该何去何从?

最近面试了一个31岁8年经验的程序猿,让我有点感慨,大龄程序猿该何去何从。

大三实习生,字节跳动面经分享,已拿Offer

说实话,自己的算法,我一个不会,太难了吧

程序员垃圾简历长什么样?

已经连续五年参加大厂校招、社招的技术面试工作,简历看的不下于万份 这篇文章会用实例告诉你,什么是差的程序员简历! 疫情快要结束了,各个公司也都开始春招了,作为即将红遍大江南北的新晋UP主,那当然要为小伙伴们做点事(手动狗头)。 就在公众号里公开征简历,义务帮大家看,并一一点评。《启舰:春招在即,义务帮大家看看简历吧》 一石激起千层浪,三天收到两百多封简历。 花光了两个星期的所有空闲时...

《Oracle Java SE编程自学与面试指南》最佳学习路线图2020年最新版(进大厂必备)

正确选择比瞎努力更重要!

《Oracle Java SE编程自学与面试指南》最佳学习路线图(2020最新版)

正确选择比瞎努力更重要!

字节跳动面试官竟然问了我JDBC?

轻松等回家通知

面试官:你连SSO都不懂,就别来面试了

大厂竟然要考我SSO,卧槽。

终于,月薪过5万了!

来看几个问题想不想月薪超过5万?想不想进入公司架构组?想不想成为项目组的负责人?想不想成为spring的高手,超越99%的对手?那么本文内容是你必须要掌握的。本文主要详解bean的生命...

自从喜欢上了B站这12个UP主,我越来越觉得自己是个废柴了!

不怕告诉你,我自从喜欢上了这12个UP主,哔哩哔哩成为了我手机上最耗电的软件,几乎每天都会看,可是吧,看的越多,我就越觉得自己是个废柴,唉,老天不公啊,不信你看看…… 间接性踌躇满志,持续性混吃等死,都是因为你们……但是,自己的学习力在慢慢变强,这是不容忽视的,推荐给你们! 都说B站是个宝,可是有人不会挖啊,没事,今天咱挖好的送你一箩筐,首先啊,我在B站上最喜欢看这个家伙的视频了,为啥 ,咱撇...

立即提问
相关内容推荐