|
分類:[VB.NET/VB2005 以降]
こんにちは。初めて質問します。
Microsoft Visual Basic 2010 Expressを使って勉強中のものです。
CSVを読み込むプログラムを参考書を使って作成しました。
以下のコードです。
読み込むCSVファイルの1行目2行目に項目があります。
この項目を飛ばして3行目から読み込むようにしたいのです。
ルール処理の部分に i=i+1 カウントさせて、読み込み処理の部分を
If i >=3 then で囲みましたが、読み込みは1行目から読み取ってしまいます。
どのようにすれば3行目から読み込むようにできるのかわかりません。
ご教授お願い致します。
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim line As String
Dim field() As String
Dim reader As System.IO.StreamReader
Dim terms As String = "1"
Dim fname As String = "D:\test.csv"
Try
'ファイルを開く
reader = My.Computer.FileSystem.OpenTextFileReader(fname, System.Text.Encoding.Default)
lstExpense.Items.Clear()
Do Until reader.EndOfStream
'1行読み込む
line = reader.ReadLine
'カンマの位置で分割する
field = line.Split(",")
'2番目のデータが条件に合致した場合、リストボックスに表示する
If field(2) = terms Then
lstExpense.Items.Add(field(5) & " " & field(3))
End If
Loop
Catch ex As Exception
'エラーメッセージを表示する
MessageBox.Show(ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
'ファイルが開いている場合はクローズする
If reader IsNot Nothing Then
reader.Close()
End If
End Try
End Sub
|