腾讯云网站解决方案帮您轻松应对建站成本高/网络不稳等常见问题

[其他] 利用正则表达式RegExp对象,成批量地判断电子邮箱格式是否正确

1
回复
1885
查看
[复制链接]

765

主题

779

帖子

3万

积分

董事

Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72Rank: 72

积分
33029
发表于 19-4-25 15:25:00 | 显示全部楼层 |阅读模式      紫钻仅向指定用户开放  
                                                   
本示例是在A列中存放了大量的未经清洗的电子邮箱,用创建的正则表达式函数MyExp将处理后的数据存放在在第二列 ... ...
*如果您想要示例中的原始文件,没得啥子问题,发送"MODEL+您的电子邮箱+20140422"给我,我把原始文件邮件给您,20140422是代表我2014.4.22日发送的案例。
0.jpg
. N# C2 ?6 {1 X- Y# g. v
仍然是老调重弹了,引用非常重要,没有对"Microsoft VBScript Regular Expressions 5.5"的引用,复制的代码运行不了是最常见的现象了...
示例代码 :
Sub JuEmail() '判断电子邮箱的格式是否正确2 G4 j( t" Q# j* x( _  a/ F! g8 w' v
Dim I As Long
/ Q! `3 g! h6 B- s9 f; H5 m/ Z2 Z, v" z1 [/ o
For I = 2 To 100 '根据需要设置,或者用类似ThisWorkbook.ActiveSheet.Range("a60000").End(xlUp).Row这样的语句来判断最后一行单元格的行数量8 D  v) [' v2 I) m4 [& j$ [
Cells(I, 2).Value = MyExp(Cells(I, 1).Value)'调用正则表达式函数
" P9 S5 G" z  Z6 nNext' o" L3 `- L; W+ i4 I# Z
End Sub
'-----------函数
'添加对正则表达式的引用: 菜单"工具"---"引用"--"Microsoft VBScript Regular Expressions 5.5"4 ^: y8 u  a% Z
Function MyExp(MyStr As String) As String
Dim MyReg As New RegExp" ~1 w# X; F( r0 _+ p+ V0 L/ d
Dim Mcl As MatchCollection2 I1 Q. x) J( q: z

$ k5 Y# q& g, _With MyReg5 L- p3 P% J  F* S* A
.Global = True '在整个搜索字符串时模式是全部匹配还是只匹配第一个
/ L2 K' v6 l3 M. g7 T8 G) W  t6 D.IgnoreCase = True '指明模式搜索是否区分大小写
6 T3 {/ J: S: K( D% U+ s.Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" '设置或返回被搜索的正则表达式模式
8 J3 E7 ~$ Y8 f& N: w' Z' ?, C- k( AEnd With
! N! o) k$ o& V' n3 h! o7 |& y, C0 g9 M' y+ c- D
Set Mcl = MyReg.Execute(MyStr)
/ l/ r; Y7 u8 k: ?If Mcl.Count = 1 Then$ |' w5 _' W7 \
MyExp = "T"# D1 w% }5 c: J9 g# Z+ V
Else
3 a/ c, |: E  Y  N; pMyExp = "F"# R6 D. B- H8 E
End If
2 k. \) f& G5 \, B3 ^5 q& S/ K( V8 M$ B4 t4 V$ p0 C: y0 V
End Function
                    
8 {2 ?* F( r' f, R9 j# c: q; m                        

0

主题

6

帖子

2

积分

1°伸手党

Rank: 2

积分
2
发表于 19-12-17 01:22:56 | 显示全部楼层         
帮你顶下哈!!
回复

使用道具 举报

网站简介

球球发,是一家 Discuz! 商业插件、风格模板、网站源码、 Discuz!运营维护技术等于一体的交流分享网站,全站95%的资源都是免费下载,对于资源我们是每天更新,每个亲测资源最新最全---球球发(如果我们有侵犯了您权益的资源请联系我们删除