Bagaimana membaca dari dan menulis ke file teks dengan menggunakan Visual Basic 2005 atau Visual Basic.NET

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 315828 - Melihat produk di mana artikel ini berlaku.
Untuk versi Microsoft Visual Basic 6.0 artikel ini, lihat 183638.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini menunjukkan bagaimana untuk membaca dan menulisi untuk file teks dengan menggunakan Microsoft Visual Basic 2005 atau Microsoft Visual Basic.NET.

Persyaratan

Daftar berikut menguraikan fitur peranti penangkap keras, peranti penangkap lunak, jaringan infrastruktur, dan paket layanan yang Anda butuhkan:
  • Visual Basic 2005 atau Visual Basic.NET
Artikel ini mengasumsikan bahwa Anda sudah familiar dengan topik-topik berikut:
  • Visual Basic 2005 atau Visual Basic.NET

Membaca dan menulis file teks

"Membaca file teks" bagian menunjukkan bagaimana untuk menggunakan objek StreamReader untuk membaca file teks. "Menulis file teks (contoh 1)"bagian dan "Menulis file teks (contoh 2)" bagian menunjukkan bagaimana menggunakan StreamWriter kelas untuk menulis teks ke file.

Membaca file teks

Kode berikut menggunakan StreamReader kelas membuka, membaca, dan menutup file teks. Anda dapat melewati nama path file teks ke konstruktor StreamReader untuk membuka berkas secara otomatis. Metode ReadLine membaca setiap baris teks dan akan menambahkan file pointer ke baris berikutnya seperti membaca. Ketika metode ReadLine mencapai akhir file, itu kembali apa-apa.
  1. Mulai Microsoft Visual Studio 2005 atau Microsoft Visual Studio.NET.
  2. Menciptakan aplikasi konsol baru pada Visual Basic 2005 atau Visual Basic .NET.
  3. Tambahkan kode berikut ke bagian atas berkas Module1.vb:
    Imports System.IO
    					
  4. Tambahkan kode berikut prosedur Sub utama .
    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. Pada Debug menu, klik mulai untuk mengkompilasi dan menjalankan aplikasi. Tekan ENTER untuk menutup Jendela konsol.

    Jendela konsol yang menampilkan berkas Boot.ini. Catatan bahwa isi berkas Boot.ini dapat bervariasi dari konfigurasi untuk konfigurasi. Output berikut adalah berkas Boot.ini sampel:
    [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"
    						

Menulis file teks (contoh 1)

Kode berikut menggunakan StreamWriter kelas membuka, menulis, dan menutup file teks. Serupa untuk StreamReader, Anda dapat melewati nama path file teks ke konstruktor StreamWriter untuk membuka berkas secara otomatis. Metode WriteLine menulis baris lengkap teks ke file teks.
  1. Mulai Visual Studio 2005 atau Visual Studio.NET.
  2. Menciptakan aplikasi konsol baru pada Visual Basic 2005 atau Visual Basic .NET.
  3. Menambahkan kode berikut ke atas Module1.vb:
    Imports System.IO
    					
  4. Tambahkan kode berikut prosedur Sub utama :
    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. Pada Debug menu, klik mulai untuk mengkompilasi dan menjalankan aplikasi.

    Kode ini menciptakan sebuah file bernama test.txt di pada drive C. test.txt di terbuka di editor teks seperti sebagai Notepad. Test.txt di berisi dua baris teks:
    Hello World
    From the StreamWriter class
    						

Menulis file teks (contoh 2)

Kode berikut menggunakan StreamWriter kelas membuka, menulis, dan menutup file teks. Tidak seperti contoh sebelumnya, kode ini melewati dua parameter tambahan untuk konstruktor.

Parameter pertama adalah file path dan nama file berkas. Parameter kedua, benar, menentukan bahwa berkas dibuka di menambahkan modus. Jika Anda menetapkan Palsu untuk parameter kedua, isi file yang ditimpa setiap kali Anda menjalankan kode. Parameter ketiga menentukan Unicode sehingga StreamWriter encode file dalam Unicode. Anda juga dapat menentukan berikut metode pengkodean untuk parameter ketiga:
  • ASCII
  • BigEndianUnicode
  • UTF7
  • UTF8
Metode menulis sangat mirip dengan metode WriteLine kecuali bahwa menulis tidak secara otomatis menanamkan kereta kembali/line feed (CR/LF) kombinasi karakter. Hal ini berguna bila Anda ingin menulis satu karakter di waktu.
  1. Mulai Visual Studio 2005 atau Visual Studio.NET.
  2. Menciptakan aplikasi konsol baru pada Visual Basic 2005 atau Visual Basic .NET.
  3. Menambahkan kode berikut ke atas Module1.vb:
    Imports System.IO
    Imports System.Text
    					
  4. Tambahkan kode berikut prosedur Sub utama di bawah kode yang ada:
    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. Pada Debug menu, klik mulai untuk mengkompilasi dan menjalankan aplikasi.

    Kode ini menciptakan sebuah file yang bernama Test2.txt di drive C. Test2.txt terbuka di editor teks seperti sebagai Notepad. Test2.txt berisi satu baris teks:
    12345678910
    							
    Catatan Jika Anda menjalankan kode beberapa kali, teks "123456789" adalah mengulangi pada baris yang sama.

Daftar kode lengkap

'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
				

Pemecahan masalah

Setiap kali Anda input atau file output, ada baiknya pemrograman praktek untuk membungkus kode dalam blok Try-akhir-coba jika terjadi kesalahan. Beberapa kesalahan mungkin termasuk file yang tidak ada, atau file yang sudah digunakan.

REFERENSI

Untuk informasi lebih lanjut, kunjungi Website Microsoft berikut situs:
Bagaimana cara saya...Membaca file teks?
http://MSDN.Microsoft.com/en-us/library/db5x7c0d.aspx


Bagaimana cara saya...Membaca dan menulis file besar?
.aspx http://MSDN.Microsoft.com/en-us/library/6ka1wd3w (v=vs.80)

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

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

Properti

ID Artikel: 315828 - Kajian Terakhir: 07 Juni 2012 - Revisi: 4.0
Berlaku bagi:
  • Microsoft Visual Basic 2005
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Kata kunci: 
kbvs2005swept kbvs2005applies kbhowtomaster kbmt KB315828 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini: 315828

Berikan Masukan

 

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