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

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

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

763

主题

777

帖子

3万

积分

董事

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

积分
32938
发表于 19-4-25 15:25:00 | 显示全部楼层 |阅读模式      紫钻仅向指定用户开放  
                                                   
本示例是在A列中存放了大量的未经清洗的电子邮箱,用创建的正则表达式函数MyExp将处理后的数据存放在在第二列 ... ...
*如果您想要示例中的原始文件,没得啥子问题,发送"MODEL+您的电子邮箱+20140422"给我,我把原始文件邮件给您,20140422是代表我2014.4.22日发送的案例。
0.jpg
1 Z) u/ b* J; D( o. d+ m
仍然是老调重弹了,引用非常重要,没有对"Microsoft VBScript Regular Expressions 5.5"的引用,复制的代码运行不了是最常见的现象了...
示例代码 :
Sub JuEmail() '判断电子邮箱的格式是否正确
6 c! [; Y% D  c5 j2 xDim I As Long
) y! `9 i" Z4 f0 o9 U0 s; D% t# K1 A$ e3 N0 j; V5 j; y# b
For I = 2 To 100 '根据需要设置,或者用类似ThisWorkbook.ActiveSheet.Range("a60000").End(xlUp).Row这样的语句来判断最后一行单元格的行数量
* \; y; i8 y$ p: aCells(I, 2).Value = MyExp(Cells(I, 1).Value)'调用正则表达式函数
# n. G, W' X; w! E) ?: ~' KNext
0 B7 F: A$ r' L0 r8 [" \End Sub
'-----------函数
'添加对正则表达式的引用: 菜单"工具"---"引用"--"Microsoft VBScript Regular Expressions 5.5"
2 B1 Y( T8 P1 c, V' {8 DFunction MyExp(MyStr As String) As String
Dim MyReg As New RegExp
" G# H; Q" `" O" a7 HDim Mcl As MatchCollection
$ o2 `* T7 S1 J& q" }) j  j
5 F& N- {- H$ @/ d& ]With MyReg
; v9 j+ l, j) I.Global = True '在整个搜索字符串时模式是全部匹配还是只匹配第一个" S7 C9 \. D& U) f! ]" w! R( p
.IgnoreCase = True '指明模式搜索是否区分大小写" I6 B1 M/ v' Q) y. H7 O/ O
.Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" '设置或返回被搜索的正则表达式模式0 a! l/ t7 s6 A
End With
7 U  C, f* @# t/ o: V* C) \5 y: x6 n; y- Z
Set Mcl = MyReg.Execute(MyStr)/ c4 d' {# V/ Z/ C5 b
If Mcl.Count = 1 Then5 A/ q6 Q7 @6 E# Z9 l
MyExp = "T"
5 G2 Q8 n( }+ D8 m- m: JElse) t5 R, c7 I+ ^  N
MyExp = "F", _3 y6 ?1 P" E1 Q
End If
6 b5 k$ P0 c& R3 I5 j9 @2 J# U) K9 s# S" _1 y, ^2 H
End Function
                    4 B' v( _9 G0 W9 O" a! O* |+ ?
                        

0

主题

6

帖子

2

积分

1°伸手党

Rank: 2

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

使用道具 举报

网站简介

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