vb 構造体

    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