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

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
Pentru o versiune de Microsoft Visual Basic 6.0 a acestui articol, consultaţi 183638.
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=5default=multi(0)disk(0)rdisk(0)partition(1)\WINNT[operating systems]multi(0)disk(0)rdisk(0)partition(1)\WINNT="Windows 2000 Professional" /fastdetectC:\ = "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 WorldFrom 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.IOImports 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 FileImports System.IOModule 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 SubEnd Module'Write a Text File: Version 1Imports System.IOModule 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 SubEnd Module'Write a Text File: Version 2Imports System.IOImports System.TextModule 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 SubEnd 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:
încercaţi... încheie... încercaţi

Avertisment: acest articol a fost tradus automat

Propriedades

ID do Artigo: 315828 - Última Revisão: 06/07/2012 12:50:00 - Revisão: 2.0

Microsoft Visual Basic 2005, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition

  • kbvs2005swept kbvs2005applies kbhowtomaster kbmt KB315828 KbMtro
Comentários