1 Ανοίξτε το Σημειωματάριο από οποιονδήποτε υπολογιστή με Windows . Για να δηλώσετε μια μεταβλητή για να αποθηκεύσετε μια αναφορά στο FileSystemObject πληκτρολογώντας "Dim ofs " , όπου " ofs " είναι το όνομα της μεταβλητής . Επίσης, δηλώνουμε μια μεταβλητή για να κρατήσει κάθε γραμμή που διαβάζεται από το μήνυμα ηλεκτρονικού ταχυδρομείου , καλής ποιότητας 2
Δημιουργήστε την αναφορά στην πραγματική FileSystemObject "Dim SLINE . " :
Ορισμός ofs = CreateObject ( " Scripting.FileSystemObject " )
εικόνων 3
Ανοίξτε το μήνυμα ηλεκτρονικού ταχυδρομείου που έχει αποθηκευτεί ως αρχείο κειμένου . Loop σε όλο το αρχείο, διαβάζοντας γραμμή προς γραμμή , είτε μέχρι να βρείτε αυτό που ψάχνετε και να βγείτε ή να φτάσετε στο τέλος του αρχείου :
Με oFS.OpenTextFile ( " myEmailMsg.txt " , 1 )
Κάντε Μέχρι . AtEndOfStream
SLINE = . ReadLine
Η 4
Εντοπίστε ένα συγκεκριμένο χαρακτήρα, όπως το σύμβολο "@ " για να επικυρώσει ότι ο χρήστης που έστειλε e-mail άρχισε μια διεύθυνση ηλεκτρονικού ταχυδρομείου επιστροφής αξίας . Χρησιμοποιήστε τη λειτουργία "Split" για να βρείτε ένα συγκεκριμένο χαρακτήρα :
Split ( SLINE , " @" )
5
Κλείστε το βρόχο και να σταματήσει την επεξεργασία από την κωδικοποίηση " Loop " για τον τερματισμό της " να Μέχρι " και " End With " για τον τερματισμό της " με oFS.OpenTextFile ( " myEmailMsg.txt " , 1 ) . " Αποθηκεύστε το αρχείο με την επέκταση " . Vbs " για να δημιουργήσετε ένα αρχείο VBScript .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα