Aprire Blocco note da qualsiasi computer Windows . Dichiarare una variabile per memorizzare un riferimento al FileSystemObject digitando " Dim oFS " dove "OFS " è il nome della variabile . Dichiarare anche una variabile per contenere ogni riga che viene letto dal messaggio di posta elettronica , vendita, acquisto 2
creare il riferimento al reale FileSystemObject " Dim sLine . " :
OFS = CreateObject ( " Scripting.FileSystemObject " )
3
Aprire il messaggio di posta elettronica che è stato salvato come file di testo . Loop attraverso l'intero file , riga per riga, la lettura finché non si trova quello che stai cercando e può uscire , o si raggiunge la fine del file :
oFS.OpenTextFile ( " myEmailMsg.txt " , 1 ) per
fare fino . AtEndOfStream
sLine = . ReadLine
4
individuare un carattere specifico, come la " @" per verificare che l'utente che ha inviato e-mail immesso un indirizzo di posta elettronica di ritorno valore . Utilizzare la funzione "Split " per trovare un carattere specifico :
Split ( sLine , "@" ) economici 5
chiudere il ciclo e smettere di trattamento da parte di codifica " Loop" per terminare la " Do Until " e " End With " di porre fine alla "Con oFS.OpenTextFile ( " myEmailMsg.txt " , 1) . " Salvare il file con l'estensione " . Vbs " per creare un file VBScript .
Programmazione © www.354353.com