Ok, ik snap er even niets van. Ik heb een tekstbestand met allemaal emailadressen.
1 adres per regel met achter het adres een ENTER.
De volgende code moet al deze adressen eruit halen:
Vreemd genoeg vind hij maar 1 emailadres. Weet iemand waarom.
Heb ook de volgende expressions geprobeerd:
'objRe.pattern = "^\w+@[a-zA-Z_]+?\.[a-zA-Z]{2,3}$"
'objRe.pattern = "[A-Za-z0-9\_\-\.]+\@[A-Za-z0-9\_\-]+.*\.\w{2,3}\s"
1 adres per regel met achter het adres een ENTER.
De volgende code moet al deze adressen eruit halen:
code:
1
2
3
4
5
6
7
8
9
10
11
| Set objRe = new RegExp
objRe.IgnoreCase = true
objRe.Multiline = true
objRe.pattern = "[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}"
Set objMatches = objRe.Execute(mstrSourceText)
For Each objMatch in objMatches
Response.Write objMatch.Value & "<br>"
Next |
Vreemd genoeg vind hij maar 1 emailadres. Weet iemand waarom.
Heb ook de volgende expressions geprobeerd:
'objRe.pattern = "^\w+@[a-zA-Z_]+?\.[a-zA-Z]{2,3}$"
'objRe.pattern = "[A-Za-z0-9\_\-\.]+\@[A-Za-z0-9\_\-]+.*\.\w{2,3}\s"