Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Finding an email address
Message
De
29/07/2009 08:22:51
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01415275
Message ID:
01415287
Vues:
74
Thanks. On which platforms could I assume CreateObject("VBScript.RegExp") to be available?



>It tells the parser to return all matches, not the first one only.
>
>If WSH is not an option, you can use Craig's FLL from http://www.sweetpotatosoftware.com/SPSBlog/2006/01/14/RegularExpressionsForVisualFoxProPart3.aspx
>
>lcText = "somebody@something.com     abc@sajkfhe.com"
>
>SET LIBRARY TO regexp.fll
>lcPattern =  '([a-zA-Z\d][-._\w]*@\w[-._\w]*\w\.\w{2,4})'
>DIMENSION laEmAddrList[1]
>
>lnMatches = regexp(lcText, lcPattern, 2, "laEmAddrList")
>
>FOR i=1 TO lnMatches 
>	? laEmAddrList[i]
>ENDFOR
>
>
>>Thanks Sergey! What does the loRegExp.Global = .T. setting do?
>>
>>
>>
>>>Hi Jos,
>>>
>>>The best way is using regular expressions
>>>
>>>lcText = "somebody@something.com     abc@sajkfhe.com"
>>>loRegExp = CreateObject("VBScript.RegExp")
>>>loRegExp.Global = .T.
>>>loRegExp.Pattern =  '([a-zA-Z\d][-._\w]*@\w[-._\w]*\w\.\w{2,4})'
>>>loEmAddrList = loRegExp.Execute(lcText)
>>>
>>>FOR EACH  loAddr IN loEmAddrList
>>>	? loAddr.Value
>>>ENDFOR
>>
In the End, we will remember not the words of our enemies, but the silence of our friends - Martin Luther King, Jr.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform