İ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.
Not
Bilgisayarınız, aşağıdaki yönergelerde yer alan Visual Studio kullanıcı arabirimi öğelerinden bazıları için farklı adlar veya konumlar gösterebilir. Sahip olduğunuz Visual Studio sürümü ve kullandığınız ayarlar bu öğeleri belirler. Daha fazla bilgi için bkz. IDE’yi kişiselleştirme.
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
Dosya menüsünde Yeni Proje'yi seçin.
Yeni Proje bölmesinde Windows Uygulaması'na tıklayın.
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.
Aşağıdaki tablodaki denetimleri forma ekleyin ve özellikleri için karşılık gelen değerleri ayarlayın.
Nesne | Veri Erişimi | Value |
---|---|---|
Button | Ad Metin |
Submit Girdi Gönder |
Button | Ad Metin |
Clear Girdiyi Temizle |
TextBox | Ad Metin Çok satırlı |
Entry Lütfen bir şey girin. False |
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
Görünüm menüsünde Kod'u seçerek Kod Düzenleyicisi'ni açın.
Uygulama ad alanına başvuracağından System.IO , form
Public Class Form1
iç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.
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
Not
Visual Studio Tümleşik Geliştirme Ortamı (IDE), Kod Düzenleyicisi'ne döner ve ekleme noktasını, kodu eklemeniz gereken olay işleyicisinin içinde konumlandıracaktır.
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 StreamWriter
ekleyin. 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
Aşağıdaki kodu doğrudan arkasına
Dim ReadString As String
ekleyerek 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
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 kodufw = New StreamWriter("C:\MyDiary.txt", True)
sonra ekleyin.Dim Today As DateTime Today = Now fw.Write(CStr(Today)) fw.Write(ControlChars.CrLf)
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 DisplayEntry
TextBoxgörüntüleyen bir özellik ekleyebilirsiniz. Ayrıca, çeşitli girişleri görüntüleyen ve kullanıcının içinde DisplayEntry
TextBoxgörüntülemek üzere bir girdi seçebileceği bir ekleyebilirsinizComboBox. sınıfının bir örneği StreamReader öğesinden MyDiary.txt
okur. 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.
Control | Properties | Değerler |
---|---|---|
TextBox | Ad Visible Büyüklük Çok satırlı |
DisplayEntry False 120,60 True |
Button | Ad Metin |
Display Görüntüleme |
Button | Ad Metin |
GetEntries Girdileri Al |
ComboBox | Ad Metin Etkin |
PickEntries Girdi Seçin False |
Birleşik giriş kutusunu doldurmak için
PickEntries
ComboBox, 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şleyicisiGetEntries
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
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
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
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
DisplayEntry
TextBoxgö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.
Control | Properties | Değerler |
---|---|---|
Button | Ad Metin Etkin |
DeleteEntry Girdiyi Sil False |
Button | Ad Metin Etkin |
EditEntry Girdiyi Düzenle False |
Button | Ad Metin Etkin |
SubmitEdit Düzenlemeyi Gönder False |
Girdilerin silinmesini ve değiştirilmesini etkinleştirmek için
Düğmenin olayına
Display
aşağıdaki kodu ekleyin, sonraDisplayEntry.Text = ReadString
.ClickDeleteEntry.enabled = True
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
Kullanıcı bir girdi görüntülediğinde düğme
EditEntry
etkinleştirilir. düğmesinin olayına ClickDisplay
aşağıdaki kodu ekleyinDisplayEntry.Text = ReadString
.EditEntry.Enabled = True
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
Düğme için
SubmitEdit
bir Click olay işleyicisi oluşturun ve aşağıdaki kodu ekleyinDim 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 DisplayEntry
TextBoxgörünür. Girdiyi Düzenle'ye tıklayın. girdisi içinde Entry
TextBoxgörünür. içindeki girdiyi düzenleyin ve Düzenle Gönder'e Entry
TextBox 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
.