Πώς να διαβάσετε τα περιεχόμενα ενός αρχείου κειμένου με VBScript

Συγγραφέας: Louise Ward
Ημερομηνία Δημιουργίας: 6 Φεβρουάριος 2021
Ημερομηνία Ενημέρωσης: 1 Δεκέμβριος 2024
Anonim
macros και VB Script στο Excel.
Βίντεο: macros και VB Script στο Excel.

Περιεχόμενο

Όταν γράφετε ένα πρόγραμμα σε VBScript, μπορεί να θέλετε να δημιουργήσετε τον κωδικό σας, ώστε να μπορείτε να ανοίξετε και να διαβάσετε τα περιεχόμενα ενός αρχείου κειμένου στο σκληρό δίσκο του χρήστη. Αυτό μπορεί να γίνει χρησιμοποιώντας το VBScript για να αποκτήσετε πρόσβαση στο Host Script των Windows και χρησιμοποιώντας το FileSystemObject. Ο καλύτερος τρόπος για να μάθετε αυτή την τεχνική προγραμματισμού είναι με ένα πραγματικό παράδειγμα.


Οδηγίες

Χρησιμοποιήστε το VBScript για να ανοίξετε και να διαβάσετε ένα αρχείο κειμένου (Ablestock.com/AbleStock.com/Getty Images)
  1. Ανοίξτε το Σημειωματάριο και δημιουργήστε ένα αρχείο κειμένου. Πληκτρολογήστε το ακόλουθο μήνυμα:

    "Εάν λάβετε αυτό το μήνυμα, θα έχετε ολοκληρώσει επιτυχώς αυτήν την εργασία προγραμματισμού."

  2. Αποθηκεύστε το αρχείο που μόλις δημιουργήσατε στο φάκελο "C: Temp" στη μονάδα σκληρού δίσκου και ονομάστε το "TextToRead.txt".

  3. Δημιουργήστε ένα νέο έγγραφο κειμένου στο Σημειωματάριο.

  4. Αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στο αρχείο που δημιουργήσατε στο προηγούμενο βήμα:

    Προαιρετική επιλογή

    Const conForReading = 1

    'Δηλώστε μεταβλητές Dim objFSO, objReadFile, περιεχόμενο

    'Ορισμός αντικειμένων Ορισμός objFSO = CreateObject ("Scripting.FileSystemObject") Ορισμός objReadFile = objFSO.OpenTextFile ("C: Temp TextToRead.txt", 1,


    'Διαβάστε το περιεχόμενο περιεχομένων του αρχείου = objReadFile.ReadAll

    'Κλείσιμο του αρχείου objReadFile.close

    'Εμφάνιση αποτελεσμάτων wscript.echo

    'Καθαρισμός αντικειμένων Ορισμός objFSO = Τίποτα δεν τίθεται objReadFile = Τίποτα

    'Κλείσιμο δέσμης ενεργειών WScript.Quit ()

  5. Κάντε κλικ στο "Αρχείο" στη γραμμή εργαλείων του Σημειωματάριου και επιλέξτε "Αποθήκευση" από το μενού περιβάλλοντος. Αποθηκεύστε το αρχείο με τον κώδικα VBScript ως "C: Temp ReadTextFile.vbs" και κλείστε το Σημειωματάριο.

  6. Ανοίξτε το VBScript μεταβαίνοντας στο φάκελο "C: Temp" στον σκληρό σας δίσκο και κάνοντας διπλό κλικ στο αρχείο "ReadTextFile.vbs". Το μήνυμα που είναι γραμμένο στο αρχείο κειμένου από το βήμα 1 θα εμφανιστεί σε ένα μικρό παράθυρο, το οποίο επιβεβαιώνει ότι το VBScript άνοιξε και διαβάστηκε με επιτυχία. Κάντε κλικ στο κουμπί "OK".

Πώς

  • Κατά την προβολή ή την επεξεργασία ενός αρχείου VBScript με επέκταση .vbs, κάντε δεξί κλικ στο αρχείο και επιλέξτε "Επεξεργασία". πατώντας το αριστερό πλήκτρο του ποντικιού στο αρχείο θα το αναγκάσει να ανοίξει.