Δημιουργήστε ένα αρχείο κειμένου χρησιμοποιώντας το ακόλουθο όνομα και τη θέση :
" C : \\ Temp \\ TextToRead.txt " 2
Open και εκτελέστε το πρόγραμμα Notepad . " . Σημειωματάριο" Κάντε κλικ στο κουμπί " Start" στην επιφάνεια εργασίας των Windows , κάντε κλικ στο κουμπί " Όλα τα προγράμματα ", στη συνέχεια, επιλέξτε " εξαρτήματα" και κάντε κλικ στο
εικόνων 3
Αντιγράψτε και Επικολλήστε τον ακόλουθο στο Σημειωματάριο :
Option Explicit
Const conForReading = 1
' Δήλωση μεταβλητών
Dim objFSO , objReadFile , το περιεχόμενο
« Set Αντικείμενα
Set objFSO = CreateObject ( " Scripting.FileSystemObject " )
Σετ objReadFile = objFSO.OpenTextFile ( " C : \\ Temp \\ TextToRead.txt " , 1 , False )
» Διαβάστε τα περιεχόμενα του αρχείου
περιεχόμενο = objReadFile.ReadAll
'Κλείσιμο του αρχείου
objReadFile.close
» Εμφάνιση αποτελεσμάτων
wscript.echo « Εκκαθάριση αντικείμενα
Set objFSO = Τίποτα
Set objReadFile = Τίποτα
» περιεχόμενο
Κλείστε σενάριο
WScript.Quit ( )
Κάντε κλικ στο " αρχείο" και επιλέξτε "Αποθήκευση" στο Notepad και να βγείτε από το πρόγραμμα .
Η 4
Εκτελέστε το σενάριο με διπλό κλικ στο αρχείο ReadTextFile.vbs VBScript .
Κάντε κλικ στο κουμπί " OK " στο " Windows Script Host " εντολών . Τώρα μπορείτε να αναζητήσετε και να διαβάσετε ένα αρχείο κειμένου με VBSript .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα