Πώς να ψάξει για στοιχεία σε ένα αρχείο με VB Script

Μαθαίνοντας πώς να αναζητήσετε δεδομένα σε ένα αρχείο χρησιμοποιώντας VB Script μπορεί να σας κάνει scripting εφαρμογή πιο δυναμική . VB Script είναι πολύ παρόμοια με Visual Basic , ως εκ τούτου , αν έχετε κάποια εμπειρία σε VB δεν θα έχετε πρόβλημα ενώ εργάζεστε με VB Script . Στην VB Script μπορείτε να χειριστείτε τα αρχεία που είναι παρόμοια με άλλες γλώσσες προγραμματισμού όπως η δημιουργία , προσθήκη, αφαίρεση δεδομένων και την ανάγνωση αρχείων . Για να διαβάσετε και αναζήτηση σε δεδομένα σε ένα αρχείο , μπορείτε να χρησιμοποιήσετε το " Scripting.FileSystemObject . " Αφού διαβάσετε τα δεδομένα , τότε μπορείτε να ψάξετε για οτιδήποτε χρησιμοποιώντας τα δεδομένα στη μνήμη . Οδηγίες
Η 1

ξεκινήσει Notepad και πληκτρολογήστε "Αυτό είναι τα δεδομένα στο αρχείο μου " και πατήστε το πλήκτρο " Enter". Πληκτρολογήστε " 1 " και πατήστε το πλήκτρο " Enter". Τύπος " 2 " και πατήστε το πλήκτρο " Enter". Τύπος " 3 " και πατήστε το πλήκτρο " Enter". Τύπος " 4 " και πατήστε το πλήκτρο " Enter". Τύπος " 5 " και πατήστε το πλήκτρο " Enter". Πατήστε το πλήκτρο " Ctrl " και "S " για να αποθηκεύσετε το αρχείο . Αποθήκευση σε : " . ReadFile.txt " " C \\ Temp ", όπως Κλείστε το αρχείο 2

Έναρξη Σημειωματάριο και πληκτρολογήστε το παρακάτω, για να καθορίσει το " FileSystemObject " μεταβλητή και ανοίξτε το αρχείο που δημιουργήσατε βήμα . ένα για διάβασμα :

Set fsoObj = CreateObject ( " Scripting.FileSystemObject " ) Set rdFile = fsoObj.OpenTextFile ( " C : \\ Temp \\ readFile.txt " , ForReading )
Η
3

Δημιουργήστε τις μεταβλητές που θα χρησιμοποιήσετε για να αναζητήσετε το αρχείο :

Const ForReading = 1Dim lineNumDim myLineArray ( )
Η 4

Loop μέσα από τα δεδομένα του αρχείου και να συμπληρώσετε τον πίνακα με τα δεδομένα του :

i = 0Do Μέχρι rdFile.AtEndOfStreamRedim Preserve myLineArray ( i ) myLineArray ( i ) = i = rdFile.ReadLinei + 1LooprdFile.Close
5

Προστίθεται το ακόλουθο " για ... Loop " για να αναζητήσετε τα δεδομένα στον πίνακα για τον αριθμό " 4 " και να εμφανίσει ένα μήνυμα όταν του βρέθηκαν :

lineNum = 0For Κάθε strLine σε myLineArrayIf ( strLine = " 4 " ) thenWScript.Echo " Έχετε βρει " & strLine &" στη γραμμή " & lineNum & " . "End iflineNum = lineNum + 1Next
Η

6 Πατήστε το πλήκτρο" Ctrl "και" S " να ξεκινήσει το "Save As " παράθυρο διαλόγου . " . Όνομα αρχείου " Τύπος " vbScriptFile.vbs " δίπλα στο Αποθήκευση σε " C : \\ Temp " και κλείστε το αρχείο . Πλοηγηθείτε στο " C : \\ Temp " και κάντε διπλό κλικ στο " vbScriptFile.vbs " για να εκτελέσετε το πρόγραμμα
Η
εικόνων .