Ξεκινήστε το Σημειωματάριο και να δημιουργήσετε ένα αρχείο κειμένου . Πληκτρολογήστε το ακόλουθο μήνυμα στο αρχείο κειμένου :
Εάν λάβετε αυτό το μήνυμα , έχετε successfullycompleted εργασία thisprogramming 2
Αποθηκεύστε το αρχείο που μόλις δημιουργήσατε στο " C : . \\ Temp "φάκελο στο σκληρό δίσκο και το όνομά σας το " TextToRead.txt " .
εικόνων 3
Δημιουργήστε ένα δεύτερο νέο έγγραφο κειμένου με το Σημειωματάριο .
Η 4
Αντιγραφή και επικόλληση τον ακόλουθο κώδικα στο αρχείο που δημιουργήσατε στο προηγούμενο βήμα:
Option Explicit
Const conForReading = 1
' αναγνωρίσει variablesDim objFSO , objReadFile , το περιεχόμενο
« Set ObjectsSet objFSO = CreateObject ( " Scripting.FileSystemObject " ) Set objReadFile = objFSO.OpenTextFile ( " C : \\ Temp \\ TextToRead.txt " , 1 , False )
» Διαβάστε contentscontents file = objReadFile . ReadAll
« Εκκαθάριση objectsSet objFSO = NothingSet objReadFile = Τίποτα
» « Κλείσιμο fileobjReadFile.close
» Εμφάνιση περιεχομένου resultswscript.echo
Κλείστε scriptWScript . Κλείστε ( )
5
Κάντε κλικ στο " Αρχείο" στη γραμμή εργαλείων Σημειωματάριο και επιλέξτε "Αποθήκευση " από το μενού περιβάλλοντος . Αποθηκεύστε το αρχείο με κώδικα VBScript σας . "C: \\ Temp \\ ReadTextFile.vbs " και στη συνέχεια Σημειωματάριο εξόδου
Η 6
Εκτελέστε VBScript σας από την περιήγηση στο " C : \\ Temp " φάκελο στο σκληρό σας οδήγησης και διπλό κλικ στο " ReadTextFile.vbs " το αρχείο . Το μήνυμα που έχετε εισάγει στο αρχείο κειμένου στο βήμα 1 θα εμφανιστεί σε ένα μικρό pop -up παράθυρο , επιβεβαιώνοντας ότι το πρόγραμμά σας VBScript έχει ανοίξει με επιτυχία και να διαβάσει το αρχείο . Κάντε κλικ στο " OK".
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα