Cum să citească din și scrie într-un fișier text utilizând 2005 Visual Basic sau Visual Basic.NET

Traduceri articole Traduceri articole
ID articol: 315828 - View products that this article applies to.
Pentru o versiune de Microsoft Visual Basic 6.0 a acestui articol, consultați 183638.
Măriți totul | Reduceți totul

În această pagină

REZUMAT

Prezentul articol demonstrează modul de a citi din ?i scrie la un Fișier text utilizând Microsoft Visual Basic 2005 sau Microsoft Visual Basic.NET.

Cerin?ele

Listă tabel următoare evidențiază hardware recomandate, software-ul, infrastructura re?elei, ?i pachete de consolidare servicii care aveți nevoie:
  • 2005 Visual Basic sau Visual Basic.NET
Acest articol presupune că sunteți familiarizați cu următoarele subiecte:
  • 2005 Visual Basic sau Visual Basic.NET

Citească și să scrie fișiere text

„Citește un fișier text" sec?iunea demonstrează cum se utilizează obiectul StreamReader pentru a citi un fișier text. „Scrie un fișier text (de exemplu 1)"secțiune și "Scrie un fișier text (de exemplu 2)" sec?iunea demonstra modul de utilizare a clasei StreamWriter pentru a scrie text într-un fișier.

Citește un fișier text

Următorul cod utilizează clasa StreamReader pentru a deschide, pentru a citi, și pentru a închide fișierul text. Vă pot trece nume de sign-in căii de un fișier de text la constructorul StreamReader pentru a deschide fișierul automat. Metoda de ReadLine citește fiecare linia Către de text și incrementează indicatorul fișier pentru a linia următoare ca acesta citește. Atunci când metoda de ReadLine ajunge la sfârșitul fișierului, se întoarce nimic.
  1. Porniți Microsoft Visual Studio 2005 sau Microsoft Visual Studio .NET.
  2. Creați o nouă cerere de consolă în 2005 Visual Basic sau Visual Basic .NET.
  3. Adăugați următorul cod în partea de sus a fișierul Module1.vb:
    Imports System.IO
    					
  4. Adăugați următorul cod la procedura Sub principal .
    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. Din meniul depanare , faceți clic pe Start pentru a compila și să executați aplicația. Apăsați ENTER pentru a închide Fereastra consolei.

    Fereastra consolei afișează fișierul Boot.ini. Notă că conținutul fișierului Boot.ini poate varia de configurare pentru configurare. Următorul rezultat este un fișier Boot.ini eșantion:
    [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"
    						

Scrie un fișier text (de exemplu 1)

Următorul cod utilizează clasa StreamWriter pentru a deschide, să scrie și să închideți fișierul text. Similare la StreamReader, pot trece nume de sign-in căii un fișier text la constructorul StreamWriter pentru a deschide fișierul automat. Metoda WriteLine scrie o linia Către completă de text în fișierul text.
  1. Start Visual Studio 2005 sau Visual Studio .NET.
  2. Creați o nouă cerere de consolă în 2005 Visual Basic sau Visual Basic .NET.
  3. Adăugați următorul cod în partea de sus a Module1.vb:
    Imports System.IO
    					
  4. Adăugați următorul cod la procedura Principală Sub :
    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. Din meniul depanare , faceți clic pe Start pentru a compila și să executați aplicația.

    Acest cod creează un fișier denumit Test.txt pe unitatea C. Test.txt deschis într-un editor de text, astfel în Notepad. Test.txt conține două linii de text:
    Hello World
    From the StreamWriter class
    						

Scrie un fișier text (de exemplu 2)

Următorul cod utilizează clasa StreamWriter pentru a deschide, să scrie și să închideți fișierul text. Spre deosebire de exemplul anterior, acest cod trece doi parametri suplimentare la constructor.

Primul parametru este calea și nume de sign-in de fișier al fișierul. Al doilea parametru, adevărat, specifică că fișierul este deschis în modul de adăugare. Dacă specificați False pentru al doilea parametru, conținutul fișierului sunt suprascrise de fiecare dată când executați codul. Al treilea parametru specifică Unicode , astfel încât StreamWriter codează fișierul la Unicode. De asemenea, specificați următoarele metode de codificare pentru al treilea parametru:
  • ASCII
  • BigEndianUnicode
  • UTF7
  • UTF8
Metoda scrie este similar cu metoda WriteLine , cu excepția faptului că scrie nu automat embed transportul întoarcerea/linie feed (CR/LF) combinație de caractere. Acest lucru este util atunci când doriți să scrie un caracter la un marcă de timp.
  1. Start Visual Studio 2005 sau Visual Studio .NET.
  2. Creați o nouă cerere de consolă în 2005 Visual Basic sau Visual Basic .NET.
  3. Adăugați următorul cod în partea de sus a Module1.vb:
    Imports System.IO
    Imports System.Text
    					
  4. Adăugați următorul cod Sub Main procedurii Consemnat de codul dvs. existente:
    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. Din meniul depanare , faceți clic pe Start pentru a compila și să executați aplicația.

    Acest cod creează un fișier denumit Test2.txt pe unitatea C. Test2.txt deschis într-un editor de text, astfel în Notepad. Test2.txt conține o singură linia Către de text:
    12345678910
    							
    Notă Dacă executați codul de mai multe ori, este textul "123456789" repetate pe aceeași linia Către.

Listă tabel completă de cod

'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
				

Depanare

Ori de câte ori aveți de intrare sau de ie?ire un fișier, este bine de programare practica de a wrap codul în interiorul unui bloc Încercați-End-încercați în cazul în care apare o eroare. Unele erori posibile includ o Fișier care nu există, sau un fișier care este deja în uz.

REFERINȚE

Pentru mai multe informații, vizitați următoarele Microsoft Web site-uri:
Cum a face I...Citește un fișier text?
http://msdn.Microsoft.com/en-us/library/db5x7c0d.aspx


Cum a face I...Citește și scrie fișiere mari?
http://msdn.Microsoft.com/en-us/library/6ka1wd3w (v=vs.80) .aspx

Clasa StreamReader
http://msdn.Microsoft.com/en-us/library/System.io.streamreader (v=vs.71) .aspx

Clasa StreamWriter
http://msdn.Microsoft.com/en-us/library/System.io.streamwriter (v=vs.71) .aspx

Proprietă?i

ID articol: 315828 - Ultima examinare: 7 iunie 2012 - Revizie: 2.0
SE APLICĂ LA:
  • Microsoft Visual Basic 2005
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Cuvinte cheie: 
kbvs2005swept kbvs2005applies kbhowtomaster kbmt KB315828 KbMtro
Traducere automată
IMPORTANT: Acest articol a fost tradus de software-ul de traducere automată Microsoft, si nu de un traducător. Microsoft vă oferă atât articole traduse de persoane, cât și articole traduse automat, astfel incat aveti access la toate articolele din Baza noastră de informatii în limba dvs. materna. Totuși, un articol tradus automat nu este întotdeauna perfect. Acesta poate conține greșeli de vocabular, sintaxă sau gramatică, la fel cum un vorbitor străin poate face greșeli vorbind limba dvs. materna. Compania Microsoft nu este responsabilă pentru nici o inexactitate, eroare sau daună cauzată de traducerea necorespunzătoare a conținutului sau de utilizarea traducerii necorespunzătoare de către clienții nostri. De asemenea, Microsoft actualizează frecvent software-ul de traducere automată.
Face?i clic aici pentru a vizualiza versiunea în limba engleză a acestui articol: 315828

Trimite?i feedback

 

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