Cara membaca dan menulis ke berkas teks menggunakan Visual Basic 2005 atau Visual Basic .NET

Untuk versi Microsoft Visual Basic 6.0 dari artikel ini, lihat .

Ringkasan

Artikel ini menunjukkan cara membaca dan menulis ke berkas teks dengan menggunakan Microsoft Visual Basic 2005 atau Microsoft Visual Basic .NET.

Persyaratan

Daftar berikut ini mencantumkan perangkat keras yang disarankan, perangkat lunak, jaringan infrastruktur, dan paket layanan yang Anda butuhkan:

  • Visual Basic 2005 atau Visual Basic .NET

Artikel ini mengasumsikan bahwa Anda sudah terbiasa dengan topik berikut ini:

  • Visual Basic 2005 atau Visual Basic .NET

Baca dan tulis file teks

Bagian "Baca file teks" menunjukkan cara menggunakan objek StreamReader untuk membaca berkas teks. Bagian "menulis berkas teks (contoh 1)" dan bagian "menulis berkas teks (contoh 2)" menunjukkan cara menggunakan kelas StreamWriter menuliskan teks ke berkas.

Membaca berkas teks

Kode berikut menggunakan kelas StreamReader untuk membuka, membaca dan untuk menutup berkas teks. Anda dapat melewati nama path berkas teks ke konstruktor StreamReader untuk membuka berkas secara otomatis. Metode ReadLine membaca setiap baris teks dan kenaikan pointer berkas untuk baris berikutnya seperti membaca. Apabila metode ReadLine mencapai akhir berkas, mengembalikan apa-apa.

  1. Mulai Microsoft Visual Studio 2005 atau Microsoft Visual Studio .NET.

  2. Membuat aplikasi konsol baru dalam Visual Basic 2005 atau Visual Basic .NET.

  3. Menambahkan kode berikut ke bagian atas dari berkas Module1.vb:

    Imports System.IO
  4. Tambahkan kode berikut untuk 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 menyusun dan untuk menjalankan aplikasi. Tekan ENTER untuk menutup jendela konsol.

    Jendela konsol yang menampilkan Berkas Boot.ini. Perhatikan bahwa konten dari Berkas Boot.ini 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 berkas teks (contoh 1)

Kode berikut menggunakan kelas StreamWriter untuk membuka, untuk menulis dan untuk menutup berkas teks. Mirip dengan StreamReader, Anda dapat melewati nama path berkas 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. Membuat aplikasi konsol baru dalam Visual Basic 2005 atau Visual Basic .NET.

  3. Menambahkan kode berikut ke bagian atas Module1.vb:

    Imports System.IO
  4. Tambahkan kode berikut untuk 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 menyusun dan untuk menjalankan aplikasi.

    Kode ini membuat file bernama Test.txt di pada kandar C. Test.txt di terbuka di editor teks seperti Notepad. Test.txt di berisi dua baris teks:

    Hello World
    From the StreamWriter class

Menulis berkas teks (contoh 2)

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

Parameter pertama adalah berkas jalur dan nama berkas berkas. Parameter kedua, benar, berarti bahwa berkas dibuka di menambahkan mode. Jika Anda menetapkan
Palsu untuk parameter kedua, konten berkas telah ditimpa setiap kali Anda menjalankan kode. Parameter ketiga menentukan Unicode sehingga StreamWriter menyandikan berkas Unicode. Anda juga dapat menetapkan metode pengkodean berikut untuk parameter ketiga:

  • ASCII

  • BigEndianUnicode

  • UTF7

  • UTF8

Metode yang menulis sama dengan metode WriteLine kecuali bahwa menulis tidak secara otomatis embed ke awal kembali/umpan baris kombinasi karakter (CR/LF). Hal ini berguna jika Anda ingin menulis karakter satu per satu.

  1. Mulai Visual Studio 2005 atau Visual Studio .NET.

  2. Membuat aplikasi konsol baru dalam Visual Basic 2005 atau Visual Basic .NET.

  3. Menambahkan kode berikut ke bagian atas Module1.vb:

    Imports System.IOImports System.Text

  4. Menambahkan kode berikut ke Utama Sub prosedur 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 menyusun dan untuk menjalankan aplikasi.

    Kode ini membuat file yang bernama Test2.txt pada kandar C. Test2.txt terbuka di editor teks seperti Notepad. Test2.txt berisi satu baris teks:12345678910

    Catatan Jika Anda menjalankan kode beberapa kali, teks "123456789" berulang pada baris yang sama.

Daftar lengkap kode

'Read a Text FileImports 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 output file, itu baik pemrograman praktik membungkus kode dalam blok Mencoba mencoba akhir apabila terjadi galat. Beberapa galat yang mungkin mencakup berkas yang tidak ada, atau berkas yang sedang digunakan.

Referensi

Untuk informasi selengkapnya, kunjungi situs Web Microsoft berikut:

Bagaimana cara... Membaca berkas teks?



Bagaimana cara... Baca dan tulis file besar?



Kelas StreamReader


StreamWriter kelas

Perlu bantuan lainnya?

Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung Microsoft Insider

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×