1 Κάντε κλικ στο κουμπί " Έναρξη", " Όλα τα προγράμματα ", " εξαρτήματα" και " Σημειωματάριο" για να ανοίξετε το πρόγραμμα επεξεργασίας κειμένου . 2
. Κάντε κλικ στο " αρχείο , " τότε " νέα " για να ανοίξετε ένα νέο αρχείο στο Σημειωματάριο
εικόνων 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 ( )
Η 4
Αντικαταστήστε το " C : \\ Temp \\ TextToRead.txt " με τη θέση του καταλόγου του αρχείου txt που θέλετε να διαβάσετε σε VBScript . Κάντε κλικ στο " Αρχείο" και "Αποθήκευση" για να αποθηκεύσετε το αρχείο .
5
Κάντε διπλό κλικ στο " ReadTextFile.vbs " αρχείο για να διαβάσετε το αρχείο txt σε VBScript και κάντε κλικ στο "OK". ?
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα