Ricercare Email in un testo

corkor

Nuovo Utente
2 Feb 2006
10
0
0
Salve a tutti, non so se sia possibile ma avrei la necessità di ricercare in un testo se ci sono degli indirizzi email.
Il problema è che io non conosco gli indirizzi che sto cercando e dovrei estrarli dal testo.
Vi ringrazio anticipatamente dell'aiuto che mi darete.
 

lukeonweb

Utente Attivo
5 Mar 2003
5.175
13
38
45
Napoli
www.lucaruggiero.it
Potresti fare una cosa relativamente semplice usando le espressioni regolari oppure le funzioni per le stringhe.

Ti do un input: dividi il testo in un array di stringa con la funzione Split e verifica che ogni item dell'array contenga o meno l'occorrenza della chiocciola.

Butto giù due righe di codice senza testarle:

<%
Dim stringa, arr_str, s
stringa = "Il mio indirizzo email è [email protected] scrivimi!"
arr_str = Split(stringa, " ")
For s = 0 To UBound(arr_str)
If InStr(arr_str(s), "@") > 0 Then
Response.Write "SI"
Else
Response.Write "NO"
End If
Next
%>

Ciao!
 

corkor

Nuovo Utente
2 Feb 2006
10
0
0
Ciao lukeonweb appena completo il codice ti faccio sapere ... Ciao e grazie...
 

lukeonweb

Utente Attivo
5 Mar 2003
5.175
13
38
45
Napoli
www.lucaruggiero.it
Di nulla, fammi sapere!!!

Tieni presente che il mio esempio è molto semplice e poco flessibile: non è detto che funzioni bene, dato che se in un testo c'è la parola "Luc@" invece di "Luca", te la conteggia come email perchè vede la chiocciola.

La logica è quella, ma ti consiglio di impostare il controllo su tutti gli item con l'espressione regolare per l'indirizzo email.

Ciao!
 

corkor

Nuovo Utente
2 Feb 2006
10
0
0
Ciao lukeonweb grazie innanzitutto per la dritta ho implementato anche il controllo della validità dell'email, funziona benissimo...

Dim stringa, arr_str, s, email

stringa ="Il mio indirizzo email è [email protected] scrivimi!"
arr_str = Split(stringa, " ")

For s = 0 To UBound(arr_str)
If InStr(arr_str(s), "@") > 0 Then
email = arr_str(s)
if isEmail(email) then
exit for
else
email = ""
end if
End If
Next

Controllo validità email

function IsEmail(strEmail)

Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "^[a-z0-9._-]+\@[a-z0-9._-]+\.[a-z0-9]{2,4}$"
objRegExp.IgnoreCase = True
IsEmail = objRegExp.Test(strEmail)

end function

Un 'ultima cosa che si potrebbe fare è definire la variabile "email" come matrice in modo che se nel testo c'è più di un email le prende tutte...
Comunque grazie ancora...
 
Ultima modifica:
Discussioni simili
Autore Titolo Forum Risposte Data
gandalf1959 ricercare porzioni di codice da sito gestito con WordPress WordPress 11
S [PHP] Ricercare Uno Specifico Carattere In Una Precisa Posizione PHP 3
T4MAR4 [PHP] ricercare età con piu campi PHP 2
elpirata [PHP] Query per ricercare stringa in più colonne PHP 5
L [PHP] Creare un uploader di file csv xls e ricercare i risultati PHP 0
M Ricercare uno specifico carattere in una precisa posizione PHP 5
D Inserire 2 valori da ricercare nella funzione WHERE PHP 0
shelbystudio cliente moroso: posso disattivare email e sito in attesa del pagamento? Leggi, Normative e Fisco 3
A differenza tra account email e ISP presenti in blacklist Posta Elettronica 0
C Sparite le Varianti dalla email di Riepilogo Ordine (WooCommerce) E-Commerce 1
M Invio dati database via email php PHP 0
FDF182 file .bin nell' email PHP 0
Z PHP.INI - STMP per invio email con PHP Server Dedicati e VPS 0
M Invio di email PHP 0
Cosina Upload multiplo con invio allegati per email PHP 0
Cosina Cancellare una specifica email da un elenco in un file txt PHP 3
Frank10 Vendo Pacchetto Email Email Marketing 0
W Email conferma inserimento Classic ASP 0
C Form email php su pagina index.html? PHP 21
S Invio email da form PHP 8
Sergio Unia Ricezione email con destinatari multipli [Risolto] PHP 2
I Mailchimp - email di benvenuto Email Marketing 4
max1974 Invio email PHP 12
D INVIARE PAGINA XHTML TRAMITE EMAIL HTML e CSS 1
S [PHP] email con inserimento dati nel database PHP 23
V Email di Cerco profilo instagram di meme, minimo 25k. Annunci servizi di Social Media Marketing 0
F Estrazione Email di persone selezionate e attive / facebook + invio di massa! Annunci servizi di Social Media Marketing 0
ANDREA20 [PHP] Modulo email invio PHP 5
F [PHP] modifica del body email con checked PHP 8
Tommy03 Errore invio email con PHP PHP 1
V Ricevere messaggi email certificata con CDO o altro oggetto in ASP Classic ASP 0
K COMPRO account email italiani con password URGENTE Vendere e Acquistare pubblicita' online 3
Shyson [WordPress] Nascondere email agli spider WordPress 3
C [PHP] Problema Invio Email Elseif PHP 2
W [VENDO] Database di 140.000 Aziende Italiane + Email Vendere e Acquistare pubblicita' online 0
W [VENDO] Database di 500.000 contatti Email (SPAGNA) Email Marketing 2
W [VENDO] Database di 230.000 contatti Email (FRANCIA) Email Marketing 0
Tommy03 Invio email con PHP PHP 3
Instagramsocialmedia FATE ATTENZIONE furti di identità anche qui sul forum e tramite email Annunci servizi di Social Media Marketing 0
felino [WordPress] [WooCommerce] Ordine: aggiungere nuovi stati con notifica email al cliente WordPress 4
felino [Wordpress][WooCommerce] PayPal: nessun notifica email dopo il pagamento WordPress 1
V [PHP]indirizzo email è protetto dagli spambots PHP 4
Aragosta Dominio it oppure com ed indirizzi email Domini 6
S [Javascript] Carrige return massaggi email Javascript 2
MarcoGrazia Verifica di un indirizzo email Snippet PHP 0
trattorino Vendo 9000 email Compravendita siti e domini 0
M redirect php email inviata con successo PHP 2
bubino8 [WordPress] Invio email da sito WordPress 2
S [PHP] estrarre le email da un elenco di url PHP 21
A [PHP] Invio email quando viene visitata una pagina PHP 7

Discussioni simili