[VBScript] estrazione email da un file

[rbianco]

Ciao,
premetto che sono poco più che un principiante con VBScript, quindi non prendetemi a sassate.

Ho bisogno di estrarre tutti gli indirizzi email presenti in un file di testo.

Il risultato ideale è un nuovo TXT, contenente un indirizzo email per ciascuna riga.

Mi serve codice VBS o VBA, perché devo capirlo e integrarlo con altro codice eventualmente.

Andrebbero bene anche soluzioni già pronte, che però non ho trovato online.

Grazie per i consigli.

[rbianco]

Nessun suggerimento all'orizzonte?

[usernameIsAlreadyInUse]

Come sono disposte le email nel file di origine?
Fai un copia incolla del file.

[rbianco]

Originariamente inviato da usernameIsAlreadyInUse

Come sono disposte le email nel file di origine?
Fai un copia incolla del file.

Per motivi di privacy non posso fare proprio un copia-e-incolla; però posso fare un esempio.
Il file è un TXT con le email dentro "a caso", del tipo:

Birreria Dai Tizi Loschi
via Vai 123 telefono 1234567 email [email protected]
-
-
-
Scrivi a [email protected] per informazioni
blah
blah
eccetera
[email protected]

... e così via.

Quindi le email sono "sparse" in giro per il TXT.

Il risultato che vorrei, dopo aver processato il testo sopra riportato, è un nuovo TXT così formato:

[email protected]
[email protected]
[email protected]

che poi darò in pasto a BLAT.EXE (info qui: http://www.blat.net) per l'invio di un messaggio.

Grazie per il tuo interesse al thread!

[usernameIsAlreadyInUse]

Prova questo : http://www.programurl.com/siteclick....load/setup.exe

[okay]

Originariamente inviato da rbianco

Nessun suggerimento all'orizzonte?

scansioni il file txt parola per parola

- in c++ puoi fare una strok
- in vb una split

pseudo code:

stroke(" ", parola)
split(" ", parola)

prendi parola e la scansioni ulteriormente carattere per carattere tipo:

for i=1 to len(parola)
if mid(parola, i, 1)="@" then
k=k+1
email(k)=parola
endif

in sostanza k è l'indice i-esimo dell'email trovata.

poi apri un files in output tipo:

open "miofile.txt" for output as #1
for i=0 to k
print #1, email(i)
next i
close #1

ti crei così il file testo con dentro gli indirizzi delle email trovate.
[email protected]
[email protected]
[email protected]

queste 3 email per esempio corrispondono a:
email(0)
email(1)
email(2)



ciao

p.s puoi inoltre scansionare di nuovo email(x) in un for ed eliminare eventualmente gli indirizzi email doppioni se ce ne fossero.

[rbianco]

Ottimo, okay!
Questo è il tipo di dritta che cercavo.
Mi ci metto al lavoro appena possibile, e vi aggiorno sul risultato (magari vi allego il VBS che avrò ottenuto, se combino).

Proverò anche il software segnalato sopra, ma essendo commerciale non potrò usarlo granché dopo la scadenza del trial... cmq tentar non nuoce.

Grazie a tutti e 2!

[okay]

Originariamente inviato da rbianco

Ottimo, okay!
Questo è il tipo di dritta che cercavo.
Mi ci metto al lavoro appena possibile, e vi aggiorno sul risultato (magari vi allego il VBS che avrò ottenuto, se combino).

Proverò anche il software segnalato sopra, ma essendo commerciale non potrò usarlo granché dopo la scadenza del trial... cmq tentar non nuoce.

Grazie a tutti e 2!

l'exe l'ho fatto... vediamo se riesci da solo!
linguaggio vb6