Πώς να διαβάσετε πολλές γραμμές στο One Shot σε Visual Basic 6

Η Visual Basic 6 ( VB6 ) compiler σας επιτρέπει να διαβάσετε ένα χαρακτήρα , μια γραμμή ή ολόκληρο το αρχείο με τη μία , έτσι ώστε να μην χρειάζεται να μετακινηθείτε μέσα από κάθε χαρακτήρα , το οποίο διαρκεί περισσότερο χρόνο και υποβαθμίζει τις επιδόσεις σχετικά με την εφαρμογή σας . Για να το κάνετε αυτό μπορείτε να χρησιμοποιήσετε τη λειτουργία " Input" , η οποία αποτελεί μέρος των βιβλιοθηκών στη διαχείριση αρχείων σε VB6 . Οδηγίες
Η 1

Ανοίξτε Visual Basic 6 και ανοίξτε το έργο σας μετά τη φόρτωση του λογισμικού . 2

Ανοίξτε το αρχείο . Μπορείτε να χρησιμοποιήσετε την κλάση " TextStream " για να διαβάσει το περιεχόμενο του αρχείου . Προσθέστε τον ακόλουθο κώδικα στο αρχείο σας :

Dim ρεύμα Όπως TextStream

Set ρεύμα = fso.OpenTextFile ( " C : \\ AFile.txt " )

Αντικαταστήστε τη διαδρομή και όνομα αρχείου με το δικό σας αρχείο κειμένου .
εικόνων 3

Δημιουργήστε μια μεταβλητή και να διαβάσετε όλες τις γραμμές του κειμένου στο αρχείο . Ο ακόλουθος κώδικας δείχνει πώς μπορείτε να διαβάσετε τις γραμμές του κειμένου :

Dim readstring Όπως String

readstring = Input ( LOF ( ρεύμα ) )

Η λειτουργία " LOF " διαβάζει στο τέλος του αρχείου ή « μήκος του αρχείου . "
Η
εικόνων