VB.NET CSVとデータテーブルについて

Question

いつもお世話になっております。
現在課題としてVB.NETでCSVファイルを使った簡単な連絡先管理システムのようなものを作成しています。

機能としては、
1.既存のCSVファイルを読込み、リストボックスに番号、名前を一覧表示する
→あかさたな～でソートできるようにする
2.リストボックスの連絡先クリックでテキストボックスに詳細を表示
3.追加ボタンクリックで連絡先の新規追加
4.更新ボタンクリックで既存の連絡先の内容更新
5.削除ボタンクリックで既存の連絡先の削除
→いずれもCSVにデータを保存

を想定しています。

デザインはでき、本などを参考に配列を使い読込機能も実装したのですが、
ソートなどの機能を考えデータテーブルにデータを格納するようにとヒントをもらい、作り直すことにしました。
しかし、データテーブルの使い方について一日調べましたが方法も多くややこしくてイマイチ理解ができていません。

・CSVからデータを読込み、データテーブルに格納し、リストボックスに表示させるのにわかりやすい方法はありますでしょうか？

※CSVの内容は以下のようなかたちです。
0001,中山太朗,神奈川県,0000-00-0000,[e-mail]
0002,土田新太郎,新潟県,0120-00-1245,[e-mail]
0003,中田三郎,富山県,0786-00-0000,[e-mail]
0004,田中史郎,愛知県,0516-00-2652,[e-mail]
0005,山田一郎,石川県,0585-58-5482,[e-mail]
0006,鈴木五郎,山梨県,0555-55-5555,[e-mail]
0007,大田六郎,福岡県,5584-58-2541,[e-mail]

###現時点のソースコード

'フォーム
Public Class AddressBookForm
    'CSVファイルを読込みリストボックスに表示する
    Private Sub AddressBookForm_Load(sender As Object, e As EventArgs) Handles Me.Load
        Reading.ReadData()
    End Sub
End Class

'読込クラス
Public Class Read
    'アドレス帳の情報を格納する配列DBを作成
    Private Structure DBField
        Dim Number As String
        Dim Name As String
        Dim Address As String
        Dim Tel As String
        Dim Mail As String
    End Structure

    Dim DB() As DBField


    ' 概要：CSVファイルを読込みリストボックスに表示する
    Public Sub ReadData()
        Dim lReader As New IO.StreamReader("C:\adoresu.txt", System.Text.Encoding.GetEncoding("Utf-8"))
        Try

            Do Until lReader.EndOfStream                    '全てのテキストを読み取るまで繰り返す
                Dim recordCount As Integer                  'データの行数
                If DB Is Nothing Then                       '配列が空なら上限値を0にして配列を作成。
                    recordCount = 0
                Else
                    recordCount = DB.GetUpperBound(0) + 1   '空でない場合は配列のサイズを一つ広げる
                End If
                ReDim Preserve DB(recordCount)
                Dim readFields() As String
                readFields = lReader.ReadLine.Split(",")    '１行分のデータを読み取り、各フィールドに分解して代入
                With DB(recordCount)                        'DBの配列に代入
                    .Number = readFields(0)                 '番号
                    .Name = readFields(1)                   '名前
                    .Address = readFields(2)                '住所
                    .Tel = readFields(3)                    '電話番号
                    .Mail = readFields(4)                   'メールアドレス
                End With

                AddressBookForm.ListBox1.Items.Add(readFields(0) & " - " & readFields(1)) '番号と名前を-で結合


            Loop
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Read")
        Finally
            If lReader IsNot Nothing Then
                lReader.Close()
                lReader.Dispose()
            End If
        End Try
    End Sub

End Class

###補足情報(言語/FW/ツール等のバージョンなど)
Visual Studio 2012を使用しています。
そのほか必要な情報などございましたらご指摘お願いします。
たびたび似たような質問をするかもしれませんが、よろしくお願いいたします。

Answer 1

テキストファイルの読み込みはFileIO.TextFieldParserを使うと楽できます

Microsoft.VisualBasic.FileIO >> TextFieldParser

あとたとえばこんな感じ(細々したところは適宜書きなおしてください)

Using stream As System.IO.FileStream = New System.IO.FileStream(path, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.Read)

 Using parser As FileIO.TextFieldParser = New FileIO.TextFieldParser(stream, IIf(encoding Is Nothing, System.Text.Encoding.UTF8, encoding), True, False)

  With parser
   .TextFieldType = FileIO.FieldType.Delimited
   .Delimiters = New String() {","}
   .HasFieldsEnclosedInQuotes = False
   .TrimWhiteSpace = False
  End With

  While (parser.EndOfData = False)

   Yield parser.ReadFields

   End While

  End Using

End Using

で、読み込んだものをIEnumerable(Of String())として返すようにすれば、Linqも使えてさらに楽ができます
→例えば条件にあわないものを端から切り捨てたりとか

全体的な流れとしても、いまさらDataTableは使わずに、読み込んだレコードはObservableCollection(Of T)に突っ込んでおいて、DataGridなりListBoxにバインド、ソートなどの処理はLinqを使っていくような考えかたの方が個人的にはお勧めです(というか好きです)

System.Collections.ObjectModel >> ObservableCollection(Of T)

たぶんUIはWinFormsだと思いますが、もしWPFならコントロールにDataContextだったりItemsSourceがあるものが多いので、UIで凝ったことをしなければObservableCollection(Of T)にさえ突っ込んでおけば、ほとんどなにも考えずにできます(諸説あります)

Comments

[dojikko]

あとデータはINotifyPropertyChangedを継承したクラスで取り扱った方がUIと相性がよいと思います

Answer 2

CSVからデータを読込み、データテーブルに格納し、
リストボックスに表示させるのにわかりやすい方法はありますでしょうか？

質問者さんの能力次第です。
ネット検索で、各種事例がみつかります。
’
案の掲示だけ、
１．VB.NET List(Of String) で検索できる事柄を使う
２．VB.NET Dictionary で検索できる事柄を使う
３．あくまでも、テキストとして扱う。
４．データベースへ、お引越しする。
CSV ← → データベース
は、結果として、その様に扱えれば良いだけです。
１～４の何れの方法でも、コントロールのDataSource になり得るデータになっていると、
後処理で、楽ができます。

Answer 3

ご回答いただきありがとうございました。
しかしながら知識不足のため教えていただいた内容が理解できず、なかなかうまくいきませんでした。
なんとか別の方法でデータテーブルを使うことができましたが、いただいた回答を参考にして理解できるよう勉強したいと思います。