CSV Dosyasından Okuma Yapmak

Merhaba arkadaşlar bu makalemizde CSV formatındaki dosyamızdan kriterimize göre aradığımız verileri ListBox ta listelenmesini sağlayacağız. Bu örneğimizde yazarların kitaplarının fiyatına göre arama yapacağız.

Screenshot

Şekil 1

Şekil 2

Form1.vb

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnListele_Click(sender As Object, e As EventArgs) Handles btnListele.Click

        Dim dosyaOku As New StreamReader("C:\yazar.csv")

        Dim i As Integer = txtVeri.Text

        Dim detay As Array

        While dosyaOku.EndOfStream = False

'csv dosyasında , ile ayrılan satırları okuyoruz.

            detay = dosyaOku.ReadLine.Split(",")

'2. virgülden sonraki değer textbox a girdiğimiz değerden büyük ise

            If detay(2) > i Then

'Veriyi listboxta listeliyoruz.

                lstVeri.Items.Add(detay(0) & " " & detay(1) & " " & detay(2))

            End If

        End While

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN