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

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

2
回复
1637
查看
[复制链接]

763

主题

777

帖子

3万

积分

董事

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

积分
32942
发表于 19-4-18 20:07:35 | 显示全部楼层 |阅读模式      紫钻仅向指定用户开放  
                                                   
本示例是在A列中存放了大量的未经洗濯的电子邮箱,用创建的正则表达式函数MyExp将处置处罚后的数据存放在在第二列 ... ...
*假如您想要示例中的原始文件,没得啥子标题,发送"MODEL+您的电子邮箱+20140422"给我,我把原始文件邮件给您,20140422是代表我2014.4.22日发送的案例。
0.jpg # z7 k9 n2 _( Z& R6 ?4 j: ]% Z: }
仍然是老调重弹了,引用非常告急,没有对"Microsoft VBScript Regular Expressions 5.5"的引用,复制的源码运行不了是最常见的征象了...
示例代码 :
Sub JuEmail() '判断电子邮箱的格式是否准确! g. }. v. n6 \2 E1 e+ d0 z% ]" }
Dim I As Long  d& s4 z, c) q1 _( {' l
5 H5 a5 R* [9 e* N
For I = 2 To 100 '根据必要设置,大概用类似ThisWorkbook.ActiveSheet.Range("a60000").End(xlUp).Row如许的语句来判断末了一行单位格的行数目
% Q; T1 \( C  J- p$ uCells(I, 2).Value = MyExp(Cells(I, 1).Value)'调用正则表达式函数
* W- b5 o8 m& l6 d/ |* C' WNext4 g' k! v0 x9 h' p
End Sub
'-----------函数
'添加对正则表达式的引用: 菜单"工具"---"引用"--"Microsoft VBScript Regular Expressions 5.5"
/ Y# k8 P7 _! ^( R3 `7 y
  1. Function MyExp(MyStr As String) As String
    7 h- z, M3 e% \4 _4 _  r# {

  2. ' S2 F* b: Z/ E6 Q5 k' T
  3. Dim MyReg As New RegExp& L: b7 P$ J6 I0 P% {
  4. Dim Mcl As MatchCollection2 J5 D! \( ]: b/ O2 S  Z/ N
  5. 8 k7 V$ N5 o8 t  e: H
  6. With MyReg4 o5 p% _( g- ]# w9 T1 n3 p8 ]
  7. .Global = True '在整个搜索字符串时模式是全部匹配照旧只匹配第一个0 w' N! B5 z) [  f/ W
  8. .IgnoreCase = True '指明模式搜索是否区分巨细写
    + Q- h" `% N0 b
  9. .Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" '设置或返回被搜索的正则表达式模式
    % g& Z7 l: H- j' q! C
  10. End With# m% `, J" N1 o

  11. + e3 ]. |# |  I* A5 s8 p" r
  12. Set Mcl = MyReg.Execute(MyStr)% Z8 \2 L. y4 X! N/ B: d$ u+ k
  13. If Mcl.Count = 1 Then: N) j8 ~" z3 Q- H; p! \; {8 m( ]4 C
  14. MyExp = "T"
    2 d: q6 L0 d4 P+ N" s4 |# R
  15. Else3 B9 \" _9 ^- ~& y$ a; N5 l1 u1 Q4 `3 X
  16. MyExp = "F"
      `2 j4 W+ S7 @- P4 ^
  17. End If) G5 k4 B; w) P3 \( e/ h

  18. 1 _; `8 |. x. P4 L7 X- L' O
  19. End Function
复制代码
                   " E( Z8 g' m$ r  k2 x2 W  V0 G
                        

0

主题

8

帖子

20

积分

1°伸手党

Rank: 2

积分
20
发表于 19-10-10 04:01:37 | 显示全部楼层         
我抢、我抢、我抢沙发~
回复

使用道具 举报

0

主题

9

帖子

2

积分

1°伸手党

Rank: 2

积分
2
发表于 20-1-3 01:21:53 | 显示全部楼层         
好好 学习了 确实不错
回复

使用道具 举报

网站简介

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