İzlenecek Yol: .NET Framework Yöntemlerini Kullanarak Dosyaları Düzenleme (Visual Basic)

Bu kılavuzda sınıfını kullanarak StreamReader bir dosyanın nasıl açıldığı ve okunduğu, bir dosyaya erişilip erişilmediğinin nasıl denetlendiğini, sınıfın StreamReader bir örneğiyle okunan bir dosya içinde bir dizenin nasıl arandığını ve sınıfını kullanarak StreamWriter bir dosyaya nasıl yazıldığı gösterilmektedir.

Uygulamayı Oluşturma

Visual Studio'yu başlatın ve kullanıcının belirlenen dosyaya yazmak için kullanabileceği bir form oluşturarak projeyi başlatın.

Proje oluşturmak için

1. Dosya menüsünde Yeni Proje'yi seçin.

2. Yeni Proje bölmesinde Windows Uygulaması'na tıklayın.

3. Ad kutusuna yazın MyDiary ve Tamam'a tıklayın.

   Visual Studio projeyi Çözüm Gezgini ekler ve Windows Forms Tasarım Aracı açılır.

4. Aşağıdaki tablodaki denetimleri forma ekleyin ve özellikleri için karşılık gelen değerleri ayarlayın.

Dosyaya Yazma

Uygulama aracılığıyla bir dosyaya yazma özelliğini eklemek için sınıfını StreamWriter kullanın. StreamWriter belirli bir kodlamadaki karakter çıkışı için, sınıfı ise Stream bayt girişi ve çıkışı için tasarlanmıştır. Standart bir metin dosyasına bilgi satırları yazmak için kullanın StreamWriter . sınıfı hakkında StreamWriter daha fazla bilgi için bkz StreamWriter. .

Yazma işlevi eklemek için

1. Görünüm menüsünde Kod'u seçerek Kod Düzenleyicisi'ni açın.

2. Uygulama ad alanına başvuracağından System.IO , form Public Class Form1için sınıf bildiriminin başına kodunuzun en başına aşağıdaki deyimleri ekleyin.

   Imports System.IO
   

   Dosyaya yazmadan önce bir sınıfın örneğini StreamWriter oluşturmanız gerekir.

3. Görünüm menüsünden Tasarım Aracı'ı seçerek Windows Forms Tasarım Aracı dönün. Düğmeye Submit çift tıklayarak düğme için bir Click olay işleyicisi oluşturun ve aşağıdaki kodu ekleyin.

   Dim fw As StreamWriter
   

1. Dosyasına yazmak için sınıfının yöntemini StreamWriter kullanınWrite. Aşağıdaki kodu doğrudan arkasına Dim fw As StreamWriterekleyin. Dosya bulunamazsa bir özel durum oluşturulacağından endişelenmeniz gerekmez, çünkü henüz yoksa oluşturulur.

   Dim ReadString As String
   Try
       'Pass the file path and name to the StreamWriter constructor.
       'Indicate that Append is True, so file will not be overwritten.
       fw = New StreamWriter("C:\MyDiary.txt", True)
       ReadString = Entry.Text
       fw.WriteLine(ReadString)
   Finally
       'Close the file.
       fw.Close()
   End Try
   

2. Aşağıdaki kodu doğrudan arkasına Dim ReadString As Stringekleyerek kullanıcının boş bir girdi gönderemediğinden emin olun.

   If (Entry.Text = "" Or Entry.Text = "Please enter something.") Then
       Entry.Text = "Please enter something."
       Return
   End If
   

3. Bu bir günlük olduğundan, kullanıcı her girişe bir tarih atamak isteyecektir. Değişkeni Today geçerli tarihe ayarlamak için aşağıdaki kodu fw = New StreamWriter("C:\MyDiary.txt", True) sonra ekleyin.

   Dim Today As DateTime
   Today = Now
   fw.Write(CStr(Today))
   fw.Write(ControlChars.CrLf)
   

4. Son olarak, öğesini temizlemek TextBoxiçin kod ekleyin. Düğmenin Click olayına Clear aşağıdaki kodu ekleyin.

   Entry.Text = ""
   

Günlüğe Görüntü Özellikleri Ekleme

Bu bölümde, içinde en son girdiyi DisplayEntryTextBoxgörüntüleyen bir özellik ekleyebilirsiniz. Ayrıca, çeşitli girişleri görüntüleyen ve kullanıcının içinde DisplayEntryTextBoxgörüntülemek üzere bir girdi seçebileceği bir ekleyebilirsinizComboBox. sınıfının bir örneği StreamReader öğesinden MyDiary.txtokur. sınıfı gibi StreamWriter , StreamReader metin dosyalarıyla kullanılmak üzere tasarlanmıştır.

İzlenecek kılavuzun bu bölümü için, aşağıdaki tabloda yer alan denetimleri forma ekleyin ve özellikleri için karşılık gelen değerleri ayarlayın.

Birleşik giriş kutusunu doldurmak için

1. PickEntriesComboBox, kullanıcının her girdiyi gönderdiği tarihleri görüntülemek için kullanılır, böylece kullanıcı belirli bir tarihten bir girdi seçebilir. Düğmesine bir Click olay işleyicisi GetEntries oluşturun ve aşağıdaki kodu ekleyin.

   Dim fr As StreamReader = Nothing
   Dim FileString As String
   FileString = ""
   Try
       fr = New System.IO.StreamReader("C:\MyDiary.txt")
       PickEntries.Items.Clear()
       PickEntries.Enabled = True
       Do
           FileString = fr.ReadLine
           If IsDate(FileString) Then
               PickEntries.Items.Add(FileString)
           End If
       Loop Until (FileString Is Nothing)
   Finally
       If fr IsNot Nothing Then
           fr.Close()
       End If
   End Try
   PickEntries.Enabled = True
   

2. Kodunuzu test etmek için F5 tuşuna basarak uygulamayı derleyin ve ardından Girişleri Al'a tıklayın. Giriş tarihlerini görüntülemek için içindeki ComboBox açılan oka tıklayın.

Tek tek girdileri seçmek ve görüntülemek için

1. Düğme için Display bir Click olay işleyicisi oluşturun ve aşağıdaki kodu ekleyin.

   Dim fr As StreamReader
   Dim ReadString As String
   'Make sure ReadString begins empty.
   ReadString = ""
   Dim FileString As String
   fr = New StreamReader("C:\MyDiary.txt")
   'If no entry has been selected, show the whole file.
   If PickEntries.Enabled = False Or PickEntries.SelectedText Is Nothing Then
       Do
           'Read a line from the file into FileString.
           FileString = fr.ReadLine
           'add it to ReadString
           ReadString = ReadString & ControlChars.CrLf & FileString
       Loop Until (FileString = Nothing)
   Else
       'An entry has been selected, find the line that matches.
       Do
   
           FileString = fr.ReadLine
       Loop Until FileString = CStr(PickEntries.SelectedItem)
       FileString = CStr(PickEntries.SelectedItem) & ControlChars.CrLf
       ReadString = FileString & fr.ReadLine
   
       'Read from the file until EOF or another Date is found.
       Do Until ((fr.Peek < 0) Or (IsDate(fr.ReadLine)))
           ReadString = ReadString & fr.ReadLine
       Loop
   End If
   fr.Close()
   DisplayEntry.Visible = True
   DisplayEntry.Text = ReadString
   

2. Kodunuzu test etmek için F5 tuşuna basarak uygulamayı derleyin ve bir girdi gönderin. Girdileri Al'a tıklayın, öğesinden ComboBoxbir girdi seçin ve ardından Görüntüle'ye tıklayın. Seçili girdinin içeriği içinde DisplayEntryTextBoxgörünür.

Kullanıcıların Girdileri Silmesini veya Değiştirmesini Etkinleştirme

Son olarak, kullanıcıların ve EditEntry düğmelerini kullanarak DeleteEntry bir girişi silmesine veya değiştirmesine olanak tanıyan ek işlevler ekleyebilirsiniz. Bir giriş görüntülenmediği sürece her iki düğme de devre dışı kalır.

Aşağıdaki tablodaki denetimleri forma ekleyin ve özellikleri için karşılık gelen değerleri ayarlayın.

Girdilerin silinmesini ve değiştirilmesini etkinleştirmek için

1. Düğmenin olayına Display aşağıdaki kodu ekleyin, sonraDisplayEntry.Text = ReadString.Click

   DeleteEntry.enabled = True
   

2. Düğme için DeleteEntry bir Click olay işleyicisi oluşturun ve aşağıdaki kodu ekleyin.

   Dim fr As StreamReader
   Dim ReadString As String
   Dim WriteString As String
   Dim ConfirmDelete As MsgBoxResult
   fr = New StreamReader("C:\MyDiary.txt")
   ReadString = fr.ReadLine
   ' Read through the textfile
   Do Until (fr.Peek < 0)
       ReadString = ReadString & vbCrLf & fr.ReadLine
   Loop
   WriteString = Replace(ReadString, DisplayEntry.Text, "")
   fr.Close()
   ' Check to make sure the user wishes to delete the entry
   ConfirmDelete = MsgBox("Do you really wish to delete this entry?",
     MsgBoxStyle.OKCancel)
   If ConfirmDelete = MsgBoxResult.OK Then
       File.Delete("C:\MyDiary.txt")
       Dim fw As StreamWriter = File.CreateText("C:\MyDiary.txt")
       fw.WriteLine(WriteString)
       fw.Close()
       ' Reset controls on the form
       DisplayEntry.Text = ""
       PickEntries.Text = ""
       PickEntries.Items.Clear()
       PickEntries.Enabled = False
       DeleteEntry.Enabled = False
   End If
   

3. Kullanıcı bir girdi görüntülediğinde düğme EditEntry etkinleştirilir. düğmesinin olayına ClickDisplay aşağıdaki kodu ekleyin DisplayEntry.Text = ReadString.

   EditEntry.Enabled = True
   

4. Düğme için EditEntry bir Click olay işleyicisi oluşturun ve aşağıdaki kodu ekleyin.

   Entry.Text = DisplayEntry.Text
   SubmitEdit.Enabled = True
   

5. Düğme için SubmitEdit bir Click olay işleyicisi oluşturun ve aşağıdaki kodu ekleyin

   Dim fr As StreamReader
   Dim ReadString As String
   Dim WriteString As String
   If Entry.Text = "" Then
       MsgBox("Use Delete to Delete an Entry")
       Return
   End If
   fr = New StreamReader("C:\MyDiary.txt")
   ReadString = fr.ReadLine
   Do Until (fr.Peek < 0)
       ReadString = ReadString & vbCrLf & fr.ReadLine
   Loop
   WriteString = Replace(ReadString, DisplayEntry.Text, Entry.Text)
   fr.Close()
   File.Delete("C:\MyDiary.txt")
   Dim fw As StreamWriter = File.CreateText("C:\MyDiary.txt")
   fw.WriteLine(WriteString)
   fw.Close()
   DisplayEntry.Text = Entry.Text
   Entry.Text = ""
   EditEntry.Enabled = False
   SubmitEdit.Enabled = False
   

Kodunuzu test etmek için F5 tuşuna basarak uygulamayı derleyin. Girdileri Al'a tıklayın, bir girdi seçin ve ardından Görüntüle'ye tıklayın. girdisi içinde DisplayEntryTextBoxgörünür. Girdiyi Düzenle'ye tıklayın. girdisi içinde EntryTextBoxgörünür. içindeki girdiyi düzenleyin ve Düzenle Gönder'e EntryTextBox tıklayın. MyDiary.txt Düzeltmenizi onaylamak için dosyayı açın. Şimdi bir girdi seçin ve Girdiyi Sil'e tıklayın. MessageBox İstek onayı geldiğinde Tamam'a tıklayın. Silme işlemini onaylamak için uygulamayı kapatın ve açın MyDiary.txt .

Ayrıca bkz.

• StreamReader
• StreamWriter
• Kılavuz