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使用zlib压缩和解压文件

Delphi中如何用一个按钮控制开与关两个状态

Delphi dblookupcombobox组件的使用方法

Delphi7 写过卡巴主动防御服务端

Delphi使用进行post数据时超时设置

Delphi 用代码实现为程序创建快捷方式的二种方法

Delphi 处理图片(剪切，压缩)

Delphi下的字符串分隔函数的一种用法

Delphi 2009 之 tbuttonededit

Delphi 强制删除文件 zwdeletefile

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

转载请注明出处：木庄网络博客 » delphi 屏蔽汉字，年月日，时间，银行卡正则表达式