« [VB6.0] CSVを出力 | メイン | [VB.NET] 配列ソート »

2005年10月13日

[VB6.0] CSVの読み込み

Dim FileNo As Integer
Dim strLine As String
Dim strInput(1 To 5) As String


FileNo = FreeFile

Open App.Path & "\Sample.csv" For Input As #FileNo

    Do While Not EOF(FileNo)

    

        '一行すべて読み込み

        Line Input #FileNo, strLine

    

        '一つずつ読み込み

        Input #FileNo, strInput(1), strInput(2), strInput(3), strInput(4), strInput(5)



    Loop    

Close #FileNo

2005 / 10 / 13