【VB.net】列挙型Enumを用いたCSVファイル読み込み処理

Question

前提・実現したいこと

CSVファイルを読み込んで、画面のテキストボックスに表示させるプログラムを組んでいます。
サンプルを参考に組んで目的は達成できましたが、以下の改修内容を反映させたいと思ってます。

➀宣言したEnum（Integer型）を利用できていない　※※表示、テキストボックスに表示部分※※
（配列内の添え字を意識できていない）
➁冗長的ではないかもしれませんが、見にくさを改善したい（「＆」を多用など）

➁は、➀を実現したうえで。同時に改善できるのが理想です。
うまい記述方法があればという感じです。

【読込処理の流れ】
TextFieldParserを用いて配列arrayRowを作り（While内）、配列の要素分strVeiwResultに書き出し表示用テキストボックスに追加していってます。

イベント処理部分は省略してますが、イベント処理部分で読込処理であるInputCSVを実行します。
曖昧な要望ですが、よろしくお願いいたします。

該当のソースコード

'---クラス変数
Public Enum Great_Index As Integer
　　　Great_Name          '偉人の氏名
     Expert_Areas　　　　 '偉人の分類
     Performance         '偉人の業績
     BirthDeath_Year     '偉人の生没年
     Country             '偉人の出身国
End Enum


　''---読込処理
　'---ファイル読み込み
　Public InputCSV(Bybal FilePath As String)
            Using objIoTFP As New Microsoft.VisualBasic.FileIO.TextFieldParser(FilePath, Encoding.GetEncoding("Shift_JIS"))
                '読み込み時の設定
                With objIoTFP
                    '区切り文字をカンマに設定
                    .TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
                    .SetDelimiters(",")
                    '空白があった場合にTrimしない
                    .TrimWhiteSpace = False
                End With

                'CSV読み込み実行
                While Not objIoTFP.EndOfData
                    Dim arrayRow As String() = objIoTFP.ReadFields()
                    Dim strVeiwResult As String = Nothing
                    For Each objField As String In arrayRow
                        '※※表示※※
                        strVeiwResult = strVeiwResult & objField & ","
                    Next
                    '列の末尾のカンマを削除
                    strVeiwResult = strVeiwResult.TrimEnd(",")
                    '※※テキストボックスに表示※※
                    txtResult.Text = txtResult.Text & strVeiwResult & vbCrLf
                End While
            End Using

Comments

[YAmaGNZ]

宣言したEnumはどこでどのように使うつもりなのですか？
ソースを見る限り、CSVを読み込んで、各フィールドをカンマで区切った文字列を作成しているだけです。

[urozero]

毎度お世話になります。
arrayRowとの連携という形でしょうか。
拡張For文内で、明示的に列番号を使って配列に追加するようなイメージです。

Answer 1

このようなことをしたいということですか？

For Each value In GetType(Great_Index).GetEnumValues
    Console.WriteLine(arrayRow(value))
Next

Comments

[urozero]

記述してデバックしてみました。
その通りになります。

テキストボックスに5列複数行分のデータを表示させるには、（ループで合計値を計算するような）既存の記述方法しかないでしょうか？

[YAmaGNZ]

いまいち行いたいことを理解し切れていないので、的外れかもしれませんが
strVeiwResult = $"{arrayRow(Great_Index.Great_Name)},{arrayRow(Great_Index.Expert_Areas)},{arrayRow(Great_Index.Performance)},{arrayRow(Great_Index.BirthDeath_Year)},{arrayRow(Great_Index.Country)}"
こういうことですか？
そうでないなら、目的を理解できるように説明してください。

[urozero]

それで合っております。
すみません。留意します。

[urozero]

追記です。
そうなると拡張Forが必要なくなりますね。
ループをWhileのみにすると、実現したいことができました。

大変助かりました。ありがとうございます！