Anasayfa > Kodlar > Visual Basic.net ile Dosya işlemleri

Visual Basic.net ile Dosya işlemleri


Bir metin dosyasını acıp içini değiştirip kaydetmeye yarayan bi program yapalım.

Bir metin dosyasını acıp içini değiştirip kaydetmeye yarayan bi program yapalım...
Formumuza textbox1,button1(dosya acmak için),button2(dosyayı kaydetmek için),
OpenFileDialog1 ve SaveFileDialog1 ekleyelim..
Kolay gelsin acaromer@hotmail.com



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.Filter = "Metin dosyaları|*.txt|" & _
"Bütün dosyalar|*.*"
OpenFileDialog1.Title = "Açılacak dosyayı seçiniz"
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
Dim dosya_adı As String
dosya_adı = OpenFileDialog1.FileName
'dosyayı okumak için aç
FileOpen(1, dosya_adı, OpenMode.Input)
Dim x, y As String
'dosya sonuna gelene kadar
While Not EOF(1)
'bir satır oku
x = LineInput(1)
'okunan satırı y değişkenine ekle
y += x & vbCrLf
End While
'dosyayı kapat
FileClose(1)
'okunan bilgileri TextBox içine aktar
TextBox1.Text = y
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.Title = "Kaydetmek için bir ad girin"
SaveFileDialog1.Filter = "Metin dosyaları|*.txt|" & _
"Bütün dosyalar|*.*"
SaveFileDialog1.DefaultExt = "txt"
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
Dim dosya_adı As String
dosya_adı = SaveFileDialog1.FileName
'dosyayı yazmak için aç
FileOpen(1, dosya_adı, OpenMode.Output)
'TextBox içeriğini dosyaya yaz
Print(1, TextBox1.Text)
'Dosyayı kapat
FileClose(1)
End If
End Sub

  1. 29/07/2011, 21:53

    İnsan Bi Resim Koyar

    Beğen

  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: