Τρόπος ανάγνωσης και εγγραφής σε ένα αρχείο κειμένου με χρήση της Visual Basic 2005 ή Visual Basic .NET

Μεταφράσεις άρθρων Μεταφράσεις άρθρων
Αναγν. άρθρου: 315828 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Για την έκδοση Microsoft Visual Basic 6.0 αυτού του άρθρου, ανατρέξτε στην ενότητα 183638.
Ανάπτυξη όλων | Σύμπτυξη όλων

Σε αυτήν τη σελίδα

Περίληψη

Αυτό το άρθρο επιδεικνύει τον τρόπο ανάγνωσης και εγγραφής σε ένα αρχείο κειμένου χρησιμοποιώντας το Microsoft Visual Basic 2005 ή Microsoft Visual Basic .NET.

Απαιτήσεις

Η ακόλουθη λίστα περιγράφει τα υλικού που συνιστώνται, λογισμικό, υποδομή δικτύου και τα service pack που χρειάζεστε:
  • 2005 Visual Basic ή Visual Basic .NET
Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τα ακόλουθα θέματα:
  • 2005 Visual Basic ή Visual Basic .NET

Ανάγνωση και εγγραφή αρχείων κειμένου

Το"Ανάγνωση ενός αρχείου κειμένου" η ενότητα δείχνει πώς να χρησιμοποιήσετε το αντικείμενο StreamReader για να διαβάσετε ένα αρχείο κειμένου. Το"Εγγραφή ενός αρχείου κειμένου (παράδειγμα 1)"ενότητα και το "Εγγραφή ενός αρχείου κειμένου (παράδειγμα 2)" ενότητα παρουσιάζουν τον τρόπο χρήσης της κλάσης StreamWriter για να γράψετε κείμενο σε ένα αρχείο.

Ανάγνωση ενός αρχείου κειμένου

Ο κώδικας που ακολουθεί χρησιμοποιεί την κλάση StreamReader για να ανοίξετε, να διαβάσετε και να κλείσετε το αρχείο κειμένου. Μπορείτε να περάσετε το όνομα της διαδρομής του αρχείου κειμένου στην κατασκευή StreamReader ώστε να ανοίγει αυτόματα το αρχείο. Η μέθοδος το ReadLine διαβάζει κάθε γραμμή του κειμένου και αυξάνει το δείκτη αρχείου για να στην επόμενη γραμμή καθώς διαβάζει. Όταν η μέθοδος το ReadLine φτάσει στο τέλος του αρχείου, επιστρέφει τίποτα.
  1. Ξεκινήστε το Microsoft Visual Studio 2005 ή Microsoft Visual Studio .NET.
  2. Δημιουργία νέας εφαρμογής κονσόλας στο 2005 Visual Basic ή Visual Basic .NET.
  3. Προσθέστε τον ακόλουθο κώδικα στο επάνω μέρος του αρχείου Module1.vb:
    Imports System.IO
    					
  4. Προσθέστε τον ακόλουθο κώδικα στη διαδικασία Sub Main .
    Dim objStreamReader As StreamReader
        Dim strLine As String
    
        'Pass the file path and the file name to the StreamReader constructor.
        objStreamReader = New StreamReader("C:\Boot.ini")
    
        'Read the first line of text.
        strLine = objStreamReader.ReadLine
    
        'Continue to read until you reach the end of the file.
        Do While Not strLine Is Nothing
    
          'Write the line to the Console window.
          Console.WriteLine(strLine)
    
          'Read the next line.
          strLine = objStreamReader.ReadLine
        Loop
    
        'Close the file.
        objStreamReader.Close()
    
        Console.ReadLine()
    					
  5. Από το μενού Εντοπισμός σφαλμάτων , κάντε κλικ στο κουμπί Έναρξη για μεταγλώττιση και εκτέλεση της εφαρμογής. Πιέστε το πλήκτρο ENTER για να κλείσετε το Παράθυρο κονσόλας.

    Το παράθυρο της κονσόλας εμφανίζει το αρχείο Boot.ini. Σημείωση ότι τα περιεχόμενα του αρχείου Boot.ini μπορεί να διαφέρει από τις ρυθμίσεις παραμέτρων για ρύθμιση παραμέτρων. Τα παρακάτω δεδομένα εξόδου είναι ένα δείγμα αρχείου Boot.ini:
    [boot loader]
    timeout=5
    default=multi(0)disk(0)rdisk(0)partition(1)\WINNT
    
    [operating systems]
    multi(0)disk(0)rdisk(0)partition(1)\WINNT="Windows 2000 Professional" /fastdetect
    C:\ = "Windows 98"
    						

Εγγραφή ενός αρχείου κειμένου (παράδειγμα 1)

Ο κώδικας που ακολουθεί χρησιμοποιεί την κλάση StreamWriter για να ανοίξετε, να γράψει και να κλείσετε το αρχείο κειμένου. Παρόμοια Για να StreamReader, μπορείτε να περάσετε το όνομα διαδρομής του αρχείου κειμένου στην κατασκευή StreamWriter για να ανοίξετε το αρχείο αυτόματα. Η μέθοδος το WriteLine εγγράφει μια πλήρη γραμμή του κειμένου στο αρχείο κειμένου.
  1. Ξεκινήστε το Visual Studio 2005 ή το Visual Studio .NET.
  2. Δημιουργία νέας εφαρμογής κονσόλας στο 2005 Visual Basic ή Visual Basic .NET.
  3. Προσθέστε τον ακόλουθο κώδικα στην κορυφή της Module1.vb:
    Imports System.IO
    					
  4. Προσθέστε τον ακόλουθο κώδικα στη διαδικασία Sub Main :
    Dim objStreamWriter As StreamWriter
        
       'Pass the file path and the file name to the StreamWriter constructor.
       objStreamWriter = New StreamWriter("C:\Testfile.txt")
    
       'Write a line of text.
       objStreamWriter.WriteLine("Hello World")
    
       'Write a second line of text.
       objStreamWriter.WriteLine("From the StreamWriter class")
    
       'Close the file.
       objStreamWriter.Close()
    					
  5. Από το μενού Εντοπισμός σφαλμάτων , κάντε κλικ στο κουμπί Έναρξη για μεταγλώττιση και εκτέλεση της εφαρμογής.

    Αυτός ο κωδικός δημιουργεί ένα αρχείο με όνομα Test.txt στη μονάδα δίσκου C. Άνοιγμα Test.txt σε έναν επεξεργαστή κειμένου αυτών ως Σημειωματάριο (Notepad). Test.txt περιέχει δύο γραμμές κειμένου:
    Hello World
    From the StreamWriter class
    						

Εγγραφή ενός αρχείου κειμένου (παράδειγμα 2)

Ο κώδικας που ακολουθεί χρησιμοποιεί την κλάση StreamWriter για να ανοίξετε, να γράψει και να κλείσετε το αρχείο κειμένου. Σε αντίθεση με στο προηγούμενο παράδειγμα, αυτός ο κώδικας μεταβιβάζει δύο πρόσθετες παραμέτρους για το κατασκευή.

Η πρώτη παράμετρος είναι η διαδρομή και το όνομα του το αρχείο. Η δεύτερη παράμετρος, True, καθορίζει ότι το αρχείο να ανοίξει σε λειτουργία προσάρτησης. Εάν καθορίσετε Είναι False (ψευδές) για τη δεύτερη παράμετρο, τα περιεχόμενα του αρχείου Αντικατάσταση κάθε φορά που εκτελείτε τον κώδικα. Η τρίτη παράμετρος καθορίζει Unicode , έτσι ώστε να StreamWriter κωδικοποιεί το αρχείο σε μορφή Unicode. Μπορείτε επίσης να καθορίσετε τα ακόλουθα κωδικοποίηση μεθόδους για την τρίτη παράμετρο:
  • ASCII
  • BigEndianUnicode
  • UTF7
  • UTF8
Τη μέθοδο Write είναι παρόμοια με τη μέθοδο το WriteLine εκτός του ότι γράφετε Αυτόματη ενσωμάτωση σε χαρακτήρες επαναφοράς/αλλαγής γραμμής (CR/LF) Συνδυασμός χαρακτήρων. Αυτό είναι χρήσιμο όταν θέλετε να γράψετε έναν χαρακτήρα σε ένα ο χρόνος.
  1. Ξεκινήστε το Visual Studio 2005 ή το Visual Studio .NET.
  2. Δημιουργία νέας εφαρμογής κονσόλας στο 2005 Visual Basic ή Visual Basic .NET.
  3. Προσθέστε τον ακόλουθο κώδικα στην κορυφή της Module1.vb:
    Imports System.IO
    Imports System.Text
    					
  4. Προσθέστε τον ακόλουθο κώδικα στη διαδικασία Sub Main κάτω από τον υπάρχοντα κωδικό:
    Dim objStreamWriter As StreamWriter
       Dim x As Long
        
       'Open the file.
       objStreamWriter = New StreamWriter("C:\Test2.txt", True, _
          Encoding.Unicode)
    
       'Write out the numbers 1 through 10 on the same line.
       For x = 1 To 10
         objStreamWriter.Write(x)
       Next x
        
       'Close the file.
       objStreamWriter.Close()
    					
  5. Από το μενού Εντοπισμός σφαλμάτων , κάντε κλικ στο κουμπί Έναρξη για μεταγλώττιση και εκτέλεση της εφαρμογής.

    Αυτός ο κωδικός δημιουργεί ένα αρχείο που ονομάζεται Test2.txt στη μονάδα δίσκου C. Άνοιγμα Test2.txt σε έναν επεξεργαστή κειμένου αυτών ως Σημειωματάριο (Notepad). Test2.txt περιέχει μία γραμμή κειμένου:
    12345678910
    							
    Σημείωση Εάν εκτελείτε τον κώδικα αρκετές φορές, το κείμενο "123456789" είναι επαναλαμβάνεται στην ίδια γραμμή.

Ολοκληρώσετε την καταχώρηση κωδικού

'Read a Text File
Imports System.IO
Module Module1

    Sub Main()
        Dim objStreamReader As StreamReader
        Dim strLine As String

        'Pass the file path and the file name to the StreamReader constructor.
        objStreamReader = New StreamReader("C:\Boot.ini")

        'Read the first line of text.
        strLine = objStreamReader.ReadLine

        'Continue to read until you reach the end of the file.
        Do While Not strLine Is Nothing

            'Write the line to the Console window.
            Console.WriteLine(strLine)

            'Read the next line.
            strLine = objStreamReader.ReadLine
        Loop

        'Close the file.
        objStreamReader.Close()

        Console.ReadLine()
    End Sub
End Module

'Write a Text File: Version 1
Imports System.IO
Module Module1

    Sub Main()
        Dim objStreamWriter As StreamWriter

        'Pass the file path and the file name to the StreamWriter constructor.
        objStreamWriter = New StreamWriter("C:\Text.txt")

        'Write a line of text.
        objStreamWriter.WriteLine("Hello World")

        'Write a second line of text.
        objStreamWriter.WriteLine("From the StreamWriter class")

        'Close the file.
        objStreamWriter.Close()

    End Sub
End Module

'Write a Text File: Version 2
Imports System.IO
Imports System.Text
Module Module1

    Sub Main()
        Dim objStreamWriter As StreamWriter
        Dim x As Long

        'Open the file.
        objStreamWriter = New StreamWriter("C:\Test2.txt", True, _
           Encoding.Unicode)

        'Write out the numbers 1 through 10 on the same line.
        For x = 1 To 10
            objStreamWriter.Write(x)
        Next x

        'Close the file.
        objStreamWriter.Close()
    End Sub

End Module
				

Αντιμετώπιση προβλημάτων

Κάθε φορά που εισόδου ή εξόδου ενός αρχείου, είναι καλή προγραμματισμού πρακτική για αναδίπλωση του κώδικα μέσα σε ένα μπλοκ Try-τέλος-δοκιμάστε σε περίπτωση που παρουσιαστεί σφάλμα. Ορισμένα πιθανά σφάλματα περιλαμβάνουν ένα το αρχείο που δεν υπάρχει, ή ένα αρχείο που είναι ήδη σε χρήση.

Αναφορές

Για περισσότερες πληροφορίες, επισκεφθείτε την ακόλουθη Web Microsoft τοποθεσίες:
Πώς μπορώ να κάνω...Ανάγνωση ενός αρχείου κειμένου;
http://MSDN.Microsoft.com/en-us/library/db5x7c0d.aspx


Πώς μπορώ να κάνω...Ανάγνωση και εγγραφή αρχείων μεγάλο;
http://MSDN.Microsoft.com/en-us/library/6ka1wd3w (v=vs.80) .aspx

Κλάση StreamReader
http://MSDN.Microsoft.com/en-us/library/System.IO.streamreader (v=vs.71) .aspx

Κλάση StreamWriter
http://MSDN.Microsoft.com/en-us/library/System.IO.streamwriter (v=vs.71) .aspx

Ιδιότητες

Αναγν. άρθρου: 315828 - Τελευταία αναθεώρηση: Πέμπτη, 31 Ιανουαρίου 2013 - Αναθεώρηση: 6.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Visual Basic 2005
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Λέξεις-κλειδιά: 
kbvs2005swept kbvs2005applies kbhowtomaster kbmt KB315828 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη: 315828

Αποστολή σχολίων

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com