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

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

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

691

主题

705

帖子

3万

积分

董事

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

积分
31863
     紫钻仅向指定用户开放  
发表于 19-4-18 20:07:35 | 显示全部楼层 |阅读模式
                                                   
本示例是在A列中存放了大量的未经洗濯的电子邮箱,用创建的正则表达式函数MyExp将处置处罚后的数据存放在在第二列 ... ...
*假如您想要示例中的原始文件,没得啥子标题,发送"MODEL+您的电子邮箱+20140422"给我,我把原始文件邮件给您,20140422是代表我2014.4.22日发送的案例。
, m' H& K6 s8 t* n2 n9 ~+ h; c
仍然是老调重弹了,引用非常告急,没有对"Microsoft VBScript Regular Expressions 5.5"的引用,复制的源码运行不了是最常见的征象了...
示例代码 :
Sub JuEmail() '判断电子邮箱的格式是否准确
# r2 |3 p6 G% b# t1 M' HDim I As Long: j2 N" F! v$ w+ ?4 R/ }
+ J" @, t. L$ d1 E2 n6 X4 p/ m
For I = 2 To 100 '根据必要设置,大概用类似ThisWorkbook.ActiveSheet.Range("a60000").End(xlUp).Row如许的语句来判断末了一行单位格的行数目
8 k$ A7 H. |% _( s5 ^  mCells(I, 2).Value = MyExp(Cells(I, 1).Value)'调用正则表达式函数
" B9 Y# O! r, FNext/ V' |4 c  O; w' ~5 D) T
End Sub
'-----------函数
'添加对正则表达式的引用: 菜单"工具"---"引用"--"Microsoft VBScript Regular Expressions 5.5", q, a7 E/ @: k3 c' L9 s9 j
  1. Function MyExp(MyStr As String) As String
    0 m9 T! v! r  `/ ]- y
  2. 6 t8 C5 I% C2 ^6 p
  3. Dim MyReg As New RegExp8 }! O# Q3 }. K( u# X' U
  4. Dim Mcl As MatchCollection
    " ^+ L/ d, m4 y& m( @

  5. 1 ~9 O) R, H1 g' x
  6. With MyReg
    9 [! ~& W# O+ V) D- m$ V. |/ x
  7. .Global = True '在整个搜索字符串时模式是全部匹配照旧只匹配第一个
    - H1 ]/ Y5 N& t- Z- m) o
  8. .IgnoreCase = True '指明模式搜索是否区分巨细写
    / N$ V$ D4 C- m* f
  9. .Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" '设置或返回被搜索的正则表达式模式5 ?- K' f4 Q% `6 r/ w( s9 Y2 Z
  10. End With
    * M+ p6 e8 T$ k" x% x6 m
  11. $ b' S: v- u$ \% K7 J
  12. Set Mcl = MyReg.Execute(MyStr)
    4 b4 Y8 o( v% ]4 F7 g/ t& V) G! l
  13. If Mcl.Count = 1 Then( N. ~" p/ e+ Q6 K6 n
  14. MyExp = "T"% |' s2 ?3 `+ @& h# Z
  15. Else* v: {+ A( _/ l) T
  16. MyExp = "F"2 x2 B9 U4 I- z, c
  17. End If+ o; k! E5 t+ O/ Q* @" j) ^

  18. * O. e  M- V& {  ?. a
  19. End Function
复制代码
                  
/ q3 F5 c! q8 O/ b+ i, E                        

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

qiuqiufa.com

网站简介

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