Structure ResCsvData
Dim str1 As String
Dim int1 As Integer
Dim str2 As String
Dim str3 As String
Dim dt1 As DateTime
Dim dbl1 As Double
End Structure
Dim wrkCsvData(0) As ResCsvData
'CSVファイルオープン
Dim wrkFile As New System.IO.StreamReader(prmCsvPath, System.Text.Encoding.Default)
'次の行へ
wrkStrLine = wrkFile.ReadLine()
While (wrkStrLine <> "")
'配列へ格納
wrkStrTemp = Split(wrkStrLine, ",")
If IsNumeric(wrkStrTemp(5).ToString) Then
'配列の要素数の再設定
ReDim Preserve wrkCsvData(wrkCsvRowCnt)
wrkCsvRowCnt = wrkCsvRowCnt + 1
wrkCsvData(wrkCsvRowCnt - 1).str1 = wrkStrTemp(0).ToString
wrkCsvData(wrkCsvRowCnt - 1).int1 = CType(wrkStrTemp(1).ToString, Integer)
wrkCsvData(wrkCsvRowCnt - 1).str2 = wrkStrTemp(2).ToString
wrkCsvData(wrkCsvRowCnt - 1).str3 = wrkStrTemp(3).ToString
wrkCsvData(wrkCsvRowCnt - 1).dt1 = CType(wrkStrTemp(4).ToString, DateTime)
wrkCsvData(wrkCsvRowCnt - 1).dbl1 = CType(wrkStrTemp(5).ToString, Double)
End If
'次の行へ
wrkStrLine = wrkFile.ReadLine()
End While
'CSVファイルクローズ
wrkFile.Close()
'取込データを配列へ代入する
For i = 0 To wrkCsvRowCnt - 1
wrkInsData(i).MeasureDate = wrkCsvData(i).dt1
Next