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