Πώς να διαβάσετε ένα αρχείο σε VBS

VBS , επίσης γνωστή ως " Visual Basic Script , " προκάλεσε φοβία το 2000, μετά το " Σε αγαπώ " ιός μολύνει 15 εκατομμύρια υπολογιστές και έριξαν servers σε όλο τον κόσμο . Όταν η Microsoft δημιούργησε VBS , χρησιμοποίησαν Visual Basic ως μοντέλο . VBS δεν είναι ένας ιός , αλλά έχει τη δυνατότητα να έχουν πρόσβαση σε σύστημα αρχείων του χρήστη και άλλα ηλεκτρονικά μέσα . Μπορείτε να χρησιμοποιήσετε το VBS να διαβάσετε τα περιεχόμενα ενός αρχείου από την είσοδο μόνο λίγες γραμμές κώδικα . Οδηγίες
Η

1 Κάντε δεξί κλικ στην επιφάνεια εργασίας και επιλέξτε "New . " Επιλέξτε " Αρχείο κειμένου " από τη λίστα drop-down . Τα Windows θα δημιουργήσει ένα νέο αρχείο κειμένου και να εμφανίσετε το εικονίδιο του στην επιφάνεια εργασίας 2

Προσθέστε τον ακόλουθο κώδικα στο έγγραφο : .

Δημ. objFSObject , strFile , strFileContents , strCurrentLine , arrLineCollection

CONST ForReading = 1

« Δημιουργία αρχείου αντικειμένου συστήματος

Set objFSObject = CreateObject ( " Scripting.FileSystemObject " )

Οι δύο πρώτες γραμμές δημιουργούν μεταβλητές . Η τρίτη γραμμή δημιουργεί ένα αντικείμενο συστήματος αρχείων εικόνων
3

Προσθέστε τον κώδικα κάτω από τον κώδικα στο βήμα 2 : .

StrFile = " C : \\ someFolder \\ someFile.txt "

Αντικαταστήστε το " C : \\ someFolder \\ somefile " με τη διαδρομή σε ένα αρχείο κειμένου στο σκληρό σας δίσκο . Για παράδειγμα , για να χρησιμοποιήσετε ένα αρχείο με το όνομα " test.txt " που βρίσκεται στο φάκελο " temp" στο " C" , προσθέστε την ακόλουθη γραμμή :

strFile = " C : \\ temp \\ test.txt "
Η 4

Προσθέστε τον κώδικα κάτω από τον κώδικα στο βήμα 3 : .

strFileContents = objFSObject.OpenTextFile ( strFile , ForReading ) ReadAll

arrLineCollection = Split ( strFileContents , vbCrLf )

Η πρώτη γραμμή διαβάζει το αρχείο και το αποθηκεύει σε " strFileContents . " Η δεύτερη γραμμή δημιουργεί μια συλλογή ( array) και αποθηκεύει κάθε γραμμή του αρχείου ως στοιχείου του πίνακα . Για παράδειγμα , εάν το αρχείο εισόδου έχει τρεις γραμμές , η σειρά θα έχει τρεις συνιστώσες
5

Προσθέστε τον κώδικα κάτω από τον κώδικα στο βήμα 4 : .

Για Κάθε strCurrentLine σε arrLineCollection

wscript.echo "Τρέχουσα γραμμή = " & strCurrentLine

Επόμενο

objFSObject.Close

Αυτό το μπλοκ κώδικα διέρχεται μέσω του πίνακα και εμφανίζει σε κάθε γραμμή .

6

Κάντε κλικ στο " Αρχείο" και επιλέξτε "Save As " για να ανοίξει το "Save As " παράθυρο .
Η 7

Τύπος " vbReadTest1.vbs " στο " Όνομα αρχείου " πλαίσιο κειμένου και κάντε κλικ στο κουμπί "Αποθήκευση". Σημειωματάριο θα δημιουργήσει ένα αρχείο VBS και να το αποθηκεύσετε στην επιφάνεια εργασίας .
8

Εντοπίστε το αρχείο στην επιφάνεια εργασίας και κάντε διπλό κλικ σε αυτό. Ο κωδικός VBS θα διαβάσει το αρχείο εισόδου και να εμφανίσετε τα περιεχόμενά του .
Η
εικόνων