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

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

0
回复
1406
查看
[复制链接]

761

主题

775

帖子

3万

积分

董事

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

积分
32815
发表于 19-4-25 15:25:00 | 显示全部楼层 |阅读模式      紫钻仅向指定用户开放  
                                                   
本示例是在A列中存放了大量的未经清洗的电子邮箱,用创建的正则表达式函数MyExp将处理后的数据存放在在第二列 ... ...
*如果您想要示例中的原始文件,没得啥子问题,发送"MODEL+您的电子邮箱+20140422"给我,我把原始文件邮件给您,20140422是代表我2014.4.22日发送的案例。
0.jpg
& C: p. J+ B+ N) Q+ x) b9 m
仍然是老调重弹了,引用非常重要,没有对"Microsoft VBScript Regular Expressions 5.5"的引用,复制的代码运行不了是最常见的现象了...
示例代码 :
Sub JuEmail() '判断电子邮箱的格式是否正确
; [7 b7 k4 h/ ^Dim I As Long
9 U# H& f9 p7 k3 k
9 o6 B. o0 V$ z  e/ c3 @For I = 2 To 100 '根据需要设置,或者用类似ThisWorkbook.ActiveSheet.Range("a60000").End(xlUp).Row这样的语句来判断最后一行单元格的行数量4 y( N+ {  j8 \% w$ r) D4 J
Cells(I, 2).Value = MyExp(Cells(I, 1).Value)'调用正则表达式函数
& ]4 `, h6 J% B8 BNext& b* K: G0 Q! R3 ], c" T4 m' h
End Sub
'-----------函数
'添加对正则表达式的引用: 菜单"工具"---"引用"--"Microsoft VBScript Regular Expressions 5.5"4 z% i! i' W1 S" v# g" G
Function MyExp(MyStr As String) As String
Dim MyReg As New RegExp
6 G* i; z& X: H/ EDim Mcl As MatchCollection
; J* U$ Y! \% q3 a, g, U9 l3 C8 A2 D* _8 R+ @9 y9 R
With MyReg* Y& R" `+ T. E" l
.Global = True '在整个搜索字符串时模式是全部匹配还是只匹配第一个% k# n7 J% q) @9 U* A1 O
.IgnoreCase = True '指明模式搜索是否区分大小写
1 G( S& c5 j6 ^2 B9 @2 o# f.Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" '设置或返回被搜索的正则表达式模式! O# I9 ?# o! y7 |2 K0 {
End With
; X4 R6 e+ ]4 |# z
3 Q, A; e# N5 lSet Mcl = MyReg.Execute(MyStr)) z! g6 P  E7 A4 p
If Mcl.Count = 1 Then
3 j* U% e# ?( R8 C1 AMyExp = "T"
9 H' n, W* }* Z# I5 L+ T! {% ]& _& zElse) d8 z- B- l4 F4 |7 X' s
MyExp = "F"
, \7 J, h5 J. O0 w' e  ?End If# B  `+ r1 D. r6 u3 _
: q! j% W8 u9 L; t) u* b$ c# i8 C
End Function
                    % ?% w% h3 ?9 f! I! Z$ F
                        
网站简介

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