はじめまして、現在Visual Basic 2008でプログラムの勉強を始めた者です。
参考にしている書籍のサンプルに手を加えて自分の使いやすい収支管理を作っているのですが、
CSVファイルの読み込みがうまくできません。
登録画面で入力した項目を一覧画面に表示し、CSV形式で保存するところまでは何とか出来ています。
サンプルでは起動毎に読み込むようになっているのですが、私が手を加えた方では何も読み込んでくれません。
サンプルとコードミスがないか気をつけてみたのですが、思い当たる部分が発見出来なくて…。
そこで、質問させてください。
下記にCSVファイルの読み込みを行う部分のコードを記載するので修正点をご教授いただければと思います。
また、他にどのような説明とコードがないと修正部分はわからないのであれば、ご指示いただいた内容を
追加で記載させていただきます
よろしくお願いいたします。
Sub LoadData()
Dim path As String = "MoneyData.csv" '出力ファイル名
Dim delimStr As String = "," '区切り文字
Dim delimiter() As Char = delimStr.ToCharArray '区切り文字をまとめる
Dim strData() As String '分解後の文字の入れ物
Dim strLine As String '1行分のデータ
Dim fileExists As Boolean = My.Computer.FileSystem.FileExists(path)
If fileExists Then 'ファイルが存在すれば読み込む
Dim sr As IO.StreamReader = New IO.StreamReader(path, System.Text.Encoding.Default)
While (sr.Peek() >= 0)
strLine = sr.ReadLine()
strData = strLine.Split(delimiter)
MoneyDataSet.moneyDataTable.AddmoneyDataTableRow( _
Date.Parse(strData(0)), _
strData(1).ToString(), _
strData(2).ToString(), _
strData(3).ToString(), _
strData(4).ToString(), _
strData(5).ToString(), _
strData(6).ToString(), _
strData(7).ToString(), _
strData(8).ToString())
End While
sr.Close()
End If
End Sub
