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

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

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

761

主题

775

帖子

3万

积分

董事

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

积分
32836
发表于 19-4-18 20:07:35 | 显示全部楼层 |阅读模式      紫钻仅向指定用户开放  
                                                   
本示例是在A列中存放了大量的未经洗濯的电子邮箱,用创建的正则表达式函数MyExp将处置处罚后的数据存放在在第二列 ... ...
*假如您想要示例中的原始文件,没得啥子标题,发送"MODEL+您的电子邮箱+20140422"给我,我把原始文件邮件给您,20140422是代表我2014.4.22日发送的案例。
0.jpg . y8 j$ ]+ H# v5 s
仍然是老调重弹了,引用非常告急,没有对"Microsoft VBScript Regular Expressions 5.5"的引用,复制的源码运行不了是最常见的征象了...
示例代码 :
Sub JuEmail() '判断电子邮箱的格式是否准确  T* K* S0 O) S3 i5 w
Dim I As Long
- J8 \* B; I3 ]1 `' _# I; w
8 W6 r! C' M, S6 d+ |4 LFor I = 2 To 100 '根据必要设置,大概用类似ThisWorkbook.ActiveSheet.Range("a60000").End(xlUp).Row如许的语句来判断末了一行单位格的行数目) O: ~& ?/ v& |+ O/ O2 A# d2 s  t
Cells(I, 2).Value = MyExp(Cells(I, 1).Value)'调用正则表达式函数
7 n" S" r4 i9 [Next* M# \) x$ g/ Y) x" p. w. ~
End Sub
'-----------函数
'添加对正则表达式的引用: 菜单"工具"---"引用"--"Microsoft VBScript Regular Expressions 5.5"( v- X& Z4 m; ^. y" l8 O& X
  1. Function MyExp(MyStr As String) As String, @, w! r) x. A3 M6 a

  2. * s. S" I( h% \. W8 T
  3. Dim MyReg As New RegExp6 l+ K1 }  R/ W7 w/ x0 p
  4. Dim Mcl As MatchCollection: U3 u0 z/ d: f! z1 t+ s* b

  5. % Z6 j: X6 g& }
  6. With MyReg
    3 K, @, m  _* S9 X8 P9 Y4 W  |4 F
  7. .Global = True '在整个搜索字符串时模式是全部匹配照旧只匹配第一个7 h" ?+ K+ Y8 G( k7 h1 R+ i6 z
  8. .IgnoreCase = True '指明模式搜索是否区分巨细写1 t/ M4 G* m* H/ H. A4 A. k* [6 O
  9. .Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" '设置或返回被搜索的正则表达式模式  Y& E; o' X/ |2 K7 Z
  10. End With
    / k4 ^, g' {5 U" m

  11. + f6 V/ _3 _& n( |5 \
  12. Set Mcl = MyReg.Execute(MyStr)5 S, O7 f8 d4 N. E7 t: @( Z+ }( Q. u
  13. If Mcl.Count = 1 Then0 q5 z* k. f5 V5 z
  14. MyExp = "T"
    , w" }9 D  K2 R+ x" z
  15. Else$ l( [8 U# g2 q) ]$ Z  V# G
  16. MyExp = "F"
    + y$ F+ {' R* [5 b& F
  17. End If
    1 U/ A* e+ P" \3 _: P

  18. % w* U# ]" ~4 v+ n" L
  19. End Function
复制代码
                   - V' V4 V: X. a* ]# @+ A% D
                        

0

主题

6

帖子

20

积分

1°伸手党

Rank: 2

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

使用道具 举报

网站简介

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