PGlabo

« [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