前提・実現したいこと
CSVファイルを読み込んで、画面のテキストボックスに表示させるプログラムを組んでいます。
サンプルを参考に組んで目的は達成できましたが、以下の改修内容を反映させたいと思ってます。
➀宣言したEnum(Integer型)を利用できていない ※※表示、テキストボックスに表示部分※※
(配列内の添え字を意識できていない)
➁冗長的ではないかもしれませんが、見にくさを改善したい(「&」を多用など)
➁は、➀を実現したうえで。同時に改善できるのが理想です。
うまい記述方法があればという感じです。
【読込処理の流れ】
TextFieldParserを用いて配列arrayRowを作り(While内)、配列の要素分strVeiwResultに書き出し表示用テキストボックスに追加していってます。
イベント処理部分は省略してますが、イベント処理部分で読込処理であるInputCSVを実行します。
曖昧な要望ですが、よろしくお願いいたします。
該当のソースコード
VB
1'---クラス変数 2Public Enum Great_Index As Integer 3 Great_Name '偉人の氏名 4 Expert_Areas '偉人の分類 5 Performance '偉人の業績 6 BirthDeath_Year '偉人の生没年 7 Country '偉人の出身国 8End Enum 9 10 11 ''---読込処理 12 '---ファイル読み込み 13 Public InputCSV(Bybal FilePath As String) 14 Using objIoTFP As New Microsoft.VisualBasic.FileIO.TextFieldParser(FilePath, Encoding.GetEncoding("Shift_JIS")) 15 '読み込み時の設定 16 With objIoTFP 17 '区切り文字をカンマに設定 18 .TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited 19 .SetDelimiters(",") 20 '空白があった場合にTrimしない 21 .TrimWhiteSpace = False 22 End With 23 24 'CSV読み込み実行 25 While Not objIoTFP.EndOfData 26 Dim arrayRow As String() = objIoTFP.ReadFields() 27 Dim strVeiwResult As String = Nothing 28 For Each objField As String In arrayRow 29 '※※表示※※ 30 strVeiwResult = strVeiwResult & objField & "," 31 Next 32 '列の末尾のカンマを削除 33 strVeiwResult = strVeiwResult.TrimEnd(",") 34 '※※テキストボックスに表示※※ 35 txtResult.Text = txtResult.Text & strVeiwResult & vbCrLf 36 End While 37 End Using
回答1件
あなたの回答
tips
プレビュー