Πώς να ανιχνεύσει το τέλος ενός αρχείου σε Visual Basic

. The Net πλαίσιο μέσα στο Visual Basic περιλαμβάνει διάφορους τρόπους για να ανοίξει και να διαβάσει ένα αρχείο στο δίσκο . Οι περισσότεροι χρησιμοποιούν κάποια μορφή StreamReader τάξη για να μετατρέψετε το αρχείο σε μια διαδοχική ροή των χαρακτήρων ή γραμμών . Κάθε χαρακτήρας ή η γραμμή είναι τότε διαβάστε στη μνήμη και το πρόγραμμα επεξεργάζεται τα δεδομένα από την αρχή μέχρι το τέλος . Όταν ο τελευταίος χαρακτήρας παίρνει διαβάσει από το πρόγραμμα , ο δείκτης EndOfStream έχει οριστεί σε true . Μπορείτε να οικοδομήσουμε ένα σύντομο πρόγραμμα που αντιγράφει το αρχείο προέλευσης με την κονσόλα , ενώ παρακολουθείτε για το τέλος του αρχείου δείκτη . Οδηγίες
Η

1 Δημιουργήστε ένα νέο Visual Basic εφαρμογή κονσόλας . Ανοίξτε το Visual Basic Express ( ή Visual studio ) . Κάντε κλικ στο " Αρχείο ", " New Project ". Από την προβολή δέντρου , κάντε κλικ στο κουμπί Εφαρμογή των Windows στην Visual Basic , επιλέξτε το εικονίδιο εφαρμογής κονσόλας , στη συνέχεια, κάντε κλικ στο κουμπί " OK" . Μετά από μια σύντομη αναμονή , θα εμφανιστεί ένα νέο παράθυρο κώδικα 2

Προσθέστε την ακόλουθη γραμμή στην αρχή του αρχείου πριν από τη δήλωση ενότητα : .

Εισαγωγές System.IO

Module Module1

Αυτό λέει Visual Basic που σκοπεύετε να χρησιμοποιήσετε τάξεις μέσα στο namespace System.IO .
εικόνων 3

αναγνωρίσει μερικές μεταβλητές μνήμης κατά την έναρξη της η κύρια υπορουτίνα ως εξής :

Sub Main ( )

Dim fileName As String = " .. \\ .. \\ Module1.vb "

Δημ. rdr όπως StreamReader

Dim txt Όπως String

Η μεταβλητή αρχείου περιέχει το όνομα του αρχείου που θέλετε να διαβάσετε . Οι δύο διπλά περιόδους ( .. \\ ) υποδεικνύει ότι το αρχείο είναι δύο φακέλους πάνω από τον τρέχοντα κατάλογο . Δεδομένου ότι το πρόγραμμα τρέχει στο φάκελο \\ απελευθέρωσης bin \\ debug ή bin , πρέπει να ανεβάσουμε δύο φακέλους για να βρείτε το αρχείο προέλευσης .

Η μεταβλητή rdr θα πραγματοποιήσει εμφάνιση της κλάσης StreamReader στο System.IO πακέτο . Η StreamReader περιέχει όλες τις μεθόδους που χρησιμοποιούνται για να διαβάσει το αρχείο .

Η μεταβλητή txt θα χρησιμοποιηθεί για να κρατήσει κάθε γραμμή του αρχείου , καθώς αντιγράφεται .
Η

4 Ανοίξτε το κείμενο αρχείο χρησιμοποιώντας τον ακόλουθο κώδικα :

Δοκιμάστε

rdr = File.OpenText ( fileName )

Catch ex Όπως Εξαίρεση

Console.WriteLine ( " δεν μπορώ να ανοίξω αρχείο " & ex.Message )

Επιστροφή

End Δοκιμάστε

η μέθοδος File.OpenText δημιουργεί ένα στιγμιότυπο της StreamReader τόνισε στο αρχείο . Αν το αρχείο δεν υπάρχει , μια εξαίρεση και εμφανίζεται ένα μήνυμα σφάλματος που παίρνει γραπτή
5

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

Ενώ rdr . EndOfStream = False

txt = rdr.ReadLine

Console.WriteLine ( txt )

End Ενώ

Ο βρόχος είναι αρκετά απλή . Πριν από το Loop ξεκινάει , η EndOfStream είναι ψευδής ( εκτός και αν το αρχείο είναι άδειο) . Σε κάθε εμφάνιση του βρόχου , μια γραμμή κειμένου διαβάζεται στη μεταβλητή txt τότε γραμμένο στην κονσόλα . Μετά την τελευταία γραμμή διαβάζεται , ο δείκτης EndOfStream παίρνει οριστεί σε true και ο βρόχος τελειώνει .
Η

6 Κλείστε το αρχείο , όταν ο βρόχος ολοκληρώνεται .

Rdr.Close ( )

End Sub

End Module

μέθοδο Close του StreamReader απελευθερώνει το αρχείο , τότε το πρόγραμμα τελειώνει .
Η
εικόνων