Başlangıç > Vb > vb dosya veri yazma işlemi

vb dosya veri yazma işlemi


Merhaba
Daha önce yazdığım c# dosya veri yazma işlemi yazımda olduğu gibi aynı işlemleri vb.net ile de yapabiliriz. Bir önceki yazımda olan kodların bire bir vb.net için yazılmış hali aşağıdaki gibidir.
Öncelikle veri yazma işlemini yapacak olan sınıfımızı oluşturalım.

Imports System.IO


Public Class File

    Public Sub Write(ByVal filePath As String, ByVal fileName As String, ByVal strLog As String, Optional isAppend As Boolean = True)

        Try

            Dim logWriter As StreamWriter = New StreamWriter(filePath + fileName, isAppend)
            logWriter.WriteLine(strLog)
            logWriter.Close()
            logWriter.Dispose()

        Catch ex As Exception
            Throw ex
        End Try

    End Sub

End Class

Artık elimizde yazma işlemini yapacağımız sınıfımız olduğuna göre şimdi bu sınıfı kullanıp basitce bir veri yazma işlemi yapalım.

Imports System
Imports System.Text
Module Program

    Sub Main()

        Dim file As File = New File()
        Dim i(0) As Byte
        Dim sbLog As StringBuilder = New StringBuilder()
        Dim sbExLog As StringBuilder = New StringBuilder()

        Try
            sbLog.AppendLine(DateTime.Now.ToString())
            sbLog.AppendLine("First line")
            sbLog.AppendLine("Second line")
            sbLog.AppendLine("Message")

            file.Write("C:\\LogVb\\", "Log.txt", sbLog.ToString())

            'programın hata alması ve bu hata mesajını yazmak için eklendi.
            i(999999) = 1
        Catch ex As Exception
            sbExLog.AppendLine(DateTime.Now.ToString())
            sbExLog.AppendLine(ex.Message)
            sbExLog.AppendLine(ex.StackTrace)
            file.Write("C:\\LogVb\\", "ExLog.txt", sbExLog.ToString())
        End Try

    End Sub

End Module

Yukarıdaki kodlarda görüldüğü gibi file.Write(“C:\\LogVb\\”, “Log.txt”, sbLog.ToString()) satırında istediğimiz mesajı belirtiğimiz dosya yolu ve ismi ile kayıt edebiliriz. Buna ilave olarak file.Write(“C:\\LogVb\\”, “ExLog.txt”, sbExLog.ToString()) satırında ise bir hata durmunda yine aynı yöntem ise bir başka dosyaya ya da istenirse aynı dosya içine hata bilgileri de yazdırılabilinir. Basitçe yaptığmız bu işlem ihtiyaçlara göre değiştirilip daha da kapsamlı olarak kullanılabilinir.

Kodlar çalıştırıldığında oluşan örnek dosyaların içeriği aşağıdaki gibidir.

[Log.txt]

26.03.2016 14:05:37
First line
Second line
Message

[ExLog.txt]

26.03.2016 14:05:37
Dizin, dizi sınırlarının dışındaydı.
   konum: ConsoleLogVb.Program.Main() D:\TfsDevelop\Main\ConsoleLogVb\ConsoleLogVb\Program.vb içinde: satır 21

Kolay gelsin.

Reklamlar
Kategoriler:Vb Etiketler:, , , , , ,
  1. Henüz yorum yapılmamış.
  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. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: