delphi 屏蔽汉字,年月日,时间,银行卡正则表达式


本文整理自网络,侵删。

 
引用单元:RegularExpressions

aStr:=TRegEx.Replace(aStr,'[\x{4E00}-\x{9FA5}]',' ');
aStr:=TRegEx.Replace(aStr,'^[1-9]\d{3}-(0[1-9]|1[0-2])-(0[1-9]|[1-2][0-9]|3[0-1])\s+(20|21|22|23|[0-1]\d):[0-5]\d:[0-5]\d','');  //年月日 时间
aStr:=TRegEx.Replace(aStr,'([0-9]{3}[1-9]|[0-9]{2}[1-9][0-9]{1}|[0-9]{1}[1-9][0-9]{2}|[1-9][0-9]{3})-(((0[13578]|1[02])-(0[1-9]|[12][0-9]|3[01]))|((0[469]|11)-(0[1-9]|[12][0-9]|30))|(02-(0[1-9]|[1][0-9]|2[0-8])))','');  //年月日
aStr:=TRegEx.Replace(aStr,'([0-9]{1,2}:[0-9]{1,2})?(:[0-5]{0,1}[0-9]{1})','');  //时间格式hh:mm:ss
aStr:=TRegEx.Replace(aStr,'0[0-9]:[0-5][0-9]|1[0-9]:[0-5][0-9]|2[0-3]:[0-5][0-9]','');  //时间格式hh:mm
aStr:=TRegEx.Replace(aStr,'([\d]{4})([\d]{4})([\d]{4})([\d]{4})([\d]{0,})?',''); //银行卡

相关阅读 >>

Delphi 运行中申请uac权限

Delphi判断线程是否正在运行

Delphi汇编级初探

Delphi取得桌面工作区域的大小

Delphi tstringlist.find

Delphi 字符串保存utf-8过程

Delphi system.fillchar - 填充字节

Delphi tlistbox添加横向滚动条

wmi远程访问问题解决方法

Delphi xe 取得 app 自己的版本号 (狠跨 4 个平台)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...