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

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

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

765

主题

779

帖子

3万

积分

董事

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

积分
33029
发表于 19-4-18 20:07:35 | 显示全部楼层 |阅读模式      紫钻仅向指定用户开放  
                                                   
本示例是在A列中存放了大量的未经洗濯的电子邮箱,用创建的正则表达式函数MyExp将处置处罚后的数据存放在在第二列 ... ...
*假如您想要示例中的原始文件,没得啥子标题,发送"MODEL+您的电子邮箱+20140422"给我,我把原始文件邮件给您,20140422是代表我2014.4.22日发送的案例。
0.jpg
+ y0 ?' o  b. y* V1 f8 d$ B
仍然是老调重弹了,引用非常告急,没有对"Microsoft VBScript Regular Expressions 5.5"的引用,复制的源码运行不了是最常见的征象了...
示例代码 :
Sub JuEmail() '判断电子邮箱的格式是否准确2 I  O& e7 H# B% O( @! x
Dim I As Long
( _+ M7 _) p& y- w6 M$ u
5 h4 r7 L7 t+ K' X2 O) J: A7 g  f5 V3 nFor I = 2 To 100 '根据必要设置,大概用类似ThisWorkbook.ActiveSheet.Range("a60000").End(xlUp).Row如许的语句来判断末了一行单位格的行数目
! I; v% P' O" |$ }( W; MCells(I, 2).Value = MyExp(Cells(I, 1).Value)'调用正则表达式函数
4 b) `1 c4 a, G2 D/ q& V4 h! oNext
# H, e! T, H# r1 nEnd Sub
'-----------函数
'添加对正则表达式的引用: 菜单"工具"---"引用"--"Microsoft VBScript Regular Expressions 5.5"
) o$ F# d+ M2 ~3 H
  1. Function MyExp(MyStr As String) As String
    ; Y1 ~% T: a' }0 z# |2 ~) D

  2. , A: h  ?9 `; [' e6 ]
  3. Dim MyReg As New RegExp; p6 E) Y9 G1 A+ Z4 A7 d9 K9 [
  4. Dim Mcl As MatchCollection5 `/ k* y1 y- N3 a# X5 ^' C0 G
  5. , u8 Z' B3 {" `5 m
  6. With MyReg
    - J. ^+ \+ [' Q% F; h3 C
  7. .Global = True '在整个搜索字符串时模式是全部匹配照旧只匹配第一个
    $ r9 Z3 B/ g! R9 x/ f
  8. .IgnoreCase = True '指明模式搜索是否区分巨细写7 r8 r1 u& {2 I; W' L! a
  9. .Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" '设置或返回被搜索的正则表达式模式/ I& X! E1 L' p
  10. End With( W1 G, O7 g" i4 L7 L, c

  11. ) [5 n' n3 l) u& q" {1 w
  12. Set Mcl = MyReg.Execute(MyStr)% ]% n; ^* S  @* N
  13. If Mcl.Count = 1 Then
    7 m2 o6 x  R0 {* S! u2 C
  14. MyExp = "T"
    4 Q# H% j6 `8 @- H
  15. Else
    , f# ^+ r: }) V7 u
  16. MyExp = "F"
    # X1 M* d; C6 _. }& J- L- m' y3 T- A
  17. End If
    , i) I1 s0 w; A8 G

  18. " o4 k+ }  O/ a. A: U
  19. End Function
复制代码
                   $ }( Z  r+ r- t
                        

0

主题

9

帖子

20

积分

1°伸手党

Rank: 2

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

使用道具 举报

0

主题

11

帖子

2

积分

1°伸手党

Rank: 2

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

使用道具 举报

网站简介

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